diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-12-06 13:00:30 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-06 15:22:38 +0000 |
| commit | d2ab394d8cfda924d5c38dd9722ad367a06ffeca (patch) | |
| tree | 78529c70bcb22a754a8dba0a5a81395c3b3716de | |
| parent | 3d8876fcebe385593e503c80fd82539f2662a7d4 (diff) | |
| download | perl-d2ab394d8cfda924d5c38dd9722ad367a06ffeca.tar.gz | |
Re: New harness is failing things
Message-Id: <200012061300.NAA10567@mikado.tiuk.ti.com>
p4raw-id: //depot/perl@8012
| -rw-r--r-- | lib/Test/Harness.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm index a3c1753c3e..a8038df694 100644 --- a/lib/Test/Harness.pm +++ b/lib/Test/Harness.pm @@ -121,7 +121,7 @@ sub runtests { $ok++; $totok++; } - } elsif (/^ok\s*(\d*)(\s*\#\s*[Ss]kip\S*(?:(?>\s+)(.+))?)?$/) { + } elsif (/^ok\s*(\d*) *(\s*\#\s*[Ss]kip\S*(?:(?>\s+)(.+))?)?$/) { $this = $1 if $1 > 0; print "${ml}ok $this/$max" if $ml; $ok++; @@ -138,8 +138,13 @@ sub runtests { $skip_reason = $reason; } $bonus++, $totbonus++ if $todo{$this}; + } elsif (/^ok\s*(\d*)\s*\#([^\r]*)$/) { + $this = $1 if $1 > 0; + print "${ml}ok $this/$max" if $ml; + $ok++; + $totok++; } else { - # an ok or not ok not matching the 2 cases above... + # an ok or not ok not matching the 3 cases above... # just ignore it for compatibility with TEST next; } |