[svn:parrot] r47506 - trunk/t/pmc

plobsing at svn.parrot.org plobsing at svn.parrot.org
Wed Jun 9 08:39:47 UTC 2010


Author: plobsing
Date: Wed Jun  9 08:39:47 2010
New Revision: 47506
URL: https://trac.parrot.org/parrot/changeset/47506

Log:
avoid use of open op in timely destruction test

Modified:
   trunk/t/pmc/io.t

Modified: trunk/t/pmc/io.t
==============================================================================
--- trunk/t/pmc/io.t	Wed Jun  9 08:35:08 2010	(r47505)
+++ trunk/t/pmc/io.t	Wed Jun  9 08:39:47 2010	(r47506)
@@ -41,7 +41,7 @@
 
 my (undef, $temp_file) = create_tempfile( UNLINK => 1 );
 
-pir_output_is( sprintf(<<'CODE', $temp_file), <<'OUTPUT', "timely destruction", todo => 'TT #1659');
+pir_output_is( sprintf(<<'CODE', $temp_file), <<'OUTPUT', "timely destruction" );
 .const string temp_file = '%s'
 .sub main :main
     interpinfo $I0, 2    # GC mark runs
@@ -51,7 +51,8 @@
     print $P0, "a line\n"
     null $P0            # kill it
     sweep 0            # a lazy GC has to close the PIO
-    $P0 = open temp_file, 'r'
+    $P0 = new ['FileHandle']
+    $P0.'open'(temp_file, 'r')
     $S0 = $P0.'read'(20)
     print $S0
 .end


More information about the parrot-commits mailing list