This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Delay loading Test::More
authorChad Granum <chad.granum@dreamhost.com>
Wed, 16 Jul 2014 06:10:20 +0000 (23:10 -0700)
committerTony Cook <tony@develop-help.com>
Wed, 23 Jul 2014 03:59:44 +0000 (13:59 +1000)
dist/autouse/t/autouse.t

index 0a51ee0..0c8ad20 100644 (file)
@@ -8,23 +8,27 @@ BEGIN {
     }
 }
 
-use Test::More tests => 15;
-
+my ($ok1, $ok2);
 BEGIN {
     require autouse;
     eval {
         "autouse"->import('Scalar::Util' => 'Scalar::Util::set_prototype(&$)');
     };
-    ok( !$@, "Function from package with custom 'import()' correctly imported" );
+    $ok1 = !$@;
 
     eval {
         "autouse"->import('Scalar::Util' => 'Foo::min');
     };
-    ok( $@, qr/^autouse into different package attempted/ );
+    $ok2 = $@;
 
     "autouse"->import('Scalar::Util' => qw(isdual set_prototype(&$)));
 }
 
+use Test::More tests => 15;
+
+ok( $ok1, "Function from package with custom 'import()' correctly imported" );
+ok( $ok2, qr/^autouse into different package attempted/ );
+
 ok( isdual($!),
     "Function imported via 'autouse' performs as expected");