develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35185 - trunk/t/pmc

From:
cotto
Date:
January 7, 2009 18:50
Subject:
[svn:parrot] r35185 - trunk/t/pmc
Message ID:
20090108025000.392F8CB9F9@x12.develooper.com
Author: cotto
Date: Wed Jan  7 18:49:58 2009
New Revision: 35185

Modified:
   trunk/t/pmc/exception.t
   trunk/t/pmc/exceptionhandler.t
   trunk/t/pmc/exporter.t
   trunk/t/pmc/file.t
   trunk/t/pmc/filehandle.t
   trunk/t/pmc/fixedbooleanarray.t
   trunk/t/pmc/fixedfloatarray.t
   trunk/t/pmc/fixedintegerarray.t
   trunk/t/pmc/fixedpmcarray.t

Log:
[t] more test updates


Modified: trunk/t/pmc/exception.t
==============================================================================
--- trunk/t/pmc/exception.t	(original)
+++ trunk/t/pmc/exception.t	Wed Jan  7 18:49:58 2009
@@ -37,7 +37,7 @@
 
 pir_output_is( <<'CODE', <<'OUTPUT', "push_eh - pop_eh, PMC exception handler" );
 .sub main :main
-    $P0 = new "ExceptionHandler"
+    $P0 = new ['ExceptionHandler']
     set_addr $P0, _handler
     push_eh $P0
     print "ok 1\n"
@@ -56,7 +56,7 @@
 pasm_output_is( <<'CODE', <<'OUTPUT', "push_eh - throw" );
     print "main\n"
     push_eh _handler
-    new P30, 'Exception'
+    new P30, ['Exception']
     throw P30
     print "not reached\n"
     end
@@ -70,10 +70,10 @@
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "push_eh - throw, PMC exception handler" );
     print "main\n"
-    new P20, "ExceptionHandler"
+    new P20, ['ExceptionHandler']
     set_addr P20, _handler
     push_eh P20
-    new P30, 'Exception'
+    new P30, ['Exception']
     throw P30
     print "not reached\n"
     end
@@ -88,8 +88,8 @@
 pasm_output_is( <<'CODE', <<'OUTPUT', "get_results" );
     print "main\n"
     push_eh handler
-    new P1, 'Exception'
-    new P2, 'String'
+    new P1, ['Exception']
+    new P2, ['String']
     set P2, "just pining"
     setattribute P1, 'message', P2
     throw P1
@@ -117,17 +117,17 @@
 pasm_output_is( <<'CODE', <<'OUTPUT', "exception attributes" );
     print "main\n"
     push_eh handler
-    new P1, 'Exception'
-    new P2, 'String'
+    new P1, ['Exception']
+    new P2, ['String']
     set P2, "just pining"
     setattribute P1, 'message', P2
-    new P3, 'Integer'
+    new P3, ['Integer']
     set P3, 5
     setattribute P1, 'severity', P3
-    new P4, 'String'
+    new P4, ['String']
     set P4, "additional payload"
     setattribute P1, 'payload', P4
-    new P5, 'Array'
+    new P5, ['Array']
     set P5, 2
     set P5[0], 'backtrace line 1'
     set P5[1], 'backtrace line 2'
@@ -172,10 +172,10 @@
 pasm_output_is( <<'CODE', <<'OUTPUT', "get_results - be sure registers are ok" );
 # see also #38459
     print "main\n"
-    new P0, 'Integer'
+    new P0, ['Integer']
     push_eh handler
-    new P1, 'Exception'
-    new P2, 'String'
+    new P1, ['Exception']
+    new P2, ['String']
     set P2, "just pining"
     setattribute P1, 'message', P2
     throw P1
@@ -196,8 +196,8 @@
 .sub main :main
     print "main\n"
     push_eh _handler
-    new $P1, 'Exception'
-    new $P2, 'String'
+    $P1 = new ['Exception']
+    $P2 = new ['String']
     set $P2, "just pining"
     setattribute $P1, 'message', $P2
     throw $P1
@@ -227,8 +227,8 @@
     print "main\n"
     push_eh _handler
 
-    new P30, 'Exception'
-    new P20, 'String'
+    new P30, ['Exception']
+    new P20, ['String']
     set P20, "something happened"
     setattribute P30, "message", P20
     throw P30
@@ -248,8 +248,8 @@
 OUTPUT
 
 pasm_error_output_like( <<'CODE', <<'OUTPUT', "throw - no handler" );
-    new P0, 'Exception'
-    new P20, 'String'
+    new P0, ['Exception']
+    new P20, ['String']
     set P20, "something happened"
     setattribute P0, "message", P20
     throw P0
@@ -261,7 +261,7 @@
 
 pasm_error_output_like( <<'CODE', <<'OUTPUT', "throw - no handler, no message" );
     push_eh _handler
-    new P0, 'Exception'
+    new P0, ['Exception']
     pop_eh
     throw P0
     print "not reached\n"
@@ -273,7 +273,7 @@
 OUTPUT
 
 pasm_error_output_like( <<'CODE', <<'OUTPUT', "throw - no handler, no message" );
-    new P0, 'Exception'
+    new P0, ['Exception']
     throw P0
     print "not reached\n"
     end
@@ -286,8 +286,8 @@
     push_eh _handler1
     push_eh _handler2
 
-    new P30, 'Exception'
-    new P20, 'String'
+    new P30, ['Exception']
+    new P20, ['String']
     set P20, "something happened"
     setattribute P30, "message", P20
     throw P30
@@ -318,8 +318,8 @@
     push_eh _handler1
     push_eh _handler2
 
-    new P30, 'Exception'
-    new P20, 'String'
+    new P30, ['Exception']
+    new P20, ['String']
     set P20, "something happened"
     setattribute P30, "message", P20
     throw P30
@@ -401,7 +401,7 @@
     print "main\n"
     push_eh handler
     print "ok\n"
-    new P30, 'Exception'
+    new P30, ['Exception']
     throw P30
     print "not reached\n"
     end
@@ -456,7 +456,7 @@
 .sub main :main
         $P0 = get_hll_global ['Foo'], 'load'
         $P0()
-        $P0 = new 'Foo'
+        $P0 = new ['Foo']
         push_eh catch
         $S0 = $P0
         pop_eh
@@ -475,7 +475,7 @@
 .end
 
 .sub get_string :vtable :method
