This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
1edc156
)
Mention when tests were skipped instead of passed
author
Perl 5 Porters
<perl5-porters@africa.nicoh.com>
Mon, 8 Jul 1996 23:11:22 +0000
(23:11 +0000)
committer
Charles Bailey
<bailey@genetics.upenn.edu>
Mon, 8 Jul 1996 23:11:22 +0000
(23:11 +0000)
t/TEST
patch
|
blob
|
blame
|
history
diff --git
a/t/TEST
b/t/TEST
index
291eab5
..
160e316
100755
(executable)
--- a/
t/TEST
+++ b/
t/TEST
@@
-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";