# New Ticket Created by Colin Kuskie
# Please include the string: [perl #44683]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=44683 >
In t/library/*.t, change .Class to the newer 'Class'
Index: t/library/streams.t
===================================================================
--- t/library/streams.t (revision 20629)
+++ t/library/streams.t (working copy)
@@ -395,7 +395,7 @@
.local pmc array
i = 0
- array = new .ResizablePMCArray
+ array = new 'ResizablePMCArray'
LOOP:
inc i
Index: t/library/cgi_query_hash.t
===================================================================
--- t/library/cgi_query_hash.t (revision 20629)
+++ t/library/cgi_query_hash.t (working copy)
@@ -40,7 +40,7 @@
# set up environment
.local pmc my_env
- my_env = new .Env
+ my_env = new 'Env'
ok( my_env, 'Got an .Env pmc' )
my_env['REQUEST_TYPE'] = 'GET'
Index: t/library/dumper.t
===================================================================
--- t/library/dumper.t (revision 20629)
+++ t/library/dumper.t (working copy)
@@ -619,11 +619,11 @@
.local pmc pmc_string, pmc_perl_string
.local string string_1
- pmc_string = new .String
+ pmc_string = new 'String'
pmc_string = "This is a String PMC"
push array, pmc_string
- pmc_perl_string = new .String
+ pmc_perl_string = new 'String'
pmc_perl_string = "This is a String PMC"
push array, pmc_perl_string
Index: t/library/getopt_obj.t
===================================================================
--- t/library/getopt_obj.t (revision 20629)
+++ t/library/getopt_obj.t (working copy)
@@ -28,7 +28,7 @@
.sub main :main
.local pmc argv
- argv = new .ResizablePMCArray
+ argv = new 'ResizablePMCArray'
push argv, '--foo=bar'
push argv, '--bar=3.14'
push argv, '--bax=3'
@@ -87,7 +87,7 @@
pir_output_is( <<'CODE', <<'OUT', "basic short options" );
.sub main :main
.local pmc argv
- argv = new .ResizablePMCArray
+ argv = new 'ResizablePMCArray'
push argv, '-f'
push argv, 'bar'
push argv, '-Abc'
@@ -135,7 +135,7 @@
pir_output_is( <<'CODE', <<'OUT', "simple array" );
.sub main :main
.local pmc argv
- argv = new .ResizablePMCArray
+ argv = new 'ResizablePMCArray'
push argv, '-Iinca'
push argv, '-Iincb'
@@ -169,7 +169,7 @@
pir_output_is( <<'CODE', <<'OUT', "mixing long and short with array" );
.sub main :main
.local pmc argv
- argv = new .ResizablePMCArray
+ argv = new 'ResizablePMCArray'
push argv, '-Iinca'
push argv, '--include=incb'
@@ -204,7 +204,7 @@
pir_output_is( <<'CODE', <<'OUT', "hash" );
.sub main :main
.local pmc argv
- argv = new .ResizablePMCArray
+ argv = new 'ResizablePMCArray'
push argv, '-Dfoo=bar'
push argv, '--define=bax=baz'
push argv, '-Dfoobar'
@@ -246,7 +246,7 @@
pir_output_is( <<'CODE', <<'OUT', "bundling short options" );
.sub main :main
.local pmc argv
- argv = new .ResizablePMCArray
+ argv = new 'ResizablePMCArray'
push argv, '-abc'
load_bytecode "Getopt/Obj.pir"
@@ -288,7 +288,7 @@
pir_output_is( <<'CODE', <<'OUT', "ignored options" );
.sub main :main
.local pmc argv
- argv = new .ResizablePMCArray
+ argv = new 'ResizablePMCArray'
push argv, '--ignore'
push argv, '--foo'
@@ -322,7 +322,7 @@
pir_output_is( <<'CODE', <<'OUT', "double dash stop" );
.sub main :main
.local pmc argv
- argv = new .ResizablePMCArray
+ argv = new 'ResizablePMCArray'
push argv, '--foo'
push argv, '--'
push argv, '--bar'
@@ -365,7 +365,7 @@
pir_output_is( <<'CODE', <<'OUT', "notOptStop" );
.sub main :main
.local pmc argv
- argv = new .ResizablePMCArray
+ argv = new 'ResizablePMCArray'
push argv, '--foo'
push argv, 'foo'
push argv, '--bar'
@@ -414,7 +414,7 @@
pir_output_is( <<'CODE', <<'OUT', "optarg" );
.sub main :main
.local pmc argv
- argv = new .ResizablePMCArray
+ argv = new 'ResizablePMCArray'
push argv, '--foo'
push argv, '-f'
push argv, '-bbar'
@@ -467,7 +467,7 @@
pir_output_is( <<'CODE', <<'OUT', "pass through" );
.sub main :main
.local pmc argv
- argv = new .ResizablePMCArray
+ argv = new 'ResizablePMCArray'
push argv, '--foo'
push argv, 'foo'
push argv, '--bar'
@@ -516,7 +516,7 @@
pir_output_is( <<'CODE', <<'OUT', "lone dash" );
.sub main :main
.local pmc argv
- argv = new .ResizablePMCArray
+ argv = new 'ResizablePMCArray'
push argv, '--foo'
push argv, '-'
push argv, '--bar'
@@ -558,7 +558,7 @@
pir_output_is( <<'CODE', <<'OUT', "push interface" );
.sub main :main
.local pmc argv
- argv = new .ResizablePMCArray
+ argv = new 'ResizablePMCArray'
push argv, '--foo=file'
push argv, '-bfile.txt'
push argv, '-x'
@@ -654,7 +654,7 @@
pir_error_output_like( <<'CODE', <<'OUT', "missing spec" );
.sub main :main
.local pmc argv
- argv = new .ResizablePMCArray
+ argv = new 'ResizablePMCArray'
push argv, '--foo=file'
load_bytecode "Getopt/Obj.pir"
.local pmc getopts
@@ -677,7 +677,7 @@
pir_error_output_like( <<'CODE', <<'OUT', "missing argument" );
.sub main :main
.local pmc argv
- argv = new .ResizablePMCArray
+ argv = new 'ResizablePMCArray'
push argv, '--foo=file'
push argv, '--bar'
load_bytecode "Getopt/Obj.pir"
Index: t/library/test_more.t
===================================================================
--- t/library/test_more.t (revision 20629)
+++ t/library/test_more.t (working copy)
@@ -8,7 +8,7 @@
find_type tb_type, 'Test::Builder'
.local pmc tb_args
- tb_args = new .Hash
+ tb_args = new 'Hash'
.local pmc test
test = new tb_type, tb_args
@@ -117,8 +117,8 @@
.local pmc left
.local pmc right
- left = new .String
- right = new .String
+ left = new 'String'
+ right = new 'String'
left = 'zero'
right = 'zero'
@@ -126,7 +126,7 @@
is( left, right )
test_test( 'passing test is() for pmcs')
- right = new .Integer
+ right = new 'Integer'
right = 0
test_fail()
test_diag( 'Received: zero' )
@@ -139,7 +139,7 @@
is( left, right, 'comparing two pmcs' )
test_test( 'passing test is() for pmcs with description')
- right = new .Hash
+ right = new 'Hash'
.local string expected
.local string hash_string
@@ -184,8 +184,8 @@
.sub test_is_deeply_array
.local pmc left
.local pmc right
- left = new .ResizablePMCArray
- right = new .ResizablePMCArray
+ left = new 'ResizablePMCArray'
+ right = new 'ResizablePMCArray'
push left, 7
push right, 7
@@ -228,8 +228,8 @@
.local pmc left
.local pmc right
- left = new .Hash
- right = new .Hash
+ left = new 'Hash'
+ right = new 'Hash'
test_pass()
is_deeply( left, right )
@@ -274,14 +274,14 @@
.local pmc left
.local pmc right
- left = new .Hash
- right = new .Hash
+ left = new 'Hash'
+ right = new 'Hash'
.local pmc left_array
.local pmc right_array
- left_array = new .Array
+ left_array = new 'Array'
left_array = 3
- right_array = new .Array
+ right_array = new 'Array'
right_array = 3
left[ 'array' ] = left_array
Index: t/library/iter.t
===================================================================
--- t/library/iter.t (revision 20629)
+++ t/library/iter.t (working copy)
@@ -7,10 +7,10 @@
.sub 'main' :main
load_bytecode 'Test/More.pir'
- $P0 = new .Env
+ $P0 = new 'Env'
$P0 = $P0['TEST_VERBOSE']
unless null $P0 goto set_verbose
- $P0 = new .Integer
+ $P0 = new 'Integer'
$P0 = 0
set_verbose:
store_global 'TEST_VERBOSE', $P0
@@ -58,7 +58,7 @@
.sub 'object_init'
T1:
- $P99 = new .FixedPMCArray
+ $P99 = new 'FixedPMCArray'
$P99 = 0
.local pmc iter
@@ -93,7 +93,7 @@
.sub 'FixedPMCArray_empty'
T1:
- $P99 = new .FixedPMCArray
+ $P99 = new 'FixedPMCArray'
$P99 = 0
.local pmc iter
@@ -137,7 +137,7 @@
.sub 'FixedPMCArray_3elem'
T1:
- $P99 = new .FixedPMCArray
+ $P99 = new 'FixedPMCArray'
$P99 = 3
$P99[0] = 'a'
$P99[1] = 'b'
@@ -229,7 +229,7 @@
.sub 'ResizablePMCArray_empty'
T1:
- $P99 = new .ResizablePMCArray
+ $P99 = new 'ResizablePMCArray'
$P99 = 0
.local pmc iter
@@ -273,7 +273,7 @@
.sub 'ResizablePMCArray_3elem'
T1:
- $P99 = new .ResizablePMCArray
+ $P99 = new 'ResizablePMCArray'
$P99 = 3
$P99[0] = 'a'
$P99[1] = 'b'
Index: t/library/coroutine.t
===================================================================
--- t/library/coroutine.t (revision 20629)
+++ t/library/coroutine.t (working copy)
@@ -39,12 +39,12 @@
.local pmc result
if depth goto deeper
- result = new .Undef
+ result = new 'Undef'
result = start
inc start
goto done
deeper:
- result = new .ResizablePMCArray
+ result = new 'ResizablePMCArray'
dec depth
.local int i
i = 0
Index: t/library/test_builder_tester.t
===================================================================
--- t/library/test_builder_tester.t (revision 20629)
+++ t/library/test_builder_tester.t (working copy)
@@ -7,7 +7,7 @@
find_type tb_type, 'Test::Builder'
.local pmc tb_args
- tb_args = new .Hash
+ tb_args = new 'Hash'
.local pmc test
test = new tb_type, tb_args
