diff options
| author | Andreas König <a.koenig@mind.de> | 2001-02-11 15:37:00 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-11 16:54:45 +0000 |
| commit | 66fd8cb95c4406632e1d0e384b66b49a32063913 (patch) | |
| tree | 12c21b4fc8e362e93ae428d53405bd2c69405616 /lib | |
| parent | 39f9fc433ed605c97e9ab03ac9e6d33f58f82877 (diff) | |
| download | perl-66fd8cb95c4406632e1d0e384b66b49a32063913.tar.gz | |
Test::Harness
Message-ID: <m3g0hll4sj.fsf@ak-71.mind.de>
p4raw-id: //depot/perl@8768
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Test/Harness.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm index 332eed9bbc..adfc1707ec 100644 --- a/lib/Test/Harness.pm +++ b/lib/Test/Harness.pm @@ -143,6 +143,7 @@ sub _runtests { if ($wstatus) { $failedtests{$test} = _dubious_return(\%test, \%tot, $estatus, $wstatus); + $failedtests{$test}{name} = $test; } elsif ($test{ok} == $test{max} && $test{next} == $test{max}+1) { if ($test{max} and $test{skipped} + $test{bonus}) { @@ -480,7 +481,7 @@ sub _dubious_return { return { canon => $canon, max => $test->{max} || '??', failed => $failed, - name => $test, percent => $percent, + percent => $percent, estat => $estatus, wstat => $wstatus, }; } |