-    $P0 = new 'Exception'
+    $P0 = new ['Exception']
     throw $P0
 .end
 CODE
@@ -487,7 +487,7 @@
     print "main\n"
     .const 'Sub' at_exit = "exit_handler"
     pushaction at_exit
-    $P0 = new 'Exception'
+    $P0 = new ['Exception']
     throw $P0
     .return()
 .end
@@ -511,7 +511,7 @@
     print "main\n"
     .const 'Sub' at_exit = "exit_handler"
     pushaction at_exit
-    $P1 = new 'Exception'
+    $P1 = new ['Exception']
     throw $P1
     print "never 1\n"
 h:
@@ -524,7 +524,7 @@
     .param int flag
     print "at_exit, flag = "
     say flag
-    $P2 = new 'Exception'
+    $P2 = new ['Exception']
     throw $P2
     print "never 2\n"
 .end
@@ -542,7 +542,7 @@
 .sub main :main
     .local pmc a
     .lex 'a', a
-    a = new 'Integer'
+    a = new ['Integer']
     a = 42
     push_eh handler
     exit 0
@@ -582,8 +582,8 @@
 .end
 
 .sub broken
-    $P0 = new 'Exception'
-    new $P2, 'String'
+    $P0 = new ['Exception']
+    new $P2, ['String']
     set $P2, "something broke"
     setattribute $P0, "message", $P2
     throw $P0
@@ -634,14 +634,14 @@
 .sub foo
     ## Take a continuation.
     .local pmc cont
-    cont = new 'Continuation'
+    cont = new ['Continuation']
     set_addr cont, over_there
     print "    returning from foo\n"
     .return (cont)
 over_there:
     print "    got over there.\n"
     .local pmc ex
-    ex = new 'Exception'
+    ex = new ['Exception']
     throw ex
 .end
 CODE
@@ -684,7 +684,7 @@
 
 .local pmc p, q
 
-    p = new 'Integer'
+    p = new ['Integer']
     set p, "0"
 
     push_eh handler

Modified: trunk/t/pmc/exceptionhandler.t
==============================================================================
--- trunk/t/pmc/exceptionhandler.t	(original)
+++ trunk/t/pmc/exceptionhandler.t	Wed Jan  7 18:49:58 2009
@@ -25,7 +25,7 @@
     plan(8)
 
     .local pmc eh
-    new eh, 'ExceptionHandler'
+    eh = new ['ExceptionHandler']
     ok(1, 'Instantiated ExceptionHandler')
 
     set_addr eh, nonfatal_handler_one
@@ -33,17 +33,17 @@
     eh.'max_severity'(.EXCEPT_WARNING)
     push_eh eh
 
-    new eh, 'ExceptionHandler'
+    eh = new ['ExceptionHandler']
     set_addr eh, error_handler_one
     eh.'min_severity'(.EXCEPT_ERROR)
     eh.'max_severity'(.EXCEPT_FATAL)
     push_eh eh
 
-    $P0 = new 'Exception'
+    $P0 = new ['Exception']
     $P0['severity'] = .EXCEPT_NORMAL
     throw $P0
 
-    $P0 = new 'Exception'
+    $P0 = new ['Exception']
     $P0['severity'] = .EXCEPT_SEVERE
     throw $P0
 
@@ -69,21 +69,21 @@
 
   more_tests:
 
-    new eh, 'ExceptionHandler'
+    eh = new ['ExceptionHandler']
     set_addr eh, typed_handler_one
     eh.'handle_types'(.CONTROL_OK, .CONTROL_BREAK)
     push_eh eh
 
-    new eh, 'ExceptionHandler'
+    eh = new ['ExceptionHandler']
     set_addr eh, typed_handler_two
     eh.'handle_types'(.EXCEPTION_SYNTAX_ERROR, .EXCEPTION_UNEXPECTED_NULL)
     push_eh eh
 
-    $P0 = new 'Exception'
+    $P0 = new ['Exception']
     $P0['type'] = .CONTROL_OK
     throw $P0
 
-    $P0 = new 'Exception'
+    $P0 = new ['Exception']
     $P0['type'] = .CONTROL_BREAK
     throw $P0
 
@@ -135,7 +135,7 @@
 .sub subclass_handler_pop
     .param pmc myhandler
     .local pmc eh
-    new eh, 'ExceptionHandler'
+    eh = new ['ExceptionHandler']
     set_addr eh, subclassed_popped
     push_eh eh
 
@@ -146,7 +146,7 @@
 
     pop_eh
 
-    $P0 = new 'Exception'
+    $P0 = new ['Exception']
     throw $P0
 
   subclassed_popped:
@@ -159,7 +159,7 @@
 .sub subclass_handler_catches_can
     .param pmc myhandler
     .local pmc eh
-    new eh, 'ExceptionHandler'
+    eh = new ['ExceptionHandler']
     set_addr eh, subclassed_failed
     push_eh eh
 
@@ -168,7 +168,7 @@
     set_addr myeh, subclassed_handler
     push_eh myeh
 
-    $P0 = new 'Exception'
+    $P0 = new ['Exception']
     throw $P0
 
   subclassed_failed:
@@ -181,7 +181,7 @@
 .sub subclass_handler_catches
     .param pmc myhandler
     .local pmc eh
-    new eh, 'ExceptionHandler'
+    eh = new ['ExceptionHandler']
     set_addr eh, subclassed_failed
     push_eh eh
 
@@ -190,7 +190,7 @@
     set_addr myeh, subclassed_handler
     push_eh myeh
 
-    $P0 = new 'Exception'
+    $P0 = new ['Exception']
     throw $P0
 
   subclassed_failed:

Modified: trunk/t/pmc/exporter.t
==============================================================================
--- trunk/t/pmc/exporter.t	(original)
+++ trunk/t/pmc/exporter.t	Wed Jan  7 18:49:58 2009
@@ -25,8 +25,8 @@
 # L<PDD17/Exporter PMC>
 pir_output_is( <<'CODE', <<'OUT', 'new' );
 .sub 'test' :main
-    $P0 = new 'Exporter'
-    say "ok 1 - $P0 = new 'Exporter'"
+    $P0 = new ['Exporter']
+    say "ok 1 - $P0 = new ['Exporter']"
 
     $I0 = isa $P0, 'Exporter'
     if $I0 goto ok_2
