diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-28 20:58:31 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-28 20:58:31 +0000 |
| commit | e9c9eb1f7997103bcfa9f934056bb6324b2afe80 (patch) | |
| tree | 61214565dcddc75c44f032d0afdf31b56c07a973 /lib/Test | |
| parent | f5952150083836317649e1348b3d43ae1f7054a1 (diff) | |
| download | perl-e9c9eb1f7997103bcfa9f934056bb6324b2afe80.tar.gz | |
prettier Test::Harness output on failed tests (from Nicholas Clark
<nick@Bagpuss.uk.boo.com>)
p4raw-id: //depot/perl@6153
Diffstat (limited to 'lib/Test')
| -rw-r--r-- | lib/Test/Harness.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm index 6d4e8b90b3..aded0e91d7 100644 --- a/lib/Test/Harness.pm +++ b/lib/Test/Harness.pm @@ -212,7 +212,7 @@ sub runtests { } if (@failed) { my ($txt, $canon) = canonfailed($max,$skipped,@failed); - print $txt; + print "${ml}$txt"; $failedtests{$test} = { canon => $canon, max => $max, failed => scalar @failed, name => $test, percent => 100*(scalar @failed)/$max, |