[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