@@ -35,13 +35,13 @@
     say "ok 2 - isa $P0, 'Exporter'"
 .end
 CODE
-ok 1 - $P0 = new 'Exporter'
+ok 1 - $P0 = new ['Exporter']
 ok 2 - isa $P0, 'Exporter'
 OUT
 
 pir_output_is( <<'CODE', <<'OUT', 'source' );
 .sub 'test' :main
-    new $P0, 'Exporter'
+    $P0 = new ['Exporter']
     $P1 = $P0.'source'()
     if null $P1 goto ok_1
     print 'not '
@@ -93,7 +93,7 @@
 
 pir_output_is( <<'CODE', <<'OUT', 'destination' );
 .sub 'test' :main
-    new $P0, 'Exporter'
+    $P0 = new ['Exporter']
     $P1 = $P0.'destination'()
     unless null $P1 goto ok_1
     print 'not '
@@ -152,7 +152,7 @@
 
 pir_output_is( <<'CODE', <<'OUT', 'globals' );
 .sub 'test' :main
-    $P0 = new 'Exporter'
+    $P0 = new ['Exporter']
 
     $P1 = $P0.'globals'()
     $I0 = isnull $P1
@@ -162,7 +162,7 @@
     say 'ok 1 - globals() returns PMCNULL upon Exporter init'
 
     # create an array to store globals in
-    $P99 = new 'ResizableStringArray'
+    $P99 = new ['ResizableStringArray']
 
     $P0.'globals'($P99)
     $P1 = $P0.'globals'()
@@ -193,7 +193,7 @@
     say 'ok 3 - globals() with array arg sets globals hash (hash with two keys)'
 
     # create a hash to store globals in
-    $P99 = new 'Hash'
+    $P99 = new ['Hash']
 
     $P0.'globals'($P99)
     $P1 = $P0.'globals'()
@@ -245,7 +245,7 @@
 
 pir_error_output_like( <<'CODE', <<'OUT', 'import - no args' );
 .sub 'test' :main
-    $P0 = new 'Exporter'
+    $P0 = new ['Exporter']
 
     $P0.'import'()
     say 'ok 1 - import() with no args throws an exception'
@@ -261,7 +261,7 @@
 
     src      = get_namespace
 
-    exporter = new 'Exporter'
+    exporter = new ['Exporter']
     exporter.'import'( src :named('source'), src :named('destination'), 'plan ok' :named('globals') )
     plan(1)
     ok(1)
@@ -288,7 +288,7 @@
 
     src      = get_namespace [ 'Test'; 'More' ]
 
-    exporter = new 'Exporter'
+    exporter = new ['Exporter']
     exporter.'import'( src :named('source'), 'plan ok' :named('globals') )
     plan(1)
     ok(1)
@@ -305,7 +305,7 @@
 
     src      = get_namespace [ 'Test'; 'More' ]
 
-    exporter = new 'Exporter'
+    exporter = new ['Exporter']
     exporter.'source'( src )
     exporter.'import'( 'plan ok' :named('globals') )
     plan(1)
@@ -322,11 +322,11 @@
     .local pmc exporter, src, globals
 
     src     = get_namespace [ 'Test'; 'More' ]
-    globals = new 'ResizableStringArray'
+    globals = new ['ResizableStringArray']
     globals = push 'ok'
     globals = push 'plan'
 
-    exporter = new 'Exporter'
+    exporter = new ['Exporter']
     exporter.'import'( src :named('source'), globals :named('globals') )
     plan(1)
     ok(1)
@@ -341,13 +341,13 @@
     load_bytecode 'Test/More.pir'
     .local pmc exporter, src, globals, nul
 
-    nul     = new 'Null'
+    nul     = new ['Null']
     src     = get_namespace [ 'Test'; 'More' ]
-    globals = new 'Hash'
+    globals = new ['Hash']
     globals['ok'] = nul
     globals['plan'] = ''
 
-    exporter = new 'Exporter'
+    exporter = new ['Exporter']
     exporter.'import'( src :named('source'), globals :named('globals') )
     plan(1)
     ok(1)
@@ -363,11 +363,11 @@
     .local pmc exporter, src, globals
 
     src     = get_namespace [ 'Test'; 'More' ]
-    globals = new 'Hash'
+    globals = new ['Hash']
     globals['plan'] = 'consilium'
     globals['ok'] = 'rectus'
 
-    exporter = new 'Exporter'
+    exporter = new ['Exporter']
     exporter.'import'( src :named('source'), globals :named('globals') )
     consilium(1)
     rectus(1)
@@ -384,11 +384,11 @@
 
     src     = get_namespace [ 'Test'; 'More' ]
     dest    = get_namespace ['foo']
-    globals = new 'ResizableStringArray'
+    globals = new ['ResizableStringArray']
     globals = push 'ok'
     globals = push 'plan'
 
-    exporter = new 'Exporter'
+    exporter = new ['Exporter']
     exporter.'import'( src :named('source'), dest :named('destination'), globals :named('globals') )
 
     $P0 = get_global ['foo'], 'bar'

Modified: trunk/t/pmc/file.t
==============================================================================
--- trunk/t/pmc/file.t	(original)
+++ trunk/t/pmc/file.t	Wed Jan  7 18:49:58 2009
@@ -47,7 +47,7 @@
 # test is_dir
 pir_output_is( <<"CODE", <<"OUT", "Test is_dir" );
 .sub main :main
-        \$P1 = new 'File'
+        \$P1 = new ['File']
 
         \$S1 = '$xpto'
         \$I1 = \$P1."is_dir"(\$S1)
@@ -78,7 +78,7 @@
 # test is_dir
 pir_error_output_like( <<"CODE", <<"OUT", "Test is_dir error" );
 .sub main :main
-        \$P1 = new 'File'
+        \$P1 = new ['File']
 
         #make a filename that's long enough to cause lstat to fail
         \$I0 = 1000
@@ -98,7 +98,7 @@
 # test is_file
 pir_output_is( <<"CODE", <<"OUT", "Test is_file" );
 .sub main :main
-        \$P1 = new 'File'
+        \$P1 = new ['File']
 
         \$S1 = '$xpto'
         \$I1 = \$P1."is_file"(\$S1)
@@ -129,7 +129,7 @@
 # test is_file
 pir_error_output_like( <<"CODE", <<"OUT", "Test is_file error" );
 .sub main :main
