# New Ticket Created by Colin Kuskie
# Please include the string: [perl #44673]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=44673 >
This patch changes the old deprecated .Class to 'Class' for t/compilers/json
Index: t/compilers/json/from_parrot.t
===================================================================
--- t/compilers/json/from_parrot.t (revision 20629)
+++ t/compilers/json/from_parrot.t (working copy)
@@ -156,7 +156,7 @@
.sub test :main
.local pmc array
- new array, .Array
+ new array, 'Array'
array = 10
array[0] = 0
array[1] = 1
@@ -183,7 +183,7 @@
.sub test :main
.local pmc array
- new array, .Array
+ new array, 'Array'
array = 10
array[0] = 0
array[1] = 1
@@ -221,7 +221,7 @@
.sub test :main
.local pmc array
- new array, .Array
+ new array, 'Array'
array = 6
array[0] = 35
array[1] = 1
@@ -251,7 +251,7 @@
.sub test :main
.local pmc array
- new array, .Array
+ new array, 'Array'
array = 6
array[0] = 0
array[1] = 1500e-2
@@ -281,7 +281,7 @@
.sub test :main
.local pmc hash
- new hash, .Hash
+ new hash, 'Hash'
hash["alpha"] = 29
hash["beta"] = "B"
hash["gamma"] = 3.1
@@ -306,7 +306,7 @@
.sub test :main
.local pmc hash
- new hash, .Hash
+ new hash, 'Hash'
hash["alpha"] = 29
hash["beta"] = "B"
hash["gamma"] = 3.1
@@ -327,25 +327,25 @@
.sub test :main
.local pmc street1, street2, city1, city2, country, world
- street1 = new .Hash
+ street1 = new 'Hash'
street1["Perl"] = "Highway"
street1["Python"] = "Grove"
street1["Ruby"] = "Lane"
- street2 = new .Hash # empty
+ street2 = new 'Hash' # empty
- city1 = new .ResizablePMCArray
+ city1 = new 'ResizablePMCArray'
push city1, street1
push city1, street2
- city2 = new .Array # empty
+ city2 = new 'Array' # empty
- country = new .Array
+ country = new 'Array'
country = 2
country[0] = city1
country[1] = city2
- world = new .Hash
+ world = new 'Hash'
world["population"] = 1234567890
world["some_country"] = country
@@ -378,25 +378,25 @@
.sub test :main
.local pmc street1, street2, city1, city2, country, world
- street1 = new .Hash
+ street1 = new 'Hash'
street1["Perl"] = "Highway"
street1["Python"] = "Grove"
street1["Ruby"] = "Lane"
- street2 = new .Hash # empty
+ street2 = new 'Hash' # empty
- city1 = new .ResizablePMCArray
+ city1 = new 'ResizablePMCArray'
push city1, street1
push city1, street2
- city2 = new .Array # empty
+ city2 = new 'Array' # empty
- country = new .Array
+ country = new 'Array'
country = 2
country[0] = city1
country[1] = city2
- world = new .Hash
+ world = new 'Hash'
world["population"] = 1234567890
world["some_country"] = country
@@ -414,14 +414,14 @@
.sub test :main
.local pmc s
- s = new .String
+ s = new 'String'
s = ''
$S0 = _json( s, 0 )
say $S0
$S0 = _json( s, 1 )
print $S0
- s = new .String
+ s = new 'String'
s = "12345\"67890"
$S0 = _json( s, 0 )
say $S0
@@ -442,14 +442,14 @@
.sub test :main
.local pmc i
- i = new .Integer
+ i = new 'Integer'
i = 0
$S0 = _json( i, 0 )
say $S0
$S0 = _json( i, 1 )
print $S0
- i = new .Integer
+ i = new 'Integer'
i = -42
$S0 = _json( i, 0 )
say $S0
@@ -470,14 +470,14 @@
.sub test :main
.local pmc b
- b = new .Boolean
+ b = new 'Boolean'
b = 0
$S0 = _json( b, 0 )
say $S0
$S0 = _json( b, 1 )
print $S0
- b = new .Boolean
+ b = new 'Boolean'
b = 1
$S0 = _json( b, 0 )
say $S0
@@ -504,7 +504,7 @@
$S0 = _json( n, 1 )
print $S0
- n = new .Undef
+ n = new 'Undef'
$S0 = _json( n, 0 )
say $S0
$S0 = _json( n, 1 )
