chdir 't' if -f 't/TEST';
+die "You need to run \"make test\" first to set things up.\n"
+ unless -e 'perl' or -e 'perl.exe';
+
+$ENV{EMXSHELL} = 'sh'; # For OS/2
+
if ($ARGV[0] eq '') {
@ARGV = split(/[ \n]/,
`echo base/*.t comp/*.t cmd/*.t io/*.t; echo op/*.t lib/*.t`);
last;
}
}
+$sharpbang = 0 if $ENV{OS2_SHELL}; # OS/2
$bad = 0;
$good = 0;
$total = @ARGV;
}
$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";