-        \$P1 = new 'File'
+        \$P1 = new ['File']
 
         #make a filename that's long enough to cause lstat to fail
         \$I0 = 1000
@@ -155,7 +155,7 @@
     # test is_link
     pir_output_is( <<"CODE", <<"OUT", "Test is_link with links to files" );
 .sub main :main
-        \$P1 = new 'File'
+        \$P1 = new ['File']
 
         \$S1 = '$lotpx'
         \$I1 = \$P1."is_link"(\$S1)
@@ -190,7 +190,7 @@
     # test is_link
     pir_output_is( <<"CODE", <<"OUT", "Test is_link with links to directories" );
 .sub main :main
-        \$P1 = new 'File'
+        \$P1 = new ['File']
 
         \$S1 = '$xptol'
         \$I1 = \$P1."is_link"(\$S1)
@@ -223,8 +223,8 @@
        \$S1 = '$otpx'
        \$S2 = '$otpxcopy'
 
-       \$P1 = new 'File'
-       \$P2 = new 'OS'
+       \$P1 = new ['File']
+       \$P2 = new ['OS']
 
        \$P1."copy"(\$S1,\$S2)
        print "ok\\n"
@@ -256,8 +256,8 @@
        \$S1 = '$otpx'
        \$S2 = '$otpxcopy'
 
-       \$P1 = new 'File'
-       \$P2 = new 'OS'
+       \$P1 = new ['File']
+       \$P2 = new ['OS']
 
        \$P3 = \$P2."stat"(\$S1)
        \$I1 = \$P3[7]
@@ -286,7 +286,7 @@
 # test exists
 pir_output_is( <<"CODE", <<"OUT", "Test rename for files" );
 .sub main :main
-       \$P1 = new 'File'
+       \$P1 = new ['File']
        \$I1 = \$P1.'exists'( '$otpxcopy' )
 
        if \$I1 goto file_exists

Modified: trunk/t/pmc/filehandle.t
==============================================================================
--- trunk/t/pmc/filehandle.t	(original)
+++ trunk/t/pmc/filehandle.t	Wed Jan  7 18:49:58 2009
@@ -28,11 +28,11 @@
 # L<PDD22/I\/O PMC API/=item new>
 pir_output_is( <<'CODE', <<'OUT', 'new' );
 .sub 'test' :main
-    new $P0, 'FileHandle'
-    say "ok 1 - $P0 = new 'FileHandle'"
+    $P0 = new ['FileHandle']
+    say "ok 1 - $P0 = new ['FileHandle']"
 .end
 CODE
-ok 1 - $P0 = new 'FileHandle'
+ok 1 - $P0 = new ['FileHandle']
 OUT
 
 my (undef, $temp_file) = create_tempfile( UNLINK => 1 );
@@ -40,14 +40,14 @@
 # L<PDD22/I\/O PMC API/=item open.*=item close>
 pir_output_is( <<"CODE", <<'OUT', 'open and close - synchronous' );
 .sub 'test' :main
-    \$P1 = new 'FileHandle'
+    \$P1 = new ['FileHandle']
     \$P1.'open'('README')
     say 'ok 1 - \$P1.open(\$S1)'
 
     \$P1.'close'()
     say 'ok 2 - \$P1.close()'
 
-    \$P3 = new 'FileHandle'
+    \$P3 = new ['FileHandle']
     \$P3.'open'('$temp_file', 'rw')
     say 'ok 3 - \$P3.open(\$S1, \$S2) # rw mode'
     \$P3.'close'()
@@ -57,19 +57,19 @@
     \$P3.'close'()
 
   test_5:
-    \$P5 = new 'FileHandle'
+    \$P5 = new ['FileHandle']
     push_eh eh_bad_file_1
     \$P5.'open'('bad.file')
     pop_eh
 
   test_6:
-    \$P6 = new 'FileHandle'
+    \$P6 = new ['FileHandle']
     push_eh eh_bad_file_2
     \$P6.'open'('bad.file', 'r')
     pop_eh
 
   test_7:
-    \$P7 = new 'FileHandle'
+    \$P7 = new ['FileHandle']
     \$P7.'open'('$temp_file', 'w')
     say 'ok 7 - \$P7.open(\$S1, \$S2) # new file, write mode succeeds'
 
@@ -103,7 +103,7 @@
     pir_output_is( <<'CODE', <<'OUT', 'open and close - asynchronous' );
 .sub 'test' :main
     $P1 = # RT #46831 create a callback here
-    $P0 = new 'FileHandle'
+    $P0 = new ['FileHandle']
 
     $P0.'open'('README')
     say 'ok 1 - $P0.open($S1)'
@@ -133,7 +133,7 @@
 pir_output_is(
     <<'CODE', <<'OUT', 'read - synchronous' );
 .sub 'test' :main
-    $P0 = new 'FileHandle'
+    $P0 = new ['FileHandle']
     $P0.'open'('README')
 
     $S0 = $P0.'read'(14) # bytes
@@ -157,7 +157,7 @@
 pir_output_is( <<"CODE", <<'OUT', 'print - synchronous' );
 .sub 'test' :main
 
-    \$P0 = new 'FileHandle'
+    \$P0 = new ['FileHandle']
     \$P0.'open'('$temp_file', 'w')
 
     \$P0.'print'(123)
@@ -166,14 +166,14 @@
     say 'ok 2 - \$P0.print(\$N1)'
     \$P0.'print'("squawk\\n")
     say 'ok 3 - \$P0.print(\$S1)'
-    \$P1 = new 'Integer'
+    \$P1 = new ['Integer']
     \$P1 = 42
     \$P0.'print'(\$P1)
     say 'ok 4 - \$P0.print(\$P1)'
 
     \$P0.'close'()
 
-    \$P1 = new 'FileHandle'
+    \$P1 = new ['FileHandle']
     \$P1.'open'('$temp_file', 'r')
 
     \$S0 = \$P1.'read'(3) # bytes
@@ -210,12 +210,12 @@
     .local pmc chomp
                chomp = get_global ['String';'Utils'], 'chomp'
 
-    \$P0 = new 'FileHandle'
+    \$P0 = new ['FileHandle']
     \$P0.'open'('$temp_file', 'w')
     \$P0.'print'("foobarbaz\\n42")
     \$P0.'close'()
 
-    \$P1 = new 'FileHandle'
+    \$P1 = new ['FileHandle']
     \$P1.'open'('$temp_file')
 
     \$S0 = \$P1.'readline'()
