[svn:parrot] r37957 - branches/packfile_revamp/t/pmc

[bacek at svn.parrot.org]

Author: bacek
Date: Tue Apr  7 21:33:33 2009
New Revision: 37957
URL: https://trac.parrot.org/parrot/changeset/37957

Log:
Factor out _filename function. It will be useful for testing on different platforms

Modified:
   branches/packfile_revamp/t/pmc/packfile.t

Modified: branches/packfile_revamp/t/pmc/packfile.t
==============================================================================
--- branches/packfile_revamp/t/pmc/packfile.t	Tue Apr  7 21:32:56 2009	(r37956)
+++ branches/packfile_revamp/t/pmc/packfile.t	Tue Apr  7 21:33:33 2009	(r37957)
@@ -104,6 +104,12 @@
     ok($I1, 'get_directory')
 .end
 
+# Return test filename
+.sub '_filename'
+    .local string filename
+    filename = 't/native_pbc/integer_1.pbc'
+    .return (filename)
+.end
 
 # common pbc loading function
 .sub '_pbc'
@@ -113,7 +119,7 @@
     pf   = new ['Packfile']
     #$S0  = interpinfo .INTERPINFO_RUNTIME_PREFIX
     #$S0 .= "/runtime/parrot/library/uuid.pbc"
-    $S0 .= "t/native_pbc/integer_1.pbc"
+    $S0 = '_filename'()
     pio  = open $S0, 'r'
     $S0  = pio.'readall'()
     close pio