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

[bacek at svn.parrot.org]

Author: bacek
Date: Sat Jun  5 22:44:26 2010
New Revision: 47400
URL: https://trac.parrot.org/parrot/changeset/47400

Log:
Partially fix test - use FileHandle

Modified:
   trunk/t/pmc/io.t

Modified: trunk/t/pmc/io.t
==============================================================================
--- trunk/t/pmc/io.t	Sat Jun  5 22:44:02 2010	(r47399)
+++ trunk/t/pmc/io.t	Sat Jun  5 22:44:26 2010	(r47400)
@@ -376,22 +376,23 @@
 Parrot overwrites
 OUTPUT
 
-pasm_output_is( <<"CODE", '', "Parrot_io_flush on buffer full" );
-.loadlib 'io_ops'
-   set I0, 0
-   set I1, 10000
+pir_output_is( <<"CODE", '', "Parrot_io_flush on buffer full" );
+.sub "main"
+   set \$I0, 0
+   set \$I1, 10000
 
-   open P0, "$temp_file", 'w'
+   new \$P0, ['FileHandle']
+   \$P0.'open'("$temp_file", 'w')
 
 PRINT:
-   ge I0, I1, END
-   print P0, "words\\n"
-   inc I0
+   ge \$I0, \$I1, END
+   print \$P0, "words\\n"
+   inc \$I0
    branch PRINT
 
 END:
-   close P0
-   end
+   \$P0.'close'()
+.end
 CODE
 
 file_content_is( $temp_file, <<'OUTPUT' x 10000, 'buffered file contents' );