@@ -255,7 +255,7 @@
     .local string test_line
     .local pmc filehandle
     .local int counter
-    filehandle = new 'FileHandle'
+    filehandle = new ['FileHandle']
     filehandle.'open'('$temp_file')
 
     counter = 0
@@ -301,7 +301,7 @@
 # L<PDD22/I\/O PMC API/=item record_separator>
 pir_output_is( <<'CODE', <<'OUT', 'record_separator', todo => 'not yet implemented' );
 .sub 'test' :main
-    $P0 = new 'FileHandle'
+    $P0 = new ['FileHandle']
 
     $S0 = $P0.'record_separator'()
     if $S0 == "\n" goto ok_1
@@ -337,7 +337,7 @@
 # L<PDD22/I\/O PMC API/=item buffer_type>
 pir_output_is( <<'CODE', <<'OUT', 'buffer_type' );
 .sub 'test' :main
-    $P0 = new 'FileHandle'
+    $P0 = new ['FileHandle']
 
     $P0.'buffer_type'('unbuffered')
     $S0 = $P0.'buffer_type'()
@@ -380,7 +380,7 @@
 
 pir_output_is( <<"CODE", <<'OUT', 'buffer_size' );
 .sub 'test' :main
-    \$P0 = new 'FileHandle'
+    \$P0 = new ['FileHandle']
 
     \$P0.'buffer_type'('full-buffered')
     \$P0.'buffer_size'(42)
@@ -401,7 +401,7 @@
     \$P0.'print'(1234567890)
     \$P0.'close'()
 
-    \$P1 = new 'FileHandle'
+    \$P1 = new ['FileHandle']
     \$P1.'open'('$temp_file')
 
     \$S0 = \$P1.'readline'()
@@ -423,7 +423,7 @@
 # L<PDD22/I\/O PMC API/=item encoding>
 pir_output_is( <<'CODE', <<'OUT', 'encoding' );
 .sub 'test' :main
-    $P0 = new 'FileHandle'
+    $P0 = new ['FileHandle']
 
     $P0.'encoding'('utf8')
     $S0 = $P0.'encoding'()
@@ -441,7 +441,7 @@
 
 pir_output_is( <<"CODE", <<'OUT', 'encoding - read/write' );
 .sub 'test' :main
-    \$P0 = new 'FileHandle'
+    \$P0 = new ['FileHandle']
     \$P0.'encoding'('utf8')
 
     \$P0.'open'('$temp_file', 'w')
@@ -452,7 +452,7 @@
     \$P0.'print'(\$S0)
     \$P0.'close'()
 
-    \$P1 = new 'FileHandle'
+    \$P1 = new ['FileHandle']
     \$P1.'encoding'('utf8')
 
     \$P1.'open'('$temp_file')
@@ -485,7 +485,7 @@
 # L<PDD22/I\/O PMC API/=item mode>
 pir_output_is( <<'CODE', <<'OUT', 'mode' );
 .sub 'test' :main
-    $P0 = new 'FileHandle'
+    $P0 = new ['FileHandle']
 
     $P0.'open'('README')
     $S0 = $P0.'mode'()
@@ -510,11 +510,11 @@
 line 3
 EOS
     .local pmc pio, pio2
-    pio = new 'FileHandle'
+    pio = new ['FileHandle']
     pio.'open'("$temp_file", "w")
     pio.'print'(\$S0)
     pio.'close'()
-    pio2 = new 'FileHandle'
+    pio2 = new ['FileHandle']
     \$S1 = pio2.'readall'('$temp_file')
     if \$S0 == \$S1 goto ok
     print "not "
@@ -533,12 +533,12 @@
 line 3
 EOS
     .local pmc pio, pio2
-    pio = new 'FileHandle'
+    pio = new ['FileHandle']
     pio.'open'("$temp_file", "w")
     pio.'print'(\$S0)
     pio.'close'()
 
-    pio2 = new 'FileHandle'
+    pio2 = new ['FileHandle']
     pio2.'open'("$temp_file", "r")
     \$S1 = pio2.'readall'()
     if \$S0 == \$S1 goto ok
@@ -553,7 +553,7 @@
 pir_output_is( <<"CODE", <<"OUTPUT", "readall() - utf8 on closed filehandle" );
 .sub 'main'
     .local pmc ifh
-    ifh = new 'FileHandle'
+    ifh = new ['FileHandle']
     ifh.'encoding'('utf8')
    
     \$S0 = ifh.'readall'('$temp_file')
@@ -570,7 +570,7 @@
 pir_output_is( <<"CODE", <<"OUTPUT", "readall() - utf8 on opened filehandle" );
 .sub 'main'
     .local pmc ifh
-    ifh = new 'FileHandle'
+    ifh = new ['FileHandle']
     ifh.'encoding'('utf8')
     ifh.'open'('$temp_file')
 

Modified: trunk/t/pmc/fixedbooleanarray.t
==============================================================================
--- trunk/t/pmc/fixedbooleanarray.t	(original)
+++ trunk/t/pmc/fixedbooleanarray.t	Wed Jan  7 18:49:58 2009
@@ -24,7 +24,7 @@
 =cut
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting array size" );
-    new P0, 'FixedBooleanArray'
+    new P0, ['FixedBooleanArray']
 
     set I0,P0
     eq I0,0,OK_1
@@ -44,7 +44,7 @@
 OUTPUT
 
 pasm_error_output_like( <<'CODE', <<'OUTPUT', "Resetting array size (and getting an exception)" );
-    new P0, 'FixedBooleanArray'
+    new P0, ['FixedBooleanArray']
 
     set I0,P0
     set P0,1
@@ -61,7 +61,7 @@
 #VIM's syntax highlighter needs this line
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting first element" );
-    new P0, 'FixedBooleanArray'
+    new P0, ['FixedBooleanArray']
     set P0, 1
 
     set P0[0],-7
@@ -90,7 +90,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting second element" );
-    new P0, 'FixedBooleanArray'
+    new P0, ['FixedBooleanArray']
     set P0, 2
 
     set P0[1], -7
@@ -119,7 +119,7 @@
 OUTPUT
 
 pasm_error_output_like( <<'CODE', <<'OUTPUT', "Setting out-of-bounds elements" );
