This seems to be a stage sane and stable enough to checkin.

[p5sagit/p5-mst-13.2.git] / t / TEST

diff --git a/t/TEST b/t/TEST
index 0b674af..cfee26c 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -90,9 +90,10 @@ EOT
            open(RESULTS,"./perl$switch $test |") or print "can't run.\n";
        }
        else {
-           open(RESULTS, "./perl -I../lib ../utils/perlcc ./$test "
-                        ."-run -verbose dcf -log ../compilelog |")
+           open(RESULTS, "./perl -I../lib ../utils/perlcc -o ./$test.plc ./$test "
+                        ." && ./$test.plc |")
                or print "can't compile.\n";
+        unlink "./$test.plc";
        }
 
        $ok = 0;
@@ -113,6 +114,9 @@ EOT
                    $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;