[svn:parrot] r25749 - trunk/t/pharness

[jkeenan]

Author: jkeenan
Date: Fri Feb 15 18:48:51 2008
New Revision: 25749

Modified:
   trunk/t/pharness/01-default_tests.t

Log:
Add CLEANUP => 1 to tempdir() calls in two locations.

Modified: trunk/t/pharness/01-default_tests.t
==============================================================================
--- trunk/t/pharness/01-default_tests.t (original)
+++ trunk/t/pharness/01-default_tests.t Fri Feb 15 18:48:51 2008
@@ -32,7 +32,7 @@
 my $cwd = cwd();
 {
     # Simulate non-existence of DEVELOPING
-    my $tdir1 = tempdir();
+    my $tdir1 = tempdir( CLEANUP => 1 );
     ok( chdir $tdir1, "Able to change to tempdir for testing");
 
     ($core_tests_only, $runcore_tests_only) = (0,1);
@@ -71,7 +71,7 @@
 
 {
     # Simulate existence of DEVELOPING
-    my $tdir2 = tempdir();
+    my $tdir2 = tempdir( CLEANUP => 1 );
     ok( chdir $tdir2, "Able to change to tempdir for testing");
     open my $FH, ">", q{DEVELOPING}
         or croak "Unable to open file for writing";