Test harness update to sync with the new perlcc,

from Simon Cozens.

p4raw-id: //depot/perl@7136

diff --git a/t/TEST b/t/TEST
index 0b674af..ef3d312 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;

diff --git a/t/UTEST b/t/UTEST
index b5f285b..9c1dfc0 100755 (executable)
--- a/t/UTEST
+++ b/t/UTEST
@@ -81,7 +81,10 @@ EOT
            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 {