diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-05-24 00:27:40 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-05-24 12:39:31 +0000 |
| commit | cdfe229e642682dd52e04cdd1232a90648b35fe3 (patch) | |
| tree | c348479c10191529e0238b56fa606b0c783fcdc1 /lib/Test | |
| parent | e2d306cb6f7ec064f0604b24211e7b2cd0705b39 (diff) | |
| download | perl-cdfe229e642682dd52e04cdd1232a90648b35fe3.tar.gz | |
Stop harness from printing summary table header for each row in table
Message-ID: <9b18b3110605231327t316104caoce301668178ee442@mail.gmail.com>
p4raw-id: //depot/perl@28297
Diffstat (limited to 'lib/Test')
| -rw-r--r-- | lib/Test/Harness.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm index 46592075f4..2024d24305 100644 --- a/lib/Test/Harness.pm +++ b/lib/Test/Harness.pm @@ -38,7 +38,7 @@ Version 2.58 =cut -$VERSION = '2.58'; +$VERSION = '2.58_01'; # Backwards compatibility for exportable variable names. *verbose = *Verbose; @@ -561,10 +561,9 @@ sub get_results { if ($tot->{bonus}) { my($fmt_top, $fmt) = _create_fmts("Passed TODO",$todo_passed); # Now write to formats + $out .= swrite( $fmt_top ); for my $script (sort keys %{$todo_passed||{}}) { my $Curtest = $todo_passed->{$script}; - - $out .= swrite( $fmt_top ); $out .= swrite( $fmt, @{ $Curtest }{qw(name estat wstat max failed canon)} ); } } @@ -584,9 +583,9 @@ sub get_results { my($fmt_top, $fmt1, $fmt2) = _create_fmts("Failed Test",$failedtests); # Now write to formats + $out .= swrite( $fmt_top ); for my $script (sort keys %$failedtests) { my $Curtest = $failedtests->{$script}; - $out .= swrite( $fmt_top ); $out .= swrite( $fmt1, @{ $Curtest }{qw(name estat wstat max failed canon)} ); $out .= swrite( $fmt2, $Curtest->{canon} ); } |