Test::Harness
authorAndreas König <a.koenig@mind.de>
Sun, 11 Feb 2001 14:37:00 +0000 (15:37 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 11 Feb 2001 16:54:45 +0000 (16:54 +0000)
Message-ID: <m3g0hll4sj.fsf@ak-71.mind.de>

p4raw-id: //depot/perl@8768

lib/Test/Harness.pm

index 332eed9..adfc170 100644 (file)
@@ -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,
            };
 }