This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Supply description for only test lacking one.
authorJames E Keenan <jkeenan@cpan.org>
Fri, 4 Jul 2014 00:38:09 +0000 (20:38 -0400)
committerJames E Keenan <jkeenan@cpan.org>
Fri, 4 Jul 2014 00:38:09 +0000 (20:38 -0400)
Wording of description taken from 'perlvar.pod' section on $EVAL_ERROR ($@).

dist/lib/t/01lib.t

index f58fce5..849e237 100644 (file)
@@ -62,7 +62,8 @@ BEGIN {
     is( eval { do 'Yup.pm'  }, 42,  'do() works' );
     ok( eval { require Yup; },      '   require()' );
     ok( eval "use Yup; 1;",         '   use()' );
     is( eval { do 'Yup.pm'  }, 42,  'do() works' );
     ok( eval { require Yup; },      '   require()' );
     ok( eval "use Yup; 1;",         '   use()' );
-    is( $@, '' );
+    is( $@, '', 'last "eval()" parsed and executed correctly' );
+    
 
     is_deeply(\@OrigINC, \@lib::ORIG_INC,    '@lib::ORIG_INC' );
 }
 
     is_deeply(\@OrigINC, \@lib::ORIG_INC,    '@lib::ORIG_INC' );
 }