[svn:parrot] r39336 - trunk/t/compilers/json

[NotFound at svn.parrot.org]

Author: NotFound
Date: Tue Jun  2 15:29:33 2009
New Revision: 39336
URL: https://trac.parrot.org/parrot/changeset/39336

Log:
[cage] kill include JSON.pir usage in tests

Modified:
   trunk/t/compilers/json/from_parrot.t

Modified: trunk/t/compilers/json/from_parrot.t
==============================================================================
--- trunk/t/compilers/json/from_parrot.t	Tue Jun  2 15:22:24 2009	(r39335)
+++ trunk/t/compilers/json/from_parrot.t	Tue Jun  2 15:29:33 2009	(r39336)
@@ -30,10 +30,10 @@
     .local string s
     s = ''
 
+    load_bytecode 'JSON.pbc'
     $S0 = _json( s, 0 )
     say $S0
 .end
-.include 'library/JSON.pir'
 CODE
 ""
 OUT
@@ -45,10 +45,10 @@
     .local string s
     s = 'abcdeABCDE01234$%^&*'
 
+    load_bytecode 'JSON.pbc'
     $S0 = _json( s, 0 )
     say $S0
 .end
-.include 'library/JSON.pir'
 CODE
 "abcdeABCDE01234$%^&*"
 OUT
@@ -60,10 +60,10 @@
     .local string s
     s = "abcde\\ABCDE\"01234\n$%^&*"
     # XXX more escapes need to be tested; see http://www.json.org/
+    load_bytecode 'JSON.pbc'
     $S0 = _json( s, 0 )
     say $S0
 .end
-.include 'library/JSON.pir'
 CODE
 "abcde\\ABCDE\"01234\n$%^&*"
 OUT
@@ -74,6 +74,7 @@
 .sub test :main
     .local int i
     i = 0
+    load_bytecode 'JSON.pbc'
     $S0 = _json( i, 0 )
     say $S0
     i = 35
@@ -89,7 +90,6 @@
     $S0 = _json( i, 0 )
     say $S0
 .end
-.include 'library/JSON.pir'
 CODE
 0
 35
@@ -104,6 +104,7 @@
 .sub test :main
     .local num n
     n = 0.0
+    load_bytecode 'JSON.pbc'
     $S0 = _json( n )
     say $S0
     n = 2.50
@@ -116,7 +117,6 @@
     $S0 = _json( n )
     say $S0
 .end
-.include 'library/JSON.pir'
 CODE
 0
 2.5
@@ -130,6 +130,7 @@
 .sub test :main
     .local string s
     s = "abcde\\ABCDE\"01234\n$%^&*"
+    load_bytecode 'JSON.pbc'
     $S0 = _json( s, 1 )
     print $S0
 
@@ -143,7 +144,6 @@
     $S0 = _json( n, 1 )
     print $S0
 .end
-.include 'library/JSON.pir'
 CODE
 "abcde\\ABCDE\"01234\n$%^&*"
 -42
@@ -169,10 +169,10 @@
     array[8] = 8
     array[9] = 9
 
+    load_bytecode 'JSON.pbc'
     $S0 = _json( array, 0 )
     say $S0
 .end
-.include 'library/JSON.pir'
 CODE
 [0,1,2,3,4,5,6,7,8,9]
 OUT
@@ -196,10 +196,10 @@
     array[8] = 8
     array[9] = 9
 
+    load_bytecode 'JSON.pbc'
     $S0 = _json( array, 1 )
     print $S0
 .end
-.include 'library/JSON.pir'
 CODE
 [
   0,
@@ -230,10 +230,10 @@
     array[4] = -2147483648
     array[5] = 2147483647
 
+    load_bytecode 'JSON.pbc'
     $S0 = _json( array, 1 )
     print $S0
 .end
-.include 'library/JSON.pir'
 CODE
 [
   35,
@@ -260,10 +260,10 @@
     array[4] = "json"
     array[5] = 0.0
 
+    load_bytecode 'JSON.pbc'
     $S0 = _json( array, 1 )
     print $S0
 .end
-.include 'library/JSON.pir'
 CODE
 [
   0,
@@ -287,10 +287,10 @@
     hash["gamma"] = 3.1
     hash["delta"] = "DELTA"
 
+    load_bytecode 'JSON.pbc'
     $S0 = _json( hash, 1 )
     print $S0
 .end
-.include 'library/JSON.pir'
 CODE
 {
   "alpha" : 29,
@@ -312,10 +312,10 @@
     hash["gamma"] = 3.1
     hash["delta"] = "DELTA"
 
+    load_bytecode 'JSON.pbc'
     $S0 = _json( hash, 0 )
     say $S0
 .end
-.include 'library/JSON.pir'
 CODE
 {"alpha":29,"beta":"B","delta":"DELTA","gamma":3.1}
 OUT
@@ -349,10 +349,10 @@
     world["population"] = 1234567890
     world["some_country"] = country
 
+    load_bytecode 'JSON.pbc'
     $S0 = _json( world, 1 )
     print $S0
 .end
-.include 'library/JSON.pir'
 CODE
 {
   "population" : 1234567890,
@@ -400,10 +400,10 @@
     world["population"] = 1234567890
     world["some_country"] = country
 
+    load_bytecode 'JSON.pbc'
     $S0 = _json( world, 0 )
     say $S0
 .end
-.include 'library/JSON.pir'
 CODE
 {"population":1234567890,"some_country":[[{"Perl":"Highway","Python":"Grove","Ruby":"Lane"},{}],[]]}
 OUT
@@ -416,6 +416,7 @@
 
     s = new 'String'
     s = ''
+    load_bytecode 'JSON.pbc'
     $S0 = _json( s, 0 )
     say $S0
     $S0 = _json( s, 1 )
@@ -428,7 +429,6 @@
     $S0 = _json( s, 1 )
     print $S0
 .end
-.include 'library/JSON.pir'
 CODE
 ""
 ""
@@ -444,6 +444,7 @@
 
     i = new 'Integer'
     i = 0
+    load_bytecode 'JSON.pbc'
     $S0 = _json( i, 0 )
     say $S0
     $S0 = _json( i, 1 )
@@ -456,7 +457,6 @@
     $S0 = _json( i, 1 )
     print $S0
 .end
-.include 'library/JSON.pir'
 CODE
 0
 0
@@ -472,6 +472,7 @@
 
     b = new 'Boolean'
     b = 0
+    load_bytecode 'JSON.pbc'
     $S0 = _json( b, 0 )
     say $S0
     $S0 = _json( b, 1 )
@@ -484,7 +485,6 @@
     $S0 = _json( b, 1 )
     print $S0
 .end
-.include 'library/JSON.pir'
 CODE
 false
 false
@@ -499,6 +499,7 @@
     .local pmc n
     null n
 
+    load_bytecode 'JSON.pbc'
     $S0 = _json( n, 0 )
     say $S0
     $S0 = _json( n, 1 )
@@ -510,7 +511,6 @@
     $S0 = _json( n, 1 )
     print $S0
 .end
-.include 'library/JSON.pir'
 CODE
 null
 null