--------------------------------------------------------------------------------
EOT
- $ENV{COMPILE_TIMEOUT} = 120
- if ($type eq 'compile' && !$ENV{COMPILE_TIMEOUT});
+ $ENV{PERLCC_TIMEOUT} = 120
+ if ($type eq 'compile' && !$ENV{PERLCC_TIMEOUT});
$bad = 0;
$good = 0;
if ($type eq 'perl') {
open(RESULTS, "./$test |") || (print "can't run.\n"); }
else {
- open(RESULTS, "./perl -I../lib ../utils/perlcc ./$test -run -verbose dcf -log ../compilelog |") or print "can't compile.\n";
+ open(RESULTS, "./perl -I../lib ../utils/perlcc -o ./$test.plc ./$test "
+ ." && ./$test.plc |")
+ or print "can't compile.\n";
+ unlink "./$test.plc";
}
}
else {
$next = $1, $ok = 0, last if /^not ok ([0-9]*)/;
if (/^ok (\d+)(\s*#.*)?$/ && $1 == $next) {
$next = $next + 1;
+ }
+ elsif (/^Bail out!\s*(.*)/i) { # magic words
+ die "FAILED--Further testing stopped" . ($1 ? ": $1\n" : ".\n");
}
else {
$ok = 0;