diff options
author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-07-08 23:11:22 +0000 |
---|---|---|
committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-07-08 23:11:22 +0000 |
commit | bcce72a7a81d4c8e03d40bd0de22a534dc97418b (patch) | |
tree | 4f87dde01371f90cad37184e9afccd4d6c1fc70a | |
parent | 1edc1566d55df87b21cf04e543228c5f1b61f4d4 (diff) | |
download | perl-bcce72a7a81d4c8e03d40bd0de22a534dc97418b.tar.gz |
Mention when tests were skipped instead of passed
-rwxr-xr-x | t/TEST | 9 |
1 files changed, 7 insertions, 2 deletions
@@ -80,8 +80,13 @@ while ($test = shift) { } $next = $next - 1; if ($ok && $next == $max) { - print "ok\n"; - $good = $good + 1; + if ($max) { + print "ok\n"; + $good = $good + 1; + } else { + print "skipping test on this platform\n"; + $files -= 1; + } } else { $next += 1; print "FAILED on test $next\n"; |