This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
ad624a7
)
Remove the line number from the test description output by ReTest.pl
author
Nicholas Clark
<nick@ccl4.org>
Fri, 4 Mar 2011 20:47:28 +0000
(20:47 +0000)
committer
Nicholas 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
patch
|
blob
|
blame
|
history
diff --git
a/t/re/ReTest.pl
b/t/re/ReTest.pl
index
00e4605
..
b4338a6
100644
(file)
--- a/
t/re/ReTest.pl
+++ b/
t/re/ReTest.pl
@@
-69,7
+69,7
@@
sub _ok {
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;