This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Better diagnostics and test naming
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 13 Sep 2007 09:10:18 +0000 (09:10 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 13 Sep 2007 09:10:18 +0000 (09:10 +0000)
p4raw-id: //depot/perl@31861

ext/B/t/deparse.t

index ed14919..aeca025 100644 (file)
@@ -40,8 +40,8 @@ ok($deparse);
 $/ = "\n####\n";
 while (<DATA>) {
     chomp;
-    s/#(.*)$//mg;
-    my ($num) = $1 =~ m/(\d+)/;
+    s/#\s*(.*)$//mg;
+    my ($num, $testname) = $1 =~ m/(\d+)\s*(.*)/;
     my ($input, $expected);
     if (/(.*)\n>>>>\n(.*)/s) {
        ($input, $expected) = ($1, $2);
@@ -53,7 +53,8 @@ while (<DATA>) {
     my $coderef = eval "sub {$input}";
 
     if ($@) {
-       ok(0, "$num deparsed: $@");
+       diag("$num deparsed: $@");
+       ok(0, $testname);
     }
     else {
        my $deparsed = $deparse->coderef2text( $coderef );
@@ -61,7 +62,7 @@ while (<DATA>) {
        $regex =~ s/(\S+)/\Q$1/g;
        $regex =~ s/\s+/\\s+/g;
        $regex = '^\{\s*' . $regex . '\s*\}$';
-        like($deparsed, qr/$regex/);
+        like($deparsed, qr/$regex/, $testname);
     }
 }