diff options
author | 2013-03-25 20:06:16 +0000 | |
---|---|---|
committer | 2013-03-25 20:06:16 +0000 | |
commit | 898184e3e61f9129feb5978fad5a8c6865f00b92 (patch) | |
tree | 56f32aefc1eed60b534611007c7856f82697a205 /gnu/usr.bin/perl/cpan/Module-Loaded/t/01_Module-Loaded.t | |
parent | PGSHIFT -> PAGE_SHIFT (diff) | |
download | wireguard-openbsd-898184e3e61f9129feb5978fad5a8c6865f00b92.tar.xz wireguard-openbsd-898184e3e61f9129feb5978fad5a8c6865f00b92.zip |
import perl 5.16.3 from CPAN - worked on by Andrew Fresh and myself
Diffstat (limited to 'gnu/usr.bin/perl/cpan/Module-Loaded/t/01_Module-Loaded.t')
-rwxr-xr-x | gnu/usr.bin/perl/cpan/Module-Loaded/t/01_Module-Loaded.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gnu/usr.bin/perl/cpan/Module-Loaded/t/01_Module-Loaded.t b/gnu/usr.bin/perl/cpan/Module-Loaded/t/01_Module-Loaded.t index 672bcf2d441..eef62999f7f 100755 --- a/gnu/usr.bin/perl/cpan/Module-Loaded/t/01_Module-Loaded.t +++ b/gnu/usr.bin/perl/cpan/Module-Loaded/t/01_Module-Loaded.t @@ -10,12 +10,12 @@ my $Strict = $ENV{'PERL_CORE'} ? 'less' : 'strict'; ### load the thing { use_ok( $Class ); can_ok( $Class, @Funcs ); -} +} { ok( !is_loaded($Mod), "$Mod not loaded yet" ); ok( mark_as_loaded($Mod), " $Mod now marked as loaded" ); is( is_loaded($Mod), $0, " $Mod is loaded from $0" ); - + my $rv = eval "require $Mod; 1"; ok( $rv, "$Mod required" ); ok( !$@, " require did not die" ); @@ -42,7 +42,7 @@ my $Strict = $ENV{'PERL_CORE'} ? 'less' : 'strict'; my $rv = eval "require $Strict; 1"; ok( $rv, "$Strict loaded again" ); } - - is( is_loaded( $Strict ), $where, + + is( is_loaded( $Strict ), $where, " $Strict is loaded" ); } |