# New Ticket Created by Andy Dougherty
# Please include the string: [perl #60634]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=60634 >
This patch cleans up a few test files left in /tmp by the test suite.
diff -r -u parrot-current/t/compilers/imcc/syn/file.t
parrot-andy/t/compilers/imcc/syn/file.t
--- parrot-current/t/compilers/imcc/syn/file.t 2008-11-18 08:04:17.000000000
-0500
+++ parrot-andy/t/compilers/imcc/syn/file.t 2008-11-18 08:31:49.000000000
-0500
@@ -490,7 +490,7 @@
without_slash() called!
OUT
}
-
+unlink(@temp_files);
$ended_ok = 1;
exit;
diff -r -u parrot-current/t/pmc/sub.t parrot-andy/t/pmc/sub.t
--- parrot-current/t/pmc/sub.t 2008-11-18 08:04:16.000000000 -0500
+++ parrot-andy/t/pmc/sub.t 2008-11-18 08:37:06.000000000 -0500
@@ -660,7 +660,7 @@
/too few arguments passed \(1\) - 2 params expected/
OUTPUT
-($TEMP, $temp_pasm) = create_tempfile();
+($TEMP, $temp_pasm) = create_tempfile(UNLINK => 1);
print $TEMP <<'EOF';
.sub _sub1 :load
say "in sub1"
@@ -681,7 +681,7 @@
back
OUTPUT
-($TEMP, $temp_pasm) = create_tempfile();
+($TEMP, $temp_pasm) = create_tempfile(UNLINK => 1);
print $TEMP <<'EOF';
.sub _foo
print "error\n"
--
Andy Dougherty [EMAIL PROTECTED]
