This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
dist/Data-Dumper/t/dumper.t: Add test names
authorKarl Williamson <khw@cpan.org>
Fri, 13 Mar 2015 04:58:40 +0000 (22:58 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 13 Mar 2015 16:53:11 +0000 (10:53 -0600)
dist/Data-Dumper/t/dumper.t

index 3ee4bcd..caa91fb 100644 (file)
@@ -53,7 +53,7 @@ sub TEST {
   } else {
     eval "$t";
   }
-  print $@ ? "not ok $TNUM\n# \$@ says: $@\n" : "ok $TNUM\n";
+  print $@ ? "not ok $TNUM\n# \$@ says: $@\n" : "ok $TNUM -   no eval error\n";
 
   $t = eval $string;
   ++$TNUM;
@@ -66,7 +66,7 @@ sub TEST {
     $t    = join("\n",sort(split(/\n/,$t)));
     $t    =~ s/\,$//mg;
   }
-  print( ($t eq $WANT and not $@) ? "ok $TNUM\n"
+  print( ($t eq $WANT and not $@) ? "ok $TNUM -   works a 2nd time after intervening eval\n"
     : "not ok $TNUM\n--Expected--\n$WANT\n--Got--\n$@$t\n");
 }