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

[bacek at svn.parrot.org]

Author: bacek
Date: Tue Apr  7 21:32:56 2009
New Revision: 37956
URL: https://trac.parrot.org/parrot/changeset/37956

Log:
Move helper function to the end of file

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:17 2009	(r37955)
+++ branches/packfile_revamp/t/pmc/packfile.t	Tue Apr  7 21:32:56 2009	(r37956)
@@ -63,23 +63,6 @@
 .end
 
 
-# common setup code for later tests
-.sub '_pbc'
-    .include "stat.pasm"
-    .include "interpinfo.pasm"
-    .local pmc pf, pio
-    pf   = new ['Packfile']
-    #$S0  = interpinfo .INTERPINFO_RUNTIME_PREFIX
-    #$S0 .= "/runtime/parrot/library/uuid.pbc"
-    $S0 .= "t/native_pbc/integer_1.pbc"
-    pio  = open $S0, 'r'
-    $S0  = pio.'readall'()
-    close pio
-    pf   = $S0
-    .return(pf)
-.end
-
-
 # Packfile.set_string_native, Packfile.get_integer_keyed_str
 .sub 'test_get_integer_keyed_str'
     .local pmc pf
@@ -122,6 +105,24 @@
 .end
 
 
+# common pbc loading function
+.sub '_pbc'
+    .include "stat.pasm"
+    .include "interpinfo.pasm"
+    .local pmc pf, pio
+    pf   = new ['Packfile']
+    #$S0  = interpinfo .INTERPINFO_RUNTIME_PREFIX
+    #$S0 .= "/runtime/parrot/library/uuid.pbc"
+    $S0 .= "t/native_pbc/integer_1.pbc"
+    pio  = open $S0, 'r'
+    $S0  = pio.'readall'()
+    close pio
+    pf   = $S0
+    .return(pf)
+.end
+
+
+
 # Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4