[svn:parrot] r47224 - in trunk/t/pmc: . testlib

bacek at svn.parrot.org bacek at svn.parrot.org
Mon May 31 13:58:12 UTC 2010


Author: bacek
Date: Mon May 31 13:58:11 2010
New Revision: 47224
URL: https://trac.parrot.org/parrot/changeset/47224

Log:
Remove dependencies on dynops to be able to run tests in coretest

Modified:
   trunk/t/pmc/packfile.t
   trunk/t/pmc/packfileannotations.t
   trunk/t/pmc/testlib/packfile_common.pir

Modified: trunk/t/pmc/packfile.t
==============================================================================
--- trunk/t/pmc/packfile.t	Mon May 31 13:56:57 2010	(r47223)
+++ trunk/t/pmc/packfile.t	Mon May 31 13:58:11 2010	(r47224)
@@ -298,7 +298,8 @@
     .local string filename, first
     push_eh load_error
     $S0 = '_filename'()
-    $P0 = open $S0, 'r'
+    $P0 = new ['FileHandle']
+    $P0.'open'($S0, 'r')
 
     first = $P0.'readall'()
 

Modified: trunk/t/pmc/packfileannotations.t
==============================================================================
--- trunk/t/pmc/packfileannotations.t	Mon May 31 13:56:57 2010	(r47223)
+++ trunk/t/pmc/packfileannotations.t	Mon May 31 13:58:11 2010	(r47224)
@@ -41,7 +41,8 @@
     .local pmc pf
 
     push_eh load_error
-    $P0 = open 't/native_pbc/annotations.pbc'
+    $P0 = new ['FileHandle']
+    $P0.'open'('t/native_pbc/annotations.pbc', 'r')
     $P0.'encoding'('binary')
     $S0 = $P0.'readall'()
     pf = new 'Packfile'

Modified: trunk/t/pmc/testlib/packfile_common.pir
==============================================================================
--- trunk/t/pmc/testlib/packfile_common.pir	Mon May 31 13:56:57 2010	(r47223)
+++ trunk/t/pmc/testlib/packfile_common.pir	Mon May 31 13:58:11 2010	(r47224)
@@ -7,8 +7,6 @@
 # Currently parrot doesn't support system independent PBCs. So, cross your
 # fingers and try different filename for binary-dependent tests...
 
-.loadlib 'io_ops'
-
 .sub '_filename'
     .local string filename
     filename = 't/native_pbc/number.pbc'
@@ -22,9 +20,10 @@
     .local pmc pf, pio
     pf   = new ['Packfile']
     $S0  = '_filename'()
-    pio  = open $S0, 'r'
+    pio  = new ['FileHandle']
+    pio.'open'($S0, 'r')
     $S0  = pio.'readall'()
-    close pio
+    pio.'close'()
     pf   = $S0
     .return(pf)
 .end


More information about the parrot-commits mailing list