#!perl -w
#$Id: as.t 26 2006-04-16 15:18:52Z demerphq $#
use Test::More tests => 4;
use_ok 'Data::Dump::Streamer';
import Data::Dump::Streamer as => 'DDS';
{
package Foo;
use base Data::Dump::Streamer;
import Data::Dump::Streamer as => 'Bar';
}
my $dds;
$dds = DDS->new;
ok($dds, "aliased namespace works for object construction");
$dds = Foo->new;
ok($dds, "derived package constructor works");
$dds = Bar->new;
ok($dds, "aliased namespace works with derived package constructor");