[svn:parrot] r25378 - trunk/t/configure

[jkeenan]

Author: jkeenan
Date: Wed Jan 30 17:18:26 2008
New Revision: 25378

Modified:
   trunk/t/configure/044-slurp_file.t

Log:
Guarantee that tempfile is cleaned up after testing; implementing
chromatic's suggestion:  UNLINK => 1.


Modified: trunk/t/configure/044-slurp_file.t
==============================================================================
--- trunk/t/configure/044-slurp_file.t  (original)
+++ trunk/t/configure/044-slurp_file.t  Wed Jan 30 17:18:26 2008
@@ -13,7 +13,7 @@
 use Parrot::BuildUtil;
 
 {
-    my ( $fh, $tempfile ) = tempfile();
+    my ( $fh, $tempfile ) = tempfile( UNLINK => 1 );
     open $fh, ">", $tempfile
         or croak "Unable to open tempfile for writing";
     print $fh "Testing Parrot::BuildUtil::slurp_file()\n";
@@ -30,7 +30,7 @@
 }
 
 {
-    my ( $fh, $tempfile ) = tempfile();
+    my ( $fh, $tempfile ) = tempfile( UNLINK => 1 );
     open $fh, ">", $tempfile
         or croak "Unable to open tempfile for writing";
     print $fh "Testing Parrot::BuildUtil::slurp_file()\cM\cJ\n";