This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove the line number from the test description output by ReTest.pl
authorNicholas Clark <nick@ccl4.org>
Fri, 4 Mar 2011 20:47:28 +0000 (20:47 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 5 Mar 2011 20:26:09 +0000 (20:26 +0000)
This means that the TAP it generates is much closer to that generated by
test.pl

t/re/ReTest.pl

index 00e4605..b4338a6 100644 (file)
@@ -69,7 +69,7 @@ sub _ok {
     printf "%sok %d - %s\n",
               ($ok ? "" : "not "),
               ++ $test,
     printf "%sok %d - %s\n",
               ($ok ? "" : "not "),
               ++ $test,
-              "$mess\tLine $line_nr";
+              $mess;
 
     unless ($ok) {
         print "# Failed test at line $line_nr\n" unless defined $TODO;
 
     unless ($ok) {
         print "# Failed test at line $line_nr\n" unless defined $TODO;