# New Ticket Created by Colin Kuskie
# Please include the string: [perl #45217]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=45217 >
More clean-up of Class to 'Class' in t/op, t/library and t/compilers.
Index: t/compilers/imcc/syn/clash.t
===================================================================
--- t/compilers/imcc/syn/clash.t (revision 21102)
+++ t/compilers/imcc/syn/clash.t (working copy)
@@ -62,7 +62,7 @@
pir_output_is( <<'CODE', <<'OUT', "new" );
.sub test :main
- $P1 = new String
+ $P1 = new 'String'
$P1 = "ok 1\n"
new P1, 'String'
set P1, "ok 2\n"
@@ -77,7 +77,7 @@
pir_output_is( <<'CODE', <<'OUT', "clone" );
.sub test :main
- $P1 = new String
+ $P1 = new 'String'
$P1 = "ok 1\n"
$P0 = clone $P1
new P1, 'String'
@@ -94,7 +94,7 @@
pir_output_is( <<'CODE', <<'OUT', "defined" );
.sub test :main
- $P1 = new Hash
+ $P1 = new 'Hash'
$I0 = defined $P1
new P1, 'Hash'
defined I0, P1
@@ -111,7 +111,7 @@
pir_output_is( <<'CODE', <<'OUT', "defined keyed" );
.sub test :main
- $P1 = new Hash
+ $P1 = new 'Hash'
$P1["a"] = "ok 1\n"
$I0 = defined $P1["a"]
new P1, 'Hash'
Index: t/library/dumper.t
===================================================================
--- t/library/dumper.t (revision 21102)
+++ t/library/dumper.t (working copy)
@@ -1,4 +1,4 @@
-#!perl
+#!'perl'
# Copyright (C) 2001-2006, The Perl Foundation.
# $Id$
Index: t/library/test_more.t
===================================================================
--- t/library/test_more.t (revision 21102)
+++ t/library/test_more.t (working copy)
@@ -400,13 +400,13 @@
test_test( 'passing isa_ok for PMC/string (super)')
test_pass( 'Sossy isa daschund' )
- $P1 = new String
+ $P1 = new 'String'
$P1 = "daschund"
isa_ok(Sossy, $P1, "Sossy")
test_test( 'passing isa_ok for PMC/PMC (class =)' )
test_pass( 'Sossy isa dog' )
- $P2 = new String
+ $P2 = new 'String'
$P2 = "dog"
isa_ok(Sossy, $P2, "Sossy")
test_test( 'passing isa_ok for PMC/PMC (super)')
Index: t/op/gc.t
===================================================================
--- t/op/gc.t (revision 21102)
+++ t/op/gc.t (working copy)
@@ -294,7 +294,7 @@
newclass $P0, "b"
$I0 = find_type "b"
$P0 = new $I0
- $P1 = new Integer
+ $P1 = new 'Integer'
$P1 = 0
n = $P0."b11"($P1)
print "ok 1\n"
@@ -307,7 +307,7 @@
.local pmc n1
# new_pad -1
# store_lex -1, "n", n
- n1 = new Integer
+ n1 = new 'Integer'
n1 = n + 1
push_eh catch
n = self."b11"(n1)
@@ -571,11 +571,11 @@
addattribute cl, "o3"
addattribute cl, "o4"
s = new "X"
- $P0 = new String
+ $P0 = new 'String'
$S0 = "ok" . " 3\n"
$P0 = $S0
setattribute s, "X\0o3", $P0
- $P0 = new String
+ $P0 = new 'String'
$S0 = "ok" . " 4\n"
$P0 = $S0
setattribute s, "X\0o4", $P0
Index: t/op/lexicals.t
===================================================================
--- t/op/lexicals.t (revision 21102)
+++ t/op/lexicals.t (working copy)
@@ -555,11 +555,11 @@
.const .Sub choose_sub = "_choose"
.const .Sub fail_sub = "_fail"
fail = newclosure fail_sub
- arr1 = new ResizablePMCArray
+ arr1 = new 'ResizablePMCArray'
arr1[0] = 1
arr1[1] = 3
arr1[2] = 5
- arr2 = new ResizablePMCArray
+ arr2 = new 'ResizablePMCArray'
arr2[0] = 1
arr2[1] = 5
arr2[2] = 9
@@ -674,7 +674,7 @@
.sub foo
.lex 'a', $P0
- $P0 = new Integer
+ $P0 = new 'Integer'
$P0 = 0
.const .Sub bar_sub = "bar"
@@ -726,7 +726,7 @@
.sub foo
.param int i
.lex 'a', $P0
- $P1 = new Integer
+ $P1 = new 'Integer'
$P1 = i
store_lex 'a', $P1
print "foo: "
@@ -784,7 +784,7 @@
.sub foo
.param int i
.lex 'a', $P0
- $P1 = new Integer
+ $P1 = new 'Integer'
$P1 = i
store_lex 'a', $P1
print "foo: "
Index: t/op/calling.t
===================================================================
--- t/op/calling.t (revision 21102)
+++ t/op/calling.t (working copy)
@@ -257,7 +257,7 @@
pir_output_is( <<'CODE', <<'OUTPUT', "use it in PIR" );
.sub main :main
- $P0 = new String
+ $P0 = new 'String'
$P0 = "hello\n"
find_name $P1, "foo"
# set_args and invoke must be adjacent
@@ -329,7 +329,7 @@
pir_output_is( <<'CODE', <<'OUTPUT', "use it in PIR" );
.sub main :main
- $P0 = new String
+ $P0 = new 'String'
$P0 = "hello\n"
find_name $P1, "foo"
# set_args and invoke must be adjacent
@@ -346,7 +346,7 @@
pir_output_is( <<'CODE', <<'OUTPUT', "type conversion - autobox" );
.sub main :main
- $P0 = new String
+ $P0 = new 'String'
$P0 = "hello"
find_name $P1, "foo"
# set_args and invoke must be adjacent
@@ -434,7 +434,7 @@
.sub main :main
.include "errors.pasm"
errorson .PARROT_ERRORS_PARAM_COUNT_FLAG
- $P0 = new String
+ $P0 = new 'String'
$P0 = "hello\n"
find_name $P1, "foo"
set_args "(0)", $P0
@@ -483,7 +483,7 @@
.sub main :main
.include "errors.pasm"
errorson .PARROT_ERRORS_PARAM_COUNT_FLAG
- $P0 = new String
+ $P0 = new 'String'
$P0 = "hello\n"
find_name $P1, "foo"
set_args "(0,0)", $P0,77
@@ -501,7 +501,7 @@
.sub main :main
.include "errors.pasm"
errorson .PARROT_ERRORS_PARAM_COUNT_FLAG
- $P0 = new String
+ $P0 = new 'String'
$P0 = "hello\n"
find_name $P1, "foo"
set_args "(0,0)", $P0,77
@@ -525,7 +525,7 @@
.sub main :main
.include "errors.pasm"
errorson .PARROT_ERRORS_PARAM_COUNT_FLAG
- $P0 = new String
+ $P0 = new 'String'
$P0 = "hello\n"
find_name $P1, "foo"
set_args "(0)", $P0
@@ -549,7 +549,7 @@
.include "errors.pasm"
errorson .PARROT_ERRORS_PARAM_COUNT_FLAG
.local pmc ar
- ar = new ResizableIntegerArray
+ ar = new 'ResizableIntegerArray'
push ar, 1
push ar, 2
push ar, 3
@@ -683,7 +683,7 @@
pir_output_is( <<'CODE', <<'OUTPUT', "empty args" );
.sub main :main
- $P0 = new String
+ $P0 = new 'String'
$P0 = "hello\n"
find_name $P1, "foo"
set_args "()"
@@ -702,7 +702,7 @@
pir_output_is( <<'CODE', <<'OUTPUT', "optional args" );
.sub main :main
- $P0 = new String
+ $P0 = new 'String'
$P0 = "hello\n"
find_name $P1, "foo"
set_args "(0x0)", $P0
@@ -836,7 +836,7 @@
pir_output_is( <<'CODE', <<'OUTPUT', "type conversion - PIR const" );
.const int MYCONST = -2
.sub main :main
- $P0 = new String
+ $P0 = new 'String'
"foo"(MYCONST)
.end
.sub "foo"
@@ -851,7 +851,7 @@
pir_output_is( <<'CODE', <<'OUTPUT', "optional args, :opt_flag" );
.sub main :main
- $P0 = new String
+ $P0 = new 'String'
$P0 = "hello\n"
foo($P0)
foo()
@@ -874,7 +874,7 @@
pir_output_is( <<'CODE', <<'OUTPUT', "optional multiple :opt_flag" );
.sub main :main
- $P0 = new String
+ $P0 = new 'String'
$P0 = "ok 1\n"
foo($P0, "ok 2\n", "ok 3\n")
.end
@@ -938,9 +938,9 @@
pir_output_is( <<'CODE', <<'OUTPUT', "tailcall 5 - arg/param conflict" );
.sub main :main
.local pmc a, b
- a = new Integer
+ a = new 'Integer'
a = 1
- b = new Integer
+ b = new 'Integer'
b = 2
.local pmc c, d
(c, d) = foo(a, b)
@@ -957,7 +957,7 @@
.sub foo
.param pmc a
.param pmc b
- $P0 = new Integer
+ $P0 = new 'Integer'
$P0 = 3
.return bar($P0, a, b)
.end
@@ -1069,9 +1069,9 @@
# see also tcl in leo-ctx5 by Coke; Date 28.08.2005
pir_output_is( <<'CODE', <<'OUTPUT', "bug - :slurpy promotes to :flatten" );
.sub main :main
- $P0 = new String
+ $P0 = new 'String'
$P0 = "ok 1\n"
- $P1 = new String
+ $P1 = new 'String'
$P1 = "ok 2\n"
$P0 = foo($P0, $P1)
print $P0
@@ -1101,7 +1101,7 @@
print "\n"
.end
.sub main :main
- $P34 = new Array
+ $P34 = new 'Array'
$P34 = 0
## normal flattening direct call, non-slurpy returns
$P35 = _fn1($P34 :flat)
@@ -1127,11 +1127,11 @@
print "\n"
.end
.sub main :main
- $P30 = new Integer
+ $P30 = new 'Integer'
$P30 = 2
- $P31 = new Integer
+ $P31 = new 'Integer'
$P31 = 3
- $P34 = new Array
+ $P34 = new 'Array'
$P34 = 2
$P34[0] = $P30
$P34[1] = $P31
@@ -1160,11 +1160,11 @@
.sub main :main
.include "errors.pasm"
errorson .PARROT_ERRORS_PARAM_COUNT_FLAG
- $P30 = new Integer
+ $P30 = new 'Integer'
$P30 = 2
- $P31 = new Integer
+ $P31 = new 'Integer'
$P31 = 3
- $P34 = new Array
+ $P34 = new 'Array'
$P34 = 3
$P34[0] = $P30
$P34[1] = $P31
@@ -1193,11 +1193,11 @@
.sub main :main
.include "errors.pasm"
errorson .PARROT_ERRORS_PARAM_COUNT_FLAG
- $P30 = new Integer
+ $P30 = new 'Integer'
$P30 = 2
- $P31 = new Integer
+ $P31 = new 'Integer'
$P31 = 3
- $P34 = new Array
+ $P34 = new 'Array'
$P34 = 4
$P34[0] = $P30
$P34[1] = $P31
@@ -1227,11 +1227,11 @@
.sub main :main
.include "errors.pasm"
errorson .PARROT_ERRORS_PARAM_COUNT_FLAG
- $P30 = new Integer
+ $P30 = new 'Integer'
$P30 = 2
- $P31 = new Integer
+ $P31 = new 'Integer'
$P31 = 3
- $P34 = new Array
+ $P34 = new 'Array'
$P34 = 2
$P34[0] = $P30
$P34[1] = $P31