-    new P0, 'FixedBooleanArray'
+    new P0, ['FixedBooleanArray']
     set P0, 1
 
     set P0[1], -7
@@ -131,7 +131,7 @@
 OUTPUT
 
 pasm_error_output_like( <<'CODE', <<'OUTPUT', "Getting out-of-bounds elements" );
-    new P0, 'FixedBooleanArray'
+    new P0, ['FixedBooleanArray']
     set P0, 1
 
     set I0, P0[1]
@@ -143,9 +143,9 @@
 
 pasm_output_is( <<"CODE", <<'OUTPUT', "Set via PMC keys, access via INTs" );
      .include 'include/fp_equality.pasm'
-     new P0, 'FixedBooleanArray'
+     new P0, ['FixedBooleanArray']
      set P0, 3
-     new P1, 'Key'
+     new P1, ['Key']
 
      set P1, 0
      set P0[P1], 25
@@ -180,17 +180,17 @@
 
 pasm_output_is( <<"CODE", <<'OUTPUT', "Set via INTs, access via PMC Keys" );
      .include 'include/fp_equality.pasm'
-     new P0, 'FixedBooleanArray'
+     new P0, ['FixedBooleanArray']
      set P0, 1024
 
      set P0[25], 125
      set P0[128], 10.2
      set P0[513], "17"
-     new P1, 'Integer'
+     new P1, ['Integer']
      set P1, 123456
      set P0[1023], P1
 
-     new P2, 'Key'
+     new P2, ['Key']
      set P2, 25
      set I0, P0[P2]
      eq I0, 1, OK1
@@ -228,7 +228,7 @@
 
 .sub _main
     .local pmc pmc1
-    pmc1 = new 'FixedBooleanArray'
+    pmc1 = new ['FixedBooleanArray']
     .local int bool1
     does bool1, pmc1, "scalar"
     print bool1
@@ -248,7 +248,7 @@
 OUTPUT
 
 pasm_output_is( << 'CODE', << 'OUTPUT', "Truth" );
-     new P0, 'FixedBooleanArray'
+     new P0, ['FixedBooleanArray']
      unless P0, OK1
      print "not "
 OK1: print "ok 1\n"
@@ -268,11 +268,11 @@
 OUTPUT
 
 pasm_output_is( << 'CODE', << 'OUTPUT', "PMC keys & values" );
-     new P0, 'FixedBooleanArray'
+     new P0, ['FixedBooleanArray']
      set P0, 2
-     new P1, 'Key'
+     new P1, ['Key']
      set P1, 1
-     new P2, 'Integer'
+     new P2, ['Integer']
      set P2, 1
      set P0[P1], P2
      set I0, P0[P1]
@@ -289,7 +289,7 @@
     .local int i
     .local string s
 
-    fba = new 'FixedBooleanArray'
+    fba = new ['FixedBooleanArray']
     fba = 17
 
     fba[1]  = 1
@@ -317,7 +317,7 @@
     .local int i
     .local string s
 
-    fba1 = new 'FixedBooleanArray'
+    fba1 = new ['FixedBooleanArray']
     fba1 = 17
 
     fba1[1]  = 1

Modified: trunk/t/pmc/fixedfloatarray.t
==============================================================================
--- trunk/t/pmc/fixedfloatarray.t	(original)
+++ trunk/t/pmc/fixedfloatarray.t	Wed Jan  7 18:49:58 2009
@@ -18,8 +18,8 @@
 =cut
 
 .sub main :main
-    .include 'include/fp_equality.pasm'
-    .include 'include/test_more.pir'
+    .include 'fp_equality.pasm'
+    .include 'test_more.pir'
     plan(24)
 
     array_size_tests()
@@ -32,7 +32,7 @@
 .end
 
 .sub array_size_tests
-    new $P0, 'FixedFloatArray'
+    $P0 = new ['FixedFloatArray']
 
     set $I0,$P0
     is($I0, 0, "initial size is 0")
@@ -53,7 +53,7 @@
 
 
 .sub element_set_tests
-    new $P0, 'FixedFloatArray'
+    $P0 = new ['FixedFloatArray']
     set $P0, 1
 
     set $P0[0],-7
@@ -68,7 +68,7 @@
     set $S0,$P0[0]
     is($S0, "17.2", "ok")
 
-    new $P0, 'FixedFloatArray'
+    $P0 = new ['FixedFloatArray']
     set $P0, 2
 
     set $P0[1], -7
@@ -86,7 +86,7 @@
 .end
 
 .sub oob_tests
-    new $P0, 'FixedFloatArray'
+    $P0 = new ['FixedFloatArray']
     set $P0, 1
 
     push_eh eh1
@@ -110,9 +110,9 @@
 
 
 .sub set_and_get_tests
-     new $P0, 'FixedFloatArray'
+     $P0 = new ['FixedFloatArray']
      set $P0, 3
-     new $P1, 'Key'
+     $P1 = new ['Key']
 
      set $P1, 0
      set $P0[$P1], 25
@@ -136,17 +136,17 @@
      is($S0, "17.32", "set string via PMC Key, get via int")
 
 
-     new $P0, 'FixedFloatArray'
+     $P0 = new ['FixedFloatArray']
      set $P0, 1024
 
      set $P0[25], 125
      set $P0[128], 10.2
      set $P0[513], "17.3"
-     new $P1, 'Integer'
+     $P1 = new ['Integer']
      set $P1, 123456
      set $P0[1023], $P1
 
-     new $P2, 'Key'
+     $P2 = new ['Key']
      set $P2, 25
      set $I0, $P0[$P2]
      is($I0, 125, "set int via int, get via PMC Key")
@@ -173,7 +173,7 @@
 
 .sub clone_tests
      set $I30, 2000
-     new $P0, 'FixedFloatArray'
+     $P0 = new ['FixedFloatArray']
      set $P0, $I30
      set $I0, 0
 L1:  set $N0, $I0
@@ -200,7 +200,7 @@
 
 
 .sub what_is_truth
-    new $P0, 'FixedFloatArray'
+    $P0 = new ['FixedFloatArray']
     $I0 = $P0
     is($I0, 0, "an empty FixedFloatArray is false")
     set $P0, 1
@@ -211,7 +211,7 @@
 
 .sub interface_check
     .local pmc p
-    p = new 'FixedFloatArray'
+    p = new ['FixedFloatArray']
     .local int b
     does b, p, "scalar"
     is(b, 0, "FFA does not do scalar")

