# New Ticket Created by Colin Kuskie
# Please include the string: [perl #44675]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=44675 >
Change .Class to 'Class' in t/compilers/pge
Index: t/compilers/pge/p5regex/p5rx.t
===================================================================
--- t/compilers/pge/p5regex/p5rx.t (revision 20629)
+++ t/compilers/pge/p5regex/p5rx.t (working copy)
@@ -495,7 +495,7 @@
.return (todo_tests)
reset_todo_info:
- todo_info = new .Hash
+ todo_info = new 'Hash'
ret
set_todo_loop: # for developer testing. not used normally
@@ -659,7 +659,7 @@
.return (skip_tests)
reset_skip_info:
- skip_info = new .Hash
+ skip_info = new 'Hash'
ret
set_range: # for setting a range of tests
Index: t/compilers/pge/p6regex/01-regex.t
===================================================================
--- t/compilers/pge/p6regex/01-regex.t (revision 20629)
+++ t/compilers/pge/p6regex/01-regex.t (working copy)
@@ -330,7 +330,7 @@
.return (todo_tests)
reset_todo_info:
- todo_info = new .Hash
+ todo_info = new 'Hash'
ret
set_todo_loop:
@@ -361,7 +361,7 @@
.return (skip_tests)
reset_skip_info:
- skip_info = new .Hash
+ skip_info = new 'Hash'
ret
set_skip_loop:
Index: t/compilers/pge/03-optable.t
===================================================================
--- t/compilers/pge/03-optable.t (revision 20629)
+++ t/compilers/pge/03-optable.t (working copy)
@@ -150,7 +150,7 @@
$P0 = match.get_array()
if null $P0 goto iter_end
unless $P0 goto iter_end
- iter = new .Iterator, $P0
+ iter = new 'Iterator', $P0
iter = 0
unless iter goto iter_end
iter_loop:
Index: t/compilers/pge/06-grammar.t
===================================================================
--- t/compilers/pge/06-grammar.t (revision 20629)
+++ t/compilers/pge/06-grammar.t (working copy)
@@ -27,14 +27,14 @@
test = new 'Test::Builder'
# PMCs to store TODO tests and reasons/descriptions
- todo_tests = new .Hash
- todo_desc = new .Hash
+ todo_tests = new 'Hash'
+ todo_desc = new 'Hash'
# PMCs to store grammars and expressions to test for each grammar
# also set description for that grammar
- grammar = new .ResizableStringArray
- expr = new .ResizablePMCArray
- description = new .ResizableStringArray
+ grammar = new 'ResizableStringArray'
+ expr = new 'ResizablePMCArray'
+ description = new 'ResizableStringArray'
.local int ok,n_grammars,n_tests
@@ -45,7 +45,7 @@
.local pmc targets
- targets = new .ResizableStringArray
+ targets = new 'ResizableStringArray'
push targets, '1313' # n1
push targets, ' 1414 ' # n2
@@ -56,7 +56,7 @@
EOF_SIMPLE_GRAMMAR
- targets = new .ResizableStringArray
+ targets = new 'ResizableStringArray'
push targets, '[1313]' # n3
push targets, '[ 1313 ]' # n4
push targets, '[ 1313 ]' # n5
@@ -67,7 +67,7 @@
EOF_SIMPLE_GRAMMAR
- targets = new .ResizableStringArray
+ targets = new 'ResizableStringArray'
push targets, '' # n6
push targets, '11' # n7
push targets, '11 12 13' # n8
@@ -79,7 +79,7 @@
EOF_SIMPLE_GRAMMAR
- targets = new .ResizableStringArray
+ targets = new 'ResizableStringArray'
push targets, '11 12 13' # n10
'test_grammar_against_targets'( <<'EOF_SIMPLE_GRAMMAR', targets, 'another
simple token/rule match with repetition using *' )
grammar Simple::Test;
@@ -87,7 +87,7 @@
token number { \d+ }
EOF_SIMPLE_GRAMMAR
- targets = new .ResizableStringArray
+ targets = new 'ResizableStringArray'
push targets, '11' # n11
push targets, '11 12 13' # n12
push targets, ' 11 12 13 14' # n13
@@ -97,7 +97,7 @@
token number { \d+ }
EOF_SIMPLE_GRAMMAR
- targets = new .ResizableStringArray
+ targets = new 'ResizableStringArray'
push targets, '11' # n14
push targets, '11 12 13' # n15
push targets, ' 11 12 13 ' # n16
Index: t/compilers/pge/02-match.t
===================================================================
--- t/compilers/pge/02-match.t (revision 20629)
+++ t/compilers/pge/02-match.t (working copy)
@@ -33,7 +33,7 @@
say $P2 # world
- $P3 = new .String
+ $P3 = new 'String'
$P3 = 'hello '
$P4 = n_concat $P3, $P2
@@ -50,7 +50,7 @@
.local pmc match, str, arr
load_bytecode 'PGE.pbc'
match = new 'PGE::Match'
- str = new .String
+ str = new 'String'
str = 'foo'
push match, str
arr = match.'get_array'()
