view release on metacpan or  search on metacpan

t/01basic.t  view on Meta::CPAN

}    #BEGIN

# basic aliasing
use Bar as => 'Foo';
ok unlink $Barpm;

# was import called?
is $TESTING::import[0], 'Bar';
@TESTING::import = ();

# are the stashes ok?
ok %Bar::;
ok %Foo::;
is \%Foo::, \%Bar::;

# original module object creation
my $bar = Bar->new;
is blessed($bar), 'Bar';
is scalar @TESTING::new, 1;
is $TESTING::new[0], 'Bar';
@TESTING::new = ();

# aliased module object creation
my $foo = Foo->new;
is blessed($foo), 'Bar';
is scalar @TESTING::new, 1;
is $TESTING::new[0], 'Foo';
@TESTING::new = ();

# repeated use
eval "use Foo";
ok !$@;
is scalar @TESTING::import, 1;
is $TESTING::import[0], 'Foo';
@TESTING::import = ();

# unuse
eval "no Foo";
ok !$@;
is scalar @TESTING::unimport, 1;
is $TESTING::unimport[0], 'Foo';
@TESTING::unimport = ();

# overloading existing module
eval "use Foo as => 'strict'";
like $@, qr#^Cannot alias 'strict' to 'Foo': already taken#;

# overloading same module
eval "use Bar qw(extra parameters), as =>'Foo'";
ok !$@;
is scalar @TESTING::import, 3;
is $TESTING::import[0], 'Bar';
is $TESTING::import[1], 'extra';
is $TESTING::import[2], 'parameters';
@TESTING::import = ();

# overloading already aliased module
eval "use strict as => 'Foo'";
like $@, qr#^Cannot alias 'Foo' to 'strict': already aliased to 'Bar'#;

my $return = require $foopl;
is $return, $zippo;
is $TESTING::require, $zippo;
undef $TESTING::require;
ok unlink $foopl;

eval "require 5.000";
ok !$@;

eval "require 7.000";
ok $@;