Modified: trunk/t/pmc/fixedintegerarray.t
==============================================================================
--- trunk/t/pmc/fixedintegerarray.t	(original)
+++ trunk/t/pmc/fixedintegerarray.t	Wed Jan  7 18:49:58 2009
@@ -24,7 +24,7 @@
 =cut
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting array size" );
-    new P0, 'FixedIntegerArray'
+    new P0, ['FixedIntegerArray']
 
     set I0,P0
     eq I0,0,OK_1
@@ -44,7 +44,7 @@
 OUTPUT
 
 pasm_error_output_like( <<'CODE', <<'OUTPUT', "Resetting array size (and getting an exception)" );
-    new P0, 'FixedIntegerArray'
+    new P0, ['FixedIntegerArray']
 
     set I0,P0
     set P0,1
@@ -61,7 +61,7 @@
 #VIM's syntax highlighter needs this line
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting first element" );
-    new P0, 'FixedIntegerArray'
+    new P0, ['FixedIntegerArray']
     set P0, 1
 
     set P0[0],-7
@@ -90,7 +90,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting second element" );
-    new P0, 'FixedIntegerArray'
+    new P0, ['FixedIntegerArray']
     set P0, 2
 
     set P0[1], -7
@@ -119,7 +119,7 @@
 OUTPUT
 
 pasm_error_output_like( <<'CODE', <<'OUTPUT', "Setting out-of-bounds elements" );
-    new P0, 'FixedIntegerArray'
+    new P0, ['FixedIntegerArray']
     set P0, 1
 
     set P0[1], -7
@@ -131,7 +131,7 @@
 OUTPUT
 
 pasm_error_output_like( <<'CODE', <<'OUTPUT', "Getting out-of-bounds elements" );
-    new P0, 'FixedIntegerArray'
+    new P0, ['FixedIntegerArray']
     set P0, 1
 
     set I0, P0[1]
@@ -142,7 +142,7 @@
 OUTPUT
 
 pasm_error_output_like( <<'CODE', <<'OUTPUT', "Getting out-of-bounds elements, I" );
-    new P0, 'FixedIntegerArray'
+    new P0, ['FixedIntegerArray']
     set P0, 1
     set I1, 1
     set I0, P0[I1]
@@ -153,7 +153,7 @@
 OUTPUT
 
 pasm_error_output_like( <<'CODE', <<'OUTPUT', "Getting out-of-bounds elements, -I" );
-    new P0, 'FixedIntegerArray'
+    new P0, ['FixedIntegerArray']
     set P0, 1
     set I1, -1
     set I0, P0[I1]
@@ -165,9 +165,9 @@
 
 pasm_output_is( <<"CODE", <<'OUTPUT', "Set via PMC keys, access via INTs" );
      .include 'include/fp_equality.pasm'
-     new P0, 'FixedIntegerArray'
+     new P0, ['FixedIntegerArray']
      set P0, 3
-     new P1, 'Key'
+     new P1, ['Key']
 
      set P1, 0
      set P0[P1], 25
@@ -202,17 +202,17 @@
 
 pasm_output_is( <<"CODE", <<'OUTPUT', "Set via INTs, access via PMC Keys" );
      .include 'include/fp_equality.pasm'
-     new P0, 'FixedIntegerArray'
+     new P0, ['FixedIntegerArray']
      set P0, 1024
 
      set P0[25], 125
      set P0[128], 10.2
      set P0[513], "17"
-     new P1, 'Integer'
+     new P1, ['Integer']
      set P1, 123456
      set P0[1023], P1
 
-     new P2, 'Key'
+     new P2, ['Key']
      set P2, 25
      set I0, P0[P2]
      eq I0, 125, OK1
@@ -250,7 +250,7 @@
 
 .sub _main
     .local pmc pmc1
-    pmc1 = new 'FixedIntegerArray'
+    pmc1 = new ['FixedIntegerArray']
     .local int bool1
     does bool1, pmc1, "scalar"
     print bool1

Modified: trunk/t/pmc/fixedpmcarray.t
==============================================================================
--- trunk/t/pmc/fixedpmcarray.t	(original)
+++ trunk/t/pmc/fixedpmcarray.t	Wed Jan  7 18:49:58 2009
@@ -24,7 +24,7 @@
 =cut
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting array size" );
-    new P0,'FixedPMCArray'
+    new P0, ['FixedPMCArray']
 
     set I0,P0
     eq I0,0,OK_1
@@ -44,7 +44,7 @@
 OUTPUT
 
 pasm_error_output_like( <<'CODE', <<'OUTPUT', "Resetting array size (and getting an exception)" );
-    new P0, 'FixedPMCArray'
+    new P0, ['FixedPMCArray']
 
     set I0,P0
     set P0,1
@@ -61,7 +61,7 @@
 #VIM's syntax highlighter needs this line
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Truth and falsehood" );
-        new P0, 'FixedPMCArray'
+        new P0, ['FixedPMCArray']
 
         set P0, 0
         if P0, NOK_1
@@ -90,7 +90,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting first element" );
-        new P0, 'FixedPMCArray'
+        new P0, ['FixedPMCArray']
         set P0, 1
 
     set P0[0],-7
@@ -119,7 +119,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting second element" );
-        new P0, 'FixedPMCArray'
+        new P0, ['FixedPMCArray']
         set P0, 2
 
     set P0[1], -7
@@ -148,7 +148,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting negatively indexed elements" );
-    new P0, 'FixedPMCArray'
+    new P0, ['FixedPMCArray']
     set P0, 1
 
     push_eh caught
@@ -164,7 +164,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Getting negatively indexed elements" );
-    new P0, 'FixedPMCArray'
+    new P0, ['FixedPMCArray']
     set P0, 1
 
     push_eh caught
@@ -181,7 +181,7 @@
 
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting out-of-bounds elements" );
-    new P0, 'FixedPMCArray'
+    new P0, ['FixedPMCArray']
     set P0, 1
 
     push_eh caught
@@ -197,7 +197,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Getting out-of-bounds elements" );
-    new P0, 'FixedPMCArray'
+    new P0, ['FixedPMCArray']
     set P0, 1
 
     push_eh caught
@@ -214,9 +214,9 @@
 
 pasm_output_is( <<"CODE", <<'OUTPUT', "Set via PMC keys, access via INTs" );
      .include 'include/fp_equality.pasm'
