From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 3 Oct 2000 20:08:47 +0000 (+0000)
Subject: Test harness update to sync with the new perlcc,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5b541967add65de8b64bb3e3437d2182d155081d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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 {