-     new P0, 'FixedPMCArray'
+     new P0, ['FixedPMCArray']
      set P0, 3
-     new P1, 'Key'
+     new P1, ['Key']
 
      set P1, 0
      set P0[P1], 25
@@ -251,17 +251,17 @@
 
 pasm_output_is( <<"CODE", <<'OUTPUT', "Set via INTs, access via PMC Keys" );
      .include 'include/fp_equality.pasm'
-     new P0, 'FixedPMCArray'
+     new P0, ['FixedPMCArray']
      set P0, 1024
 
      set P0[25], 125
      set P0[128], 10.2
      set P0[513], "cow"
-     new P1, 'Integer'
+     new P1, ['Integer']
      set P1, 123456
      set P0[1023], P1
 
-     new P2, 'Key'
+     new P2, ['Key']
      set P2, 25
      set I0, P0[P2]
      eq I0, 125, OK1
@@ -302,7 +302,7 @@
      .local pmc compares, cmp_fun
      # RT #46855 doesnt work wit prederef of JIT
      bounds 1
-     compares = new 'Integer'
+     compares = new ['Integer']
      compares = 0
      set_global "compares", compares
     cmp_fun = get_global "cmp_fun"
@@ -315,7 +315,7 @@
     compares = get_global "compares"
     compares = 0
     .local pmc ar
-    new ar, 'FixedPMCArray'
+    ar = new ['FixedPMCArray']
     ar = 5
     ar[0] = 10
     ar[1] = 2
@@ -365,7 +365,7 @@
 
 .sub _main
     .local pmc pmc1
-    pmc1 = new 'FixedPMCArray'
+    pmc1 = new ['FixedPMCArray']
     .local int bool1
     does bool1, pmc1, "scalar"
     print bool1
@@ -388,7 +388,7 @@
 
 .sub main :main
     .local pmc arr1
-    arr1 = new 'FixedPMCArray'
+    arr1 = new ['FixedPMCArray']
     arr1 = 2005
     .local pmc elem_1956
     elem_1956 = arr1[1956]
@@ -410,14 +410,14 @@
     .local num    elem_out_num
     .local string elem_out_string
 
-    matrix = new 'FixedPMCArray'
+    matrix = new ['FixedPMCArray']
     matrix = 1
-    row = new 'FixedPMCArray'
+    row = new ['FixedPMCArray']
     row = 4           # assing with an integer, number, pmc, string
     matrix[0] = row
     matrix[0;0] = 128
     matrix[0;1] = 128.128
-    elem_in_pmc = new 'Integer'
+    elem_in_pmc = new ['Integer']
     elem_in_pmc = 256
     matrix[0;2] = elem_in_pmc
     matrix[0;3] = "asdf"
@@ -520,8 +520,8 @@
 .sub main :main
     .local pmc fpa1, fpa2, p1, p2
     .local int i
-    fpa1 = new 'FixedPMCArray'
-    fpa2 = new 'FixedPMCArray'
+    fpa1 = new ['FixedPMCArray']
+    fpa2 = new ['FixedPMCArray']
 
     print "1:"
     if fpa1 == fpa2 goto L1
@@ -536,9 +536,9 @@
 
     fpa2 = 3
 
-    p1 = new 'String'
+    p1 = new ['String']
     p1 = "foobarx"
-    p2 = new 'String'
+    p2 = new ['String']
     p2 = "foobarx"
 
     fpa1[0] = p1
@@ -549,8 +549,8 @@
     print "not "
 L3: say "equal"
 
-    p1 = new 'String'
-    p2 = new 'String'
+    p1 = new ['String']
+    p2 = new ['String']
     p1 = ''
     p2 = ''
 
@@ -580,7 +580,7 @@
 pir_output_is( <<'CODE', <<'OUTPUT', "defined" );
 .sub main :main
     .local pmc arr1
-    arr1 = new 'FixedPMCArray'
+    arr1 = new ['FixedPMCArray']
     arr1 = 2005
     .local int defined_elem_1956
     defined_elem_1956 = defined arr1[1956]
@@ -604,7 +604,7 @@
     .local pmc arr1
     .local int elems_i
     .local num elems_f
-    arr1 = new 'FixedPMCArray'
+    arr1 = new ['FixedPMCArray']
     arr1 = 0
     elems_i = elements arr1
     if elems_i == 0 goto ok_1
@@ -624,7 +624,7 @@
   ok_3:
     say 'ok 3'
 
-    arr1 = new 'FixedPMCArray'
+    arr1 = new ['FixedPMCArray']
     arr1 = 2048
     elems_i = elements arr1
     if elems_i == 2048 goto ok_4
@@ -656,25 +656,25 @@
 pir_output_is(<<'CODE', <<'OUTPUT', 'basic splice');
 .sub 'main'
     .local pmc one
-    one = new 'Integer'
+    one = new ['Integer']
     one = 1
 
     .local pmc fpa
-    fpa = new 'FixedPMCArray'
+    fpa = new ['FixedPMCArray']
     fpa = 5
 
     splice fpa, one, 0, 5
     print_array( fpa )
 
     .local pmc two
-    two = new 'Integer'
+    two = new ['Integer']
     two = 2
 
     splice fpa, two, 1, 3
     print_array( fpa )
 
     .local pmc three
-    three = new 'Integer'
+    three = new ['Integer']
     three = 3
 
     splice fpa, three, 2, 3
@@ -704,11 +704,11 @@
 pir_error_output_like(<<'CODE', <<'OUTPUT', 'splice out of bounds, offset 0');
 .sub 'main'
     .local pmc fpa
-    fpa = new 'FixedPMCArray'
+    fpa = new ['FixedPMCArray']
     fpa = 5
 
     .local pmc nil
-    nil = new 'Undef'
+    nil = new ['Undef']
 
     splice fpa, nil, 0, 6
 .end
@@ -719,11 +719,11 @@
 pir_error_output_like(<<'CODE', <<'OUTPUT', 'splice out of bounds, big offset');
 .sub 'main'
     .local pmc fpa
-    fpa = new 'FixedPMCArray'
+    fpa = new ['FixedPMCArray']
     fpa = 5
 
     .local pmc nil
-    nil = new 'Undef'
+    nil = new ['Undef']
 
     splice fpa, nil, 6, 0
 .end



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About