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

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

From:
cotto
Date:
January 11, 2009 01:33
Subject:
[svn:parrot] r35401 - trunk/t/pmc
Message ID:
20090111093249.100CDCB9F9@x12.develooper.com
Author: cotto
Date: Sun Jan 11 01:32:47 2009
New Revision: 35401

Modified:
   trunk/t/pmc/random.t
   trunk/t/pmc/ref.t
   trunk/t/pmc/resizablebooleanarray.t
   trunk/t/pmc/resizablefloatarray.t
   trunk/t/pmc/resizableintegerarray.t
   trunk/t/pmc/resizablepmcarray.t
   trunk/t/pmc/resizablestringarray.t
   trunk/t/pmc/retcontinuation.t
   trunk/t/pmc/ro.t
   trunk/t/pmc/role.t
   trunk/t/pmc/sarray.t
   trunk/t/pmc/scalar.t
   trunk/t/pmc/scheduler.t
   trunk/t/pmc/schedulermessage.t
   trunk/t/pmc/sharedref.t

Log:
[t] a bunch more test conversions


Modified: trunk/t/pmc/random.t
==============================================================================
--- trunk/t/pmc/random.t	(original)
+++ trunk/t/pmc/random.t	Sun Jan 11 01:32:47 2009
@@ -17,12 +17,12 @@
 =cut
 
 .sub main :main
-    .include 'include/test_more.pir'
+    .include 'test_more.pir'
 
     plan(2)
 
-    new $P0, 'Random'
-    ok(1, 'Instantiated .Random')
+    new $P0, ['Random']
+    ok(1, 'Instantiated Random PMC')
     set $I0, $P0
     ok(1, 'Got (unknown) random int')
 .end

Modified: trunk/t/pmc/ref.t
==============================================================================
--- trunk/t/pmc/ref.t	(original)
+++ trunk/t/pmc/ref.t	Sun Jan 11 01:32:47 2009
@@ -17,7 +17,7 @@
 =cut
 
 .sub main :main
-    .include 'include/test_more.pir'
+    .include 'test_more.pir'
     plan(41)
 
     basic_ref_tests()
@@ -32,8 +32,8 @@
 
 
 .sub basic_ref_tests
-    new $P2, 'Integer'
-    new $P1, 'Ref', $P2
+    new $P2, ['Integer']
+    new $P1, ['Ref'], $P2
     ok(1, "Ref creation didn't explode")
 
     inc $P1
@@ -52,10 +52,10 @@
 .end
 
 .sub setref_tests
-    new $P2, 'Integer'
-    new $P3, 'Float'
+    new $P2, ['Integer']
+    new $P3, ['Float']
     set $P3, 0.5
-    new $P1, 'Ref', $P2
+    new $P1, ['Ref'], $P2
     inc $P1
     is($P1, 1, "Integer Ref is incremented correctly")
     setref $P1, $P3
@@ -66,11 +66,11 @@
 .end
 
 .sub assign_ref_tests
-    new $P2, 'Integer'
-    new $P3, 'Float'
+    new $P2, ['Integer']
+    new $P3, ['Float']
     set $P2, 0
     set $P3, 0.5
-    new $P1, 'Ref', $P2
+    new $P1, ['Ref'], $P2
     assign $P1, 1
     $S0 = $P1
     #XXX: not sure why the string conversion is needed
@@ -90,8 +90,8 @@
 .end
 
 .sub sharedref_tests
-    new $P2, 'Integer'
-    new $P1, 'SharedRef', $P2
+    new $P2, ['Integer']
+    new $P1, ['SharedRef'], $P2
     ok(1, "SharedRef created without explosion")
     set $P1, 4711
     is($P1, 4711, "SharedRef assignment looks good")
@@ -102,8 +102,8 @@
     is($S0, "String", "SharedRef type looks good after type change")
     is($P1, "hello", "SharedRef value looks good after type change")
 
-    new $P2, 'Integer'
-    new $P1, 'SharedRef', $P2
+    new $P2, ['Integer']
+    new $P1, ['SharedRef'], $P2
     ok(1, "SharedRef creation didn't explode")
     push_eh eh
     deref $P3, $P1
@@ -117,11 +117,11 @@
 
 .sub interface_tests
     .local pmc pmc1
-    pmc1 = new 'Array'
+    pmc1 = new ['Array']
     .local pmc pmc2
-    pmc2 = new 'Ref', pmc1
+    pmc2 = new ['Ref'], pmc1
     .local pmc pmc3
-    pmc3 = new 'SharedRef', pmc1
+    pmc3 = new ['SharedRef'], pmc1
     .local int bool1
     does bool1, pmc2, "scalar"
     is(bool1, 0, "Ref doesn't do scalar")
@@ -140,15 +140,15 @@
 
 
 .sub set_get_tests
-    new $P2, 'Integer'
-    new $P1, 'Ref', $P2
+    new $P2, ['Integer']
+    new $P1, ['Ref'], $P2
     set $P1, 10
     is($P1, 10, "set works on Integer Ref")
     set $I0, $P1
     is($I0, 10, "get works on Integer Ref")
 
-    new $P2, 'Float'
-    new $P1, 'Ref', $P2
+    new $P2, ['Float']
+    new $P1, ['Ref'], $P2
     set $P1, 12.5
     set $N0, $P2
     set $N1, 12.5
@@ -158,8 +158,8 @@
 .end
 
 .sub push_pop_tests
-    new $P2, 'ResizableIntegerArray'
-    new $P1, 'Ref', $P2
+    new $P2, ['ResizableIntegerArray']
+    new $P1, ['Ref'], $P2
     push $P1, 200
     push $P1, -3
     set $I0, $P1
@@ -175,31 +175,31 @@
 .end
 
 .sub add_tests
-    new $P2, 'Integer'
-    new $P1, 'Ref', $P2
+    new $P2, ['Integer']
+    new $P1, ['Ref'], $P2
     set $P1, 10
     add $P1, $P1
     is($P2, 20, "add ref,ref is ok")
 
-    new $P3, 'Integer'
-    new $P2, 'Integer'
-    new $P1, 'Ref', $P2
+    new $P3, ['Integer']
+    new $P2, ['Integer']
+    new $P1, ['Ref'], $P2
     set $P3, 12
     set $P1, 10
     add $P1, $P3
     is($P2, 22, "add ref,int is ok")
 
-    new $P3, 'Integer'
-    new $P2, 'Integer'
-    new $P1, 'Ref', $P2
+    new $P3, ['Integer']
+    new $P2, ['Integer']
+    new $P1, ['Ref'], $P2
     set $P3, 12
     set $P1, 10
     add $P4, $P3, $P1
     is($P4, 22, "add dest,int,ref is ok")
 
-    new $P3, 'Integer'
-    new $P2, 'Integer'
-    new $P1, 'Ref', $P2
+    new $P3, ['Integer']
+    new $P2, ['Integer']
+    new $P1, ['Ref'], $P2
     set $P3, 12
     set $P1, 10
     add $P4, $P1, $P3

Modified: trunk/t/pmc/resizablebooleanarray.t
==============================================================================
--- trunk/t/pmc/resizablebooleanarray.t	(original)
+++ trunk/t/pmc/resizablebooleanarray.t	Sun Jan 11 01:32:47 2009
@@ -24,7 +24,7 @@
 =cut
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting array size" );
-    new P0, 'ResizableBooleanArray'
+    new P0, ['ResizableBooleanArray']
 
     set I0,P0
     eq I0,0,OK_1
@@ -64,7 +64,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting first element" );
-        new P0, 'ResizableBooleanArray'
+        new P0, ['ResizableBooleanArray']
         set P0, 1
 
     set P0[0],-7
@@ -93,7 +93,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting second element" );
-        new P0, 'ResizableBooleanArray'
+        new P0, ['ResizableBooleanArray']
         set P0, 2
 
     set P0[1], -7
@@ -122,7 +122,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting negatively indexed elements" );
-    new P0, 'ResizableBooleanArray'
+    new P0, ['ResizableBooleanArray']
 
     push_eh caught
     set P0[-1], 1
@@ -137,7 +137,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Getting negatively indexed elements" );
-    new P0, 'ResizableBooleanArray'
+    new P0, ['ResizableBooleanArray']
     set P0, 1
 
     set I0, P0[-1]
@@ -149,7 +149,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting out-of-bounds elements" );
-    new P0, 'ResizableBooleanArray'
+    new P0, ['ResizableBooleanArray']
 
     set P0[1], -7
     set I0, P0[1]
@@ -177,7 +177,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Getting out-of-bounds elements" );
-        new P0, 'ResizableBooleanArray'
+        new P0, ['ResizableBooleanArray']
         set P0, 1
 
     set I0, P0[1]
@@ -189,8 +189,8 @@
 
 pasm_output_is( <<"CODE", <<'OUTPUT', "Set via PMC keys, access via INTs" );
      .include 'include/fp_equality.pasm'
-     new P0, 'ResizableBooleanArray'
-     new P1, 'Key'
+     new P0, ['ResizableBooleanArray']
+     new P1, ['Key']
 
      set P1, 0
      set P0[P1], 25
@@ -225,17 +225,17 @@
 
 pasm_output_is( <<"CODE", <<'OUTPUT', "Set via INTs, access via PMC Keys" );
      .include 'include/fp_equality.pasm'
-     new P0, 'ResizableBooleanArray'
+     new P0, ['ResizableBooleanArray']
      set P0, 1
 
      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
@@ -272,7 +272,7 @@
 pir_output_is( << 'CODE', << 'OUTPUT', "check whether interface is done" );
 .sub _main
     .local pmc pmc1
-    pmc1 = new 'ResizableBooleanArray'
+    pmc1 = new ['ResizableBooleanArray']
     .local int bool1
     does bool1, pmc1, "scalar"
     print bool1
@@ -294,7 +294,7 @@
 pir_output_is( << 'CODE', << 'OUTPUT', "push integer" );
 .sub _main
     .local pmc pmc1
-    pmc1 = new 'ResizableBooleanArray'
+    pmc1 = new ['ResizableBooleanArray']
     pmc1[9999] = 0
     push pmc1, 10001
     .local int elements
@@ -313,7 +313,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "creation" );
-        new P0, 'ResizableBooleanArray'
+        new P0, ['ResizableBooleanArray']
         set I0, P0
         print "Created ResizableBooleanArray with "
         print I0
@@ -330,7 +330,7 @@
        .local int elements
 
        i = 1
-       pmc_arr = new 'ResizableBooleanArray'
+       pmc_arr = new ['ResizableBooleanArray']
 
        print_num_elements( pmc_arr )
 
@@ -386,7 +386,7 @@
 
 pir_error_output_like( << 'CODE', << 'OUTPUT', "pop bounds checking" );
 .sub 'test' :main
-       $P0 = new 'ResizableBooleanArray'
+       $P0 = new ['ResizableBooleanArray']
        pop $I0, $P0
 .end
 CODE
@@ -402,7 +402,7 @@
        .local int elements
 
        i= 1
-       pmc_arr = new 'ResizableBooleanArray'
+       pmc_arr = new ['ResizableBooleanArray']
 
        # No elements are set
        print_num_elements( pmc_arr )
@@ -518,7 +518,7 @@
 
 pir_error_output_like( << 'CODE', << 'OUTPUT', "shift bounds checking" );
 .sub 'test' :main
-       $P0 = new 'ResizableBooleanArray'
+       $P0 = new ['ResizableBooleanArray']
        shift $I0, $P0
 .end
 CODE
@@ -528,7 +528,7 @@
 #'
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "aerobics" );
-        new P0, 'ResizableBooleanArray'
+        new P0, ['ResizableBooleanArray']
         set I10, 10000
 
         set I1, 0
@@ -639,8 +639,8 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "direct access 2" );
-    #new P0, 'IntList'
-    new P0, 'ResizableBooleanArray'
+    #new P0, ['IntList']
+    new P0, ['ResizableBooleanArray']
     set I10, 550000
     set I0, 1
 lp1:
@@ -698,7 +698,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "sparse access" );
-    new P0, 'ResizableBooleanArray'
+    new P0, ['ResizableBooleanArray']
        set I10, 110000
        set I0, 1
 lp1:
@@ -773,7 +773,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "check for zeroedness" );
-    new P0, 'ResizableBooleanArray'
+    new P0, ['ResizableBooleanArray']
     set I0, 0
 lp1:
     push P0, 0
@@ -802,7 +802,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "pop into sparse" );
-    new P0, 'ResizableBooleanArray'
+    new P0, ['ResizableBooleanArray']
        set I10, 100
        set I0, 0
        # push some values at start
@@ -877,7 +877,7 @@
 .sub _main
     .local pmc rba1, rba2
     .local int i
-    rba1 = new 'ResizableBooleanArray'
+    rba1 = new ['ResizableBooleanArray']
 
     rba1[0]    = 1
     rba1[5000] = 1
@@ -933,7 +933,7 @@
 .sub _main
     .local pmc rba1, rba2
     .local int i
-    rba1 = new 'ResizableBooleanArray'
+    rba1 = new ['ResizableBooleanArray']
 
     rba1[0]    = 1
     rba1[4]    = 1

Modified: trunk/t/pmc/resizablefloatarray.t
==============================================================================
--- trunk/t/pmc/resizablefloatarray.t	(original)
+++ trunk/t/pmc/resizablefloatarray.t	Sun Jan 11 01:32:47 2009
@@ -24,7 +24,7 @@
 =cut
 
 pasm_output_is( <<'CODE', <<'OUTPUT', 'creation' );
-    new P0, 'ResizableFloatArray'
+    new P0, ['ResizableFloatArray']
     print "ok\n"
     end
 CODE
@@ -32,7 +32,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting array size" );
-    new P0, 'ResizableFloatArray'
+    new P0, ['ResizableFloatArray']
 
     set I0,P0
     eq I0,0,OK_1
@@ -73,7 +73,7 @@
 OUTPUT
 
 pasm_error_output_like( <<'CODE', <<'OUTPUT', "Setting negative array size" );
-    new P0, 'ResizableFloatArray'
+    new P0, ['ResizableFloatArray']
         set P0, -100
         end
 CODE
@@ -81,7 +81,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting first element" );
-    new P0, 'ResizableFloatArray'
+    new P0, ['ResizableFloatArray']
     set P0, 1
 
     set P0[0],-7
@@ -110,7 +110,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting second element" );
-    new P0, 'ResizableFloatArray'
+    new P0, ['ResizableFloatArray']
 
     set P0[1], -7
     set I0, P0[1]
@@ -138,7 +138,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting negatively indeded elements" );
-    new P0, 'ResizableFloatArray'
+    new P0, ['ResizableFloatArray']
     set P0, 1
 
     push_eh caught
@@ -154,7 +154,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Getting negatively indeded elements" );
-    new P0, 'ResizableFloatArray'
+    new P0, ['ResizableFloatArray']
     set P0, 1
 
     push_eh caught
@@ -170,7 +170,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting out-of-bounds elements" );
-    new P0, 'ResizableFloatArray'
+    new P0, ['ResizableFloatArray']
     set P0, 1
 
     set P0[1], -7
@@ -182,7 +182,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Getting out-of-bounds elements" );
-    new P0, 'ResizableFloatArray'
+    new P0, ['ResizableFloatArray']
     set P0, 1
 
     set I0, P0[1]
@@ -194,8 +194,8 @@
 
 pasm_output_is( <<"CODE", <<'OUTPUT', "Set via PMC keys, access via INTs" );
      .include 'include/fp_equality.pasm'
-     new P0, 'ResizableFloatArray'
-     new P1, 'Key'
+     new P0, ['ResizableFloatArray']
+     new P1, ['Key']
 
      set P1, 0
      set P0[P1], 25
@@ -230,17 +230,17 @@
 
 pasm_output_is( <<"CODE", <<'OUTPUT', "Set via INTs, access via PMC Keys" );
      .include 'include/fp_equality.pasm'
-     new P0, 'ResizableFloatArray'
+     new P0, ['ResizableFloatArray']
      set P0, 1
 
      set P0[25], 125
      set P0[128], 10.2
      set P0[513], "17.3"
-     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
@@ -276,7 +276,7 @@
 
 pasm_output_is( <<"CODE", <<'OUTPUT', 'basic push' );
      .include 'include/fp_equality.pasm'
-     new P0, 'ResizableFloatArray'
+     new P0, ['ResizableFloatArray']
      push P0, 1.0
      push P0, 2.0
      push P0, 3.0
@@ -303,7 +303,7 @@
 
 pasm_output_is( <<"CODE", <<'OUTPUT', 'push many values' );
      .include 'include/fp_equality.pasm'
-     new P0, 'ResizableFloatArray'
+     new P0, ['ResizableFloatArray']
      set I0, 0
 L1:  set N0, I0
      push P0, N0
@@ -322,7 +322,7 @@
 
 pasm_output_is( <<"CODE", <<'OUTPUT', 'basic pop' );
      .include 'include/fp_equality.pasm'
-     new P0, 'ResizableFloatArray'
+     new P0, ['ResizableFloatArray']
      set P0[0], 1.0
      set P0[1], 2.0
      set P0[2], 3.0
@@ -349,7 +349,7 @@
 
 pasm_output_is( <<"CODE", <<'OUTPUT', 'pop many values' );
      .include 'include/fp_equality.pasm'
-     new P0, 'ResizableFloatArray'
+     new P0, ['ResizableFloatArray']
      set I0, 0
 L1:  set N0, I0
      set P0[I0], N0
@@ -377,7 +377,7 @@
 
 pasm_output_is( <<"CODE", <<'OUTPUT', 'push/pop' );
      .include 'include/fp_equality.pasm'
-     new P0, 'ResizableFloatArray'
+     new P0, ['ResizableFloatArray']
      push P0, 1.0
      push P0, 2.0
      push P0, 3.0
@@ -391,7 +391,7 @@
 OUTPUT
 
 pasm_error_output_like( <<'CODE', <<'OUTPUT', 'pop from empty array' );
-     new P0, 'ResizableFloatArray'
+     new P0, ['ResizableFloatArray']
      pop N0, P0
      end
 CODE
@@ -402,7 +402,7 @@
 
 .sub _main
     .local pmc pmc1
-    pmc1 = new 'ResizableFloatArray'
+    pmc1 = new ['ResizableFloatArray']
     .local int bool1
     does bool1, pmc1, "scalar"
     print bool1
@@ -425,7 +425,7 @@
 
 .sub _main
     .local pmc pmc1
-    pmc1 = new 'ResizableFloatArray'
+    pmc1 = new ['ResizableFloatArray']
     pmc1[9999] = 10000.10000
     push pmc1, 123.123
     .local int elements
@@ -446,7 +446,7 @@
 pir_output_is( << 'CODE', << 'OUTPUT', "shift float" );
 .sub test :main
     .local pmc ar
-    ar = new 'ResizableFloatArray'
+    ar = new ['ResizableFloatArray']
     ar[0] = 10.1
     ar[1] = 20.2
     $I0 = elements ar
@@ -472,7 +472,7 @@
 pir_output_is( << 'CODE', << 'OUTPUT', "unshift float" );
 .sub test :main
     .local pmc ar
-    ar = new 'ResizableFloatArray'
+    ar = new ['ResizableFloatArray']
     unshift ar, 10.1
     unshift ar, 20.2
     $I0 = elements ar

Modified: trunk/t/pmc/resizableintegerarray.t
==============================================================================
--- trunk/t/pmc/resizableintegerarray.t	(original)
+++ trunk/t/pmc/resizableintegerarray.t	Sun Jan 11 01:32:47 2009
@@ -24,7 +24,7 @@
 =cut
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting array size" );
-    new P0, 'ResizableIntegerArray'
+    new P0, ['ResizableIntegerArray']
 
     set I0,P0
     eq I0,0,OK_1
@@ -65,7 +65,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting first element" );
-    new P0, 'ResizableIntegerArray'
+    new P0, ['ResizableIntegerArray']
     set P0, 1
 
     set P0[0],-7
@@ -94,7 +94,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting second element" );
-    new P0, 'ResizableIntegerArray'
+    new P0, ['ResizableIntegerArray']
 
     set P0[1], -7
     set I0, P0[1]
@@ -122,7 +122,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting negatively indexed elements" );
-    new P0, 'ResizableIntegerArray'
+    new P0, ['ResizableIntegerArray']
     set P0, 1
 
     push_eh eh
@@ -138,7 +138,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Getting negatively indexed elements" );
-    new P0, 'ResizableIntegerArray'
+    new P0, ['ResizableIntegerArray']
     set P0, 1
 
     push_eh eh
@@ -154,7 +154,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting out-of-bounds elements" );
-    new P0, 'ResizableIntegerArray'
+    new P0, ['ResizableIntegerArray']
     set P0, 1
 
     set P0[1], -7
@@ -166,7 +166,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Getting out-of-bounds elements" );
-    new P0, 'ResizableIntegerArray'
+    new P0, ['ResizableIntegerArray']
     set P0, 1
 
     set I0, P0[1]
@@ -178,8 +178,8 @@
 
 pasm_output_is( <<"CODE", <<'OUTPUT', "Set via PMC keys, access via INTs" );
      .include 'include/fp_equality.pasm'
-     new P0, 'ResizableIntegerArray'
-     new P1, 'Key'
+     new P0, ['ResizableIntegerArray']
+     new P1, ['Key']
 
      set P1, 0
      set P0[P1], 25
@@ -214,17 +214,17 @@
 
 pasm_output_is( <<"CODE", <<'OUTPUT', "Set via INTs, access via PMC Keys" );
      .include 'include/fp_equality.pasm'
-     new P0, 'ResizableIntegerArray'
+     new P0, ['ResizableIntegerArray']
      set P0, 1
 
      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
@@ -262,7 +262,7 @@
 
 .sub test :main
     .local pmc pmc1
-    pmc1 = new 'ResizableIntegerArray'
+    pmc1 = new ['ResizableIntegerArray']
     .local int bool1
     does bool1, pmc1, "scalar"
     print bool1
@@ -285,7 +285,7 @@
 
 .sub test :main
     .local pmc pmc1
-    pmc1 = new 'ResizableIntegerArray'
+    pmc1 = new ['ResizableIntegerArray']
     pmc1[9999] = 0
     push pmc1, 10001
     .local int elements
@@ -304,7 +304,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', 'basic pop' );
-     new P0, 'ResizableIntegerArray'
+     new P0, ['ResizableIntegerArray']
      set P0[0], 4
      set P0[1], 8
      set P0[2], 16
@@ -333,7 +333,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', 'pop many values' );
-     new P0, 'ResizableIntegerArray'
+     new P0, ['ResizableIntegerArray']
      set I0, 0
 L1:  set P0[I0], I0
      inc I0
@@ -358,7 +358,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', 'push/pop' );
-     new P0, 'ResizableIntegerArray'
+     new P0, ['ResizableIntegerArray']
      push P0, 2
      push P0, 4
      push P0, 6
@@ -372,7 +372,7 @@
 OUTPUT
 
 pasm_error_output_like( <<'CODE', <<'OUTPUT', 'pop from empty array' );
-     new P0, 'ResizableIntegerArray'
+     new P0, ['ResizableIntegerArray']
      pop I0, P0
      end
 CODE
@@ -383,7 +383,7 @@
 pir_output_is( << 'CODE', << 'OUTPUT', "shift integer" );
 .sub test :main
     .local pmc ar
-    ar = new 'ResizableIntegerArray'
+    ar = new ['ResizableIntegerArray']
     ar[0] = 10
     ar[1] = 20
     $I0 = elements ar
@@ -408,7 +408,7 @@
 pir_output_is( << 'CODE', << 'OUTPUT', "unshift integer" );
 .sub test :main
     .local pmc ar
-    ar = new 'ResizableIntegerArray'
+    ar = new ['ResizableIntegerArray']
     unshift ar, 10
     unshift ar, 20
     $I0 = elements ar

Modified: trunk/t/pmc/resizablepmcarray.t
==============================================================================
--- trunk/t/pmc/resizablepmcarray.t	(original)
+++ trunk/t/pmc/resizablepmcarray.t	Sun Jan 11 01:32:47 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(118)
 
@@ -53,7 +53,7 @@
 .sub resize_tests
     .local pmc p
     .local int is_ok, i
-    p = new 'ResizablePMCArray'
+    p = new ['ResizablePMCArray']
 
     i = p
     is_ok = i == 0
@@ -84,7 +84,7 @@
 .sub negative_array_size
     .local pmc p
     .local int is_ok, i
-    p = new 'ResizablePMCArray'
+    p = new ['ResizablePMCArray']
     push_eh eh
     p = -1
     pop_eh
@@ -102,7 +102,7 @@
     .local num n
     .local string s
 
-    p = new 'ResizablePMCArray'
+    p = new ['ResizablePMCArray']
     p = 1
 
     p[0] = -7
@@ -155,9 +155,9 @@
 .sub exception_tests
     .local pmc rpa, i
 
-    rpa = new 'ResizablePMCArray'
+    rpa = new ['ResizablePMCArray']
     rpa = 1
-    i = new 'Integer'
+    i = new ['Integer']
     i = 12345
 
     push_eh eh1
@@ -211,8 +211,8 @@
 
 .sub set_keyed_get_keyed_tests
 
-     new $P0, 'ResizablePMCArray'
-     new $P1, 'Key'
+     new $P0, ['ResizablePMCArray']
+     new $P1, ['Key']
 
      set $P1, 0
      set $P0[$P1], 25
@@ -223,7 +223,7 @@
      set $P1, 2
      set $P0[$P1], "bleep"
 
-     new $P2, 'String'
+     new $P2, ['String']
      set $P2, "Bloop"
      set $P1, 3
      set $P0[$P1], $P2
@@ -242,23 +242,23 @@
      set $S0, $P0[2]
      is($S0, "bleep", "set string via Key PMC, get string via int")
 
-     new $P3, 'Undef'
+     new $P3, ['Undef']
      set $P3, $P0[3]
      set $S0, $P3
      is($S0, "Bloop", "set PMC via Key PMC, get PMC via PMC")
 
 
-     new $P0, 'ResizablePMCArray'
+     new $P0, ['ResizablePMCArray']
      set $P0, 1
 
      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]
      is($I0, 125, "set int via int, get int via Key PMC")
@@ -286,7 +286,7 @@
 
 .sub interface_check
     .local pmc p
-    p = new 'ResizablePMCArray'
+    p = new ['ResizablePMCArray']
     .local int b
     does b, p, "scalar"
     is(b, 0 ,"ResizablePMCArray doesn't do scalar")
@@ -299,7 +299,7 @@
 
 .sub inherited_sort_method
     .local pmc ar
-    ar = new 'ResizablePMCArray'
+    ar = new ['ResizablePMCArray']
 
     ar[0] = 10
     ar[1] = 2
@@ -329,10 +329,10 @@
 
 .sub push_pmc
     .local pmc pmc_arr, pmc_9999, pmc_10000
-    pmc_arr = new 'ResizablePMCArray'
-    pmc_9999  = new 'Float'
+    pmc_arr = new ['ResizablePMCArray']
+    pmc_9999  = new ['Float']
     pmc_9999  = 10000.10000
-    pmc_10000 = new 'Float'
+    pmc_10000 = new ['Float']
     pmc_10000 = 123.123
     pmc_arr[9999] = pmc_9999
     push pmc_arr, pmc_10000
@@ -348,8 +348,8 @@
 .sub push_int
     .local pmc pmc_arr, pmc_9999
     .local int int_10000
-    pmc_arr = new 'ResizablePMCArray'
-    pmc_9999  = new 'Float'
+    pmc_arr = new ['ResizablePMCArray']
+    pmc_9999  = new ['Float']
     pmc_9999  = 10000.10000
     int_10000 = 123
     pmc_arr[9999] = pmc_9999
@@ -366,8 +366,8 @@
 .sub push_string
     .local pmc pmc_arr, pmc_9999
     .local string string_10000
-    pmc_arr = new 'ResizablePMCArray'
-    pmc_9999  = new 'Float'
+    pmc_arr = new ['ResizablePMCArray']
+    pmc_9999  = new ['Float']
     pmc_9999  = 10000.10000
     string_10000 = '123asdf'
     pmc_arr[9999] = pmc_9999
@@ -383,7 +383,7 @@
 
 .sub shift_int
     .local pmc pmc_arr, elem
-    pmc_arr = new 'ResizablePMCArray'
+    pmc_arr = new ['ResizablePMCArray']
     push pmc_arr, 4
     push pmc_arr, 3
     push pmc_arr, 2
@@ -423,12 +423,12 @@
 .end
 
 .sub unshift_pmc
-    new $P0, 'ResizablePMCArray'
-    new $P1, 'Integer'
+    new $P0, ['ResizablePMCArray']
+    new $P1, ['Integer']
     set $P1, 1
-    new $P2, 'Integer'
+    new $P2, ['Integer']
     set $P2, 2
-    new $P3, 'Integer'
+    new $P3, ['Integer']
     set $P3, 3
     unshift $P0, $P1
     unshift $P0, $P2
@@ -445,7 +445,7 @@
 
 
 .sub get_mro_tests
-    new $P0, 'ResizablePMCArray'
+    new $P0, ['ResizablePMCArray']
     $P1 = inspect $P0, 'mro'
     ok(1, "get_mro didn't explode")
     elements $I1, $P1
@@ -471,11 +471,11 @@
 
     f = 123.123
     i = 123
-    p = new 'Float'
+    p = new ['Float']
     p = 456.456
     s = "abc"
 
-    pmc_arr = new 'ResizablePMCArray'
+    pmc_arr = new ['ResizablePMCArray']
 
     elements = pmc_arr
     is(elements, 0, "element count of empty ResizablePMCArray is 0")
@@ -513,11 +513,11 @@
 
     f = 123.123
     i = 123
-    p = new 'Float'
+    p = new ['Float']
     p = 456.456
     s = "abc"
 
-    pmc_arr = new 'ResizablePMCArray'
+    pmc_arr = new ['ResizablePMCArray']
 
     elements = pmc_arr
     is(elements, 0, "empty RPA has 0 elements")
@@ -548,8 +548,8 @@
 ## an Integer Matrix, as used by befunge as a playing field
 .sub multikey_access
     .local pmc matrix, row_in, row_out
-    matrix = new 'ResizablePMCArray'
-    row_in = new 'ResizableIntegerArray'
+    matrix = new ['ResizablePMCArray']
+    row_in = new ['ResizableIntegerArray']
     push row_in, 42
     push matrix, row_in
 
@@ -565,14 +565,14 @@
 
 .sub exists_and_defined
     .local pmc array
-    array = new 'ResizablePMCArray'
+    array = new ['ResizablePMCArray']
     push array, 'a'
     push array, 'b'
     push array, 'c'
-    $P0 = new 'Null'
+    $P0 = new ['Null']
     push array, $P0
     push array, 'e'
-    $P0 = new 'Undef'
+    $P0 = new ['Undef']
     push array, $P0
     push array, '7'
     push array, '-8.8'
@@ -631,27 +631,27 @@
 
 .sub append_tests
 
-    $P1 = new 'ResizablePMCArray'
+    $P1 = new ['ResizablePMCArray']
     push $P1, 'a'
     push $P1, 'b'
     push $P1, 'c'
 
-    $P2 = new 'FixedPMCArray'
+    $P2 = new ['FixedPMCArray']
     $P2 = 2
-    $P0 = new 'Null'
+    $P0 = new ['Null']
     $P2[0] = $P0
     $P2[1] = 'e'
-    $P0 = new 'Undef'
+    $P0 = new ['Undef']
 
-    $P3 = new 'ResizablePMCArray'
+    $P3 = new ['ResizablePMCArray']
     push $P3, $P0
     push $P3, '7'
     push $P3, '-8.8'
 
-    $P4 = new 'ResizablePMCArray'
+    $P4 = new ['ResizablePMCArray']
 
-    $P5 = new 'MultiSub'    # extends ResizablePMCArray
-    $P99 = new 'Sub'
+    $P5 = new ['MultiSub']    # extends ResizablePMCArray
+    $P99 = new ['Sub']
     push $P5, $P99
 
     $P4.'append'( $P4 )
@@ -702,7 +702,7 @@
 .sub get_array_string
     .param pmc p
     $S0 = ''
-    $P3 = new 'Iterator', p
+    $P3 = new ['Iterator'], p
 loop:
     unless $P3 goto loop_end
     $P4 = shift $P3
@@ -716,14 +716,14 @@
 
 .sub splice_tests
     .local pmc ar1, ar2
-    ar1 = new 'ResizablePMCArray'
+    ar1 = new ['ResizablePMCArray']
     ar1[0] = 1
     ar1[1] = 2
     ar1[2] = 3
     ar1[3] = 4
     ar1[4] = 5
 
-    ar2 = new 'ResizablePMCArray'
+    ar2 = new ['ResizablePMCArray']
     ar2[0] = 'A'
     ar2[1] = 'B'
     ar2[2] = 'C'
@@ -773,7 +773,7 @@
     is($S0, "123ABCDE", "splice, replace at end")
 
     $P1 = clone ar1
-    $P2 = new 'Array'
+    $P2 = new ['Array']
     $P2 = 5
     $P2[0] = 'A'
     $P2[1] = 'B'
@@ -785,13 +785,13 @@
     is($S0, "123ABCDE", "splice, replace with another type")
 
     $P1 = clone ar1
-    $P2 = new 'ResizablePMCArray'
+    $P2 = new ['ResizablePMCArray']
     splice $P1, $P2, 2, 2
     $S0 = get_array_string($P1)
     is($S0, "125", "splice with empty replacement")
 
     $P1 = clone ar1
-    $P2 = new 'ResizablePMCArray'
+    $P2 = new ['ResizablePMCArray']
     $P2[0] = 'A'
     splice $P1, $P2, 2, 1
     $S0 = get_array_string($P1)
@@ -801,12 +801,12 @@
 
 
 .sub splice_replace1
-    $P1 = new 'ResizablePMCArray'
+    $P1 = new ['ResizablePMCArray']
     $P1 = 3
     $P1[0] = '1'
     $P1[1] = '2'
     $P1[2] = '3'
-    $P2 = new 'ResizablePMCArray'
+    $P2 = new ['ResizablePMCArray']
     $P2 = 1
     $P2[0] = 'A'
     splice $P1, $P2, 1, 2
@@ -816,12 +816,12 @@
 
 
 .sub splice_replace2
-    $P1 = new 'ResizablePMCArray'
+    $P1 = new ['ResizablePMCArray']
     $P1 = 3
     $P1[0] = '1'
     $P1[1] = '2'
     $P1[2] = '3'
-    $P2 = new 'ResizablePMCArray'
+    $P2 = new ['ResizablePMCArray']
     $P2 = 1
     $P2[0] = 'A'
     splice $P1, $P2, 0, 2
@@ -835,7 +835,7 @@
     .local pmc arr, iter
     $P0 = subclass 'ResizablePMCArray', 'MyArray'
 
-    arr = new 'MyArray'
+    arr = new ['MyArray']
     push arr, 11
     push arr, 13
     push arr, 15
@@ -843,7 +843,7 @@
     is($I0, 3, "RPA subclass has correct element count")
 
     $S1 = ''
-    iter = new 'Iterator', arr
+    iter = new ['Iterator'], arr
 loop:
     unless iter goto end
     $P2 = shift iter
@@ -857,7 +857,7 @@
 
 
 .sub method_forms_of_unshift_etc
-    $P0 = new 'ResizablePMCArray'
+    $P0 = new ['ResizablePMCArray']
     $P0.'unshift'(1)
     $P0.'push'('two')
     $I0 = $P0
@@ -872,7 +872,7 @@
 #RT #56636 - segfault from sort if comparison is always 1
 .sub sort_with_broken_cmp
     .local pmc array
-    array = new 'ResizablePMCArray'
+    array = new ['ResizablePMCArray']
     push array, 4
     push array, 5
     push array, 3

Modified: trunk/t/pmc/resizablestringarray.t
==============================================================================
--- trunk/t/pmc/resizablestringarray.t	(original)
+++ trunk/t/pmc/resizablestringarray.t	Sun Jan 11 01:32:47 2009
@@ -95,7 +95,7 @@
 #
 .sub 'size/resize'
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     $I0 = array
     $I1 = elements array
@@ -147,8 +147,8 @@
 #
 .sub 'set_pmc_keyed'
     .local pmc array, elem
-    array = new 'ResizableStringArray'
-    elem  = new 'Integer'
+    array = new ['ResizableStringArray']
+    elem  = new ['Integer']
 
     array = 1
 
@@ -218,7 +218,7 @@
 #
 .sub 'get_pmc_keyed'
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
     array = 1
     array[0] = "first"
     array[1] = "second"
@@ -289,7 +289,7 @@
 .sub 'set_string_keyed'
     .local pmc    array
     .local string elem
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array = 1
 
@@ -359,7 +359,7 @@
 #
 .sub 'get_string_keyed'
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
     array = 1
     array[0] = "first"
     array[1] = "second"
@@ -415,7 +415,7 @@
 .sub 'set_integer_keyed'
     .local pmc array
     .local int elem
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array = 1
 
@@ -485,7 +485,7 @@
 #
 .sub 'get_integer_keyed'
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
     array = 1
     array[0] = "1"
     array[1] = "2"
@@ -541,7 +541,7 @@
 .sub 'set_number_keyed'
     .local pmc   array
     .local num elem
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array = 1
 
@@ -611,7 +611,7 @@
 #
 .sub 'get_number_keyed'
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
     array = 1
     array[0] = "1.1"
     array[1] = "2.2"
@@ -666,10 +666,10 @@
 #
 .sub 'push_pmc'
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array = 0
-    $P0 = new 'String'
+    $P0 = new ['String']
     $P0 = "one"
     push array, $P0
     $I0 = elements array
@@ -677,7 +677,7 @@
     is($I0, 1,     "push_pmc - elements")
     is($S0, "one", "push_pmc - value")
 
-    $P0 = new 'String'
+    $P0 = new ['String']
     $P0 = "two"
     push array, $P0
     $I0 = elements array
@@ -699,7 +699,7 @@
 #
 .sub 'push_string'
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array = 0
     push array, "one"
@@ -728,7 +728,7 @@
 #
 .sub 'push_integer'
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array = 0
     push array, 1
@@ -757,7 +757,7 @@
 #
 .sub 'push_float'
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array = 0
     push array, 1.1
@@ -782,7 +782,7 @@
 
 .sub 'pop_pmc'
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array[1] = "foo"
     $P0 = pop array
@@ -807,7 +807,7 @@
 
 .sub 'pop_string'
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array[1] = "foo"
     $S0 = pop array
@@ -829,7 +829,7 @@
 
 .sub 'pop_integer'
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array[1] = "2"
     $I1 = pop array
@@ -851,7 +851,7 @@
 
 .sub 'pop_float'
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array[1] = "2.2"
     $N0 = pop array
@@ -873,7 +873,7 @@
 
 .sub 'shift_pmc'
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array[0] = "foo"
     array[1] = "bar"
@@ -899,7 +899,7 @@
 
 .sub 'shift_string'
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array[0] = "foo"
     array[1] = "bar"
@@ -922,7 +922,7 @@
 
 .sub 'shift_integer'
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array[0] = "2"
     array[1] = "3"
@@ -945,7 +945,7 @@
 
 .sub 'shift_float'
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array[0] = "2.2"
     array[1] = "3.3"
@@ -971,10 +971,10 @@
 #
 .sub 'unshift_pmc'
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array = 0
-    $P0 = new 'String'
+    $P0 = new ['String']
     $P0 = "one"
     unshift array, $P0
     $I0 = elements array
@@ -982,7 +982,7 @@
     is($I0, 1,     "unshift_pmc - elements")
     is($S0, "one", "unshift_pmc - value")
 
-    $P0 = new 'String'
+    $P0 = new ['String']
     $P0 = "two"
     unshift array, $P0
     $I0 = elements array
@@ -1004,7 +1004,7 @@
 #
 .sub 'unshift_string'
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array = 0
     unshift array, "one"
@@ -1033,7 +1033,7 @@
 #
 .sub 'unshift_integer'
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     # unshift_string
     array = 0
@@ -1063,7 +1063,7 @@
 #
 .sub 'unshift_float'
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array = 0
     unshift array, 1.1
@@ -1091,7 +1091,7 @@
 #
 .sub 'clone'
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
     array = 3
     array[0] = 1
     array[1] = 3.2
@@ -1111,7 +1111,7 @@
 
 .sub 'get_string'
     .local pmc array
-    array = new 'ResizablePMCArray'
+    array = new ['ResizablePMCArray']
     array[0] = "foo"
     array[1] = "bar"
     array[2] = "baz"
@@ -1122,7 +1122,7 @@
 
 .sub 'does'
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     $I0 = does array, 'array'
     is($I0, 1, "does array")
@@ -1137,7 +1137,7 @@
 #
 .sub sparse
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     $I10 = 110000
     $I0  = 1
@@ -1219,24 +1219,24 @@
 
 
 .sub 'splice'
-    $P1 = new 'ResizableStringArray'
+    $P1 = new ['ResizableStringArray']
     $P1 = 3
     $P1[0] = '1'
     $P1[1] = '2'
     $P1[2] = '3'
-    $P2 = new 'ResizableStringArray'
+    $P2 = new ['ResizableStringArray']
     $P2 = 1
     $P2[0] = 'A'
     splice $P1, $P2, 0, 2
     $S0 = join "", $P1
     is($S0, "A3", "splice replace")
 
-    $P1 = new 'ResizableStringArray'
+    $P1 = new ['ResizableStringArray']
     $P1 = 3
     $P1[0] = '1'
     $P1[1] = '2'
     $P1[2] = '3'
-    $P2 = new 'ResizableStringArray'
+    $P2 = new ['ResizableStringArray']
     $P2 = 1
     $P2[0] = 'A'
     splice $P1, $P2, 1, 2
@@ -1244,13 +1244,13 @@
     is($S0, "1A", "splice replace")
 
 .macro SpliceMadeEasy(code, out, testing)
-    $P1 = new 'ResizableStringArray'
+    $P1 = new ['ResizableStringArray']
     $P1[0] = "1"
     $P1[1] = "2"
     $P1[2] = "3"
     $P1[3] = "4"
     $P1[4] = "5"
-    $P2 = new 'ResizableStringArray'
+    $P2 = new ['ResizableStringArray']
     $P2[0] = 'A'
     $P2[1] = 'B'
     $P2[2] = 'C'
@@ -1269,22 +1269,22 @@
     .SpliceMadeEasy({ splice $P1, $P2, 2, 2 }, "12ABCDE5", "splice, replace in middle")
     .SpliceMadeEasy({ splice $P1, $P2, 3, 2 }, "123ABCDE", "splice, replace at end")
     .SpliceMadeEasy({
-        $P2 = new 'ResizableStringArray'
+        $P2 = new ['ResizableStringArray']
         splice $P1, $P2, 2, 2
     }, "125", "splice, empty replacement")
     .SpliceMadeEasy({
-        $P2 = new 'ResizableStringArray'
+        $P2 = new ['ResizableStringArray']
         $P2[0] = "A"
         splice $P1, $P2, 2, 1
     }, "12A45", "splice, equal size replacement")
 
-    $P1 = new 'ResizableStringArray'
+    $P1 = new ['ResizableStringArray']
     $P1[0] = "1"
     $P1[1] = "2"
     $P1[2] = "3"
     $P1[3] = "4"
     $P1[4] = "5"
-    $P2 = new 'ResizablePMCArray'
+    $P2 = new ['ResizablePMCArray']
     $P2[0] = 'A'
     $P2[1] = 'B'
     $P2[2] = 'C'
@@ -1310,10 +1310,10 @@
 #
 .sub method_push_pmc
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array = 0
-    $P0 = new 'String'
+    $P0 = new ['String']
     $P0 = "one"
     array.'push'($P0)
     $I0 = elements array
@@ -1321,7 +1321,7 @@
     is($I0, 1,     "method_push_pmc - elements")
     is($S0, "one", "method_push_pmc - value")
 
-    $P0 = new 'String'
+    $P0 = new ['String']
     $P0 = "two"
     array.'push'($P0)
     $I0 = elements array
@@ -1343,7 +1343,7 @@
 #
 .sub method_push_string
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array = 0
     array.'push'("one")
@@ -1372,7 +1372,7 @@
 #
 .sub method_push_integer
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array = 0
     array.'push'(1)
@@ -1401,7 +1401,7 @@
 #
 .sub method_push_float
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array = 0
     array.'push'(1.1)
@@ -1427,7 +1427,7 @@
 
 .sub method_pop_pmc
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array[1] = "foo"
     $P0 = array.'pop'()
@@ -1452,7 +1452,7 @@
 
 .sub method_pop_string
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array[1] = "foo"
     $S0 = array.'pop'()
@@ -1474,7 +1474,7 @@
 
 .sub method_pop_integer
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array[1] = "2"
     $I1 = array.'pop'()
@@ -1496,7 +1496,7 @@
 
 .sub method_pop_float
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array[1] = "2.2"
     $N0 = array.'pop'()
@@ -1518,7 +1518,7 @@
 
 .sub method_shift_pmc
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array[0] = "foo"
     array[1] = "bar"
@@ -1544,7 +1544,7 @@
 
 .sub method_shift_string
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array[0] = "foo"
     array[1] = "bar"
@@ -1567,7 +1567,7 @@
 
 .sub method_shift_integer
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array[0] = "2"
     array[1] = "3"
@@ -1590,7 +1590,7 @@
 
 .sub method_shift_float
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array[0] = "2.2"
     array[1] = "3.3"
@@ -1613,10 +1613,10 @@
 
 .sub method_unshift_pmc
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array = 0
-    $P0 = new 'String'
+    $P0 = new ['String']
     $P0 = "one"
     array.'unshift'($P0)
     $I0 = elements array
@@ -1624,7 +1624,7 @@
     is($I0, 1,     "method_unshift_pmc - elements")
     is($S0, "one", "method_unshift_pmc - value")
 
-    $P0 = new 'String'
+    $P0 = new ['String']
     $P0 = "two"
     array.'unshift'($P0)
     $I0 = elements array
@@ -1646,7 +1646,7 @@
 #
 .sub method_unshift_string
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array = 0
     array.'unshift'("one")
@@ -1675,7 +1675,7 @@
 #
 .sub method_unshift_integer
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array = 0
     array.'unshift'(1)
@@ -1704,7 +1704,7 @@
 #
 .sub method_unshift_float
     .local pmc array
-    array = new 'ResizableStringArray'
+    array = new ['ResizableStringArray']
 
     array = 0
     array.'unshift'(1.1)

Modified: trunk/t/pmc/retcontinuation.t
==============================================================================
--- trunk/t/pmc/retcontinuation.t	(original)
+++ trunk/t/pmc/retcontinuation.t	Sun Jan 11 01:32:47 2009
@@ -17,12 +17,12 @@
 =cut
 
 .sub main :main
-    .include 'include/test_more.pir'
+    .include 'test_more.pir'
 
     plan(1)
 
-    new $P0, 'RetContinuation'
-    ok(1, 'Instantiated .RetContinuation')
+    new $P0, ['RetContinuation']
+    ok(1, 'Instantiated a RetContinuation PMC')
 .end
 
 # Local Variables:

Modified: trunk/t/pmc/ro.t
==============================================================================
--- trunk/t/pmc/ro.t	(original)
+++ trunk/t/pmc/ro.t	Sun Jan 11 01:32:47 2009
@@ -27,7 +27,7 @@
 .sub make_readonly
     .param pmc arg
     .local pmc one
-    one = new 'Integer'
+    one = new ['Integer']
     one = 1
     setprop arg, '_ro', one
 .end
@@ -35,7 +35,7 @@
 .sub make_writable
     .param pmc arg
     .local pmc zero
-    zero = new 'Integer'
+    zero = new ['Integer']
     zero = 0
     setprop arg, '_ro', zero
 .end
@@ -45,10 +45,10 @@
 .sub main :main
     .local pmc foo, eh
 
-    foo = new 'Integer'
+    foo = new ['Integer']
     foo = 42
 
-    eh = new 'ExceptionHandler'
+    eh = new ['ExceptionHandler']
     eh.'handle_types'(.EXCEPTION_WRITE_TO_CONSTCLASS)
     set_addr eh, eh_label
 
@@ -73,7 +73,7 @@
     .local pmc foo
     .local pmc tmp
 
-    foo = new 'Integer'
+    foo = new ['Integer']
     foo = 42
 
     make_readonly(foo)
@@ -86,7 +86,7 @@
     print $S0
     print "\n"
 
-    tmp = new 'Integer'
+    tmp = new ['Integer']
     add tmp, foo, foo
     print tmp
     print "\n"
@@ -112,7 +112,7 @@
 .sub main :main
     .local pmc foo
 
-    foo = new 'Integer'
+    foo = new ['Integer']
     foo = 42
 
     make_readonly(foo)
@@ -127,10 +127,10 @@
 .sub main :main
     .local pmc foo, eh
 
-    foo = new 'Integer'
+    foo = new ['Integer']
     foo = 42
 
-    eh = new 'ExceptionHandler'
+    eh = new ['ExceptionHandler']
     eh.'handle_types'(.EXCEPTION_WRITE_TO_CONSTCLASS)
     set_addr eh, eh_label
 
@@ -155,11 +155,11 @@
 .sub main :main
     .local pmc foo, eh
 
-    foo = new 'Complex'
+    foo = new ['Complex']
     foo[0] = 1.0
     foo[1] = 1.0
 
-    eh = new 'ExceptionHandler'
+    eh = new ['ExceptionHandler']
     eh.'handle_types'(.EXCEPTION_WRITE_TO_CONSTCLASS)
     set_addr eh, eh_label
 
@@ -183,13 +183,13 @@
 .sub main :main
     .local pmc foo, three, four, eh
 
-    foo = new 'ResizablePMCArray'
-    three = new 'Integer'
+    foo = new ['ResizablePMCArray']
+    three = new ['Integer']
     three = 3
-    four = new 'Integer'
+    four = new ['Integer']
     four = 4
 
-    eh = new 'ExceptionHandler'
+    eh = new ['ExceptionHandler']
     eh.'handle_types'(.EXCEPTION_WRITE_TO_CONSTCLASS)
     set_addr eh, eh_label
 
@@ -218,17 +218,17 @@
 .sub main :main
     .local pmc fooclass, foo, eh, i
 
-    i = new 'Integer'
+    i = new ['Integer']
     i = 1
 
-    eh = new 'ExceptionHandler'
+    eh = new ['ExceptionHandler']
     eh.'handle_types'(.EXCEPTION_WRITE_TO_CONSTCLASS)
     set_addr eh, eh_label
 
 
     fooclass = newclass 'Foo'
     addattribute fooclass, 'bar'
-    foo = new 'Foo'
+    foo = new ['Foo']
     setattribute foo, 'bar', i
     make_readonly(foo)
     inc i
@@ -258,8 +258,8 @@
     .local pmc three
     .local pmc tmp
 
-    foo = new 'ResizablePMCArray'
-    three = new 'Integer'
+    foo = new ['ResizablePMCArray']
+    three = new ['Integer']
     three = 3
 
     foo = 1

Modified: trunk/t/pmc/role.t
==============================================================================
--- trunk/t/pmc/role.t	(original)
+++ trunk/t/pmc/role.t	Sun Jan 11 01:32:47 2009
@@ -19,12 +19,12 @@
 # L<PDD15/Role PMC API>
 
 .sub main :main
-    .include 'include/test_more.pir'
+    .include 'test_more.pir'
 
     plan(5)
 
 
-    $P0 = new 'Role'
+    $P0 = new ['Role']
     ok(1, 'Role type exists') # or we've already died.
 
 
@@ -32,9 +32,9 @@
     is($I0, 1, 'isa Role')
 
 
-    $P0 = new 'Hash'
+    $P0 = new ['Hash']
     $P0['name'] = 'Wob'
-    $P1 = new 'Role', $P0
+    $P1 = new ['Role'], $P0
     ok(1, 'Created a Role initialized with a Hash')
 
     $P2 = $P1.'inspect'('name')

Modified: trunk/t/pmc/sarray.t
==============================================================================
--- trunk/t/pmc/sarray.t	(original)
+++ trunk/t/pmc/sarray.t	Sun Jan 11 01:32:47 2009
@@ -23,7 +23,7 @@
 =cut
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting sarray size" );
-    new P0, 'SArray'
+    new P0, ['SArray']
     set I0, P0
     eq I0, 0, OK_1
     print "not "
@@ -42,7 +42,7 @@
 OUTPUT
 
 pasm_error_output_like( <<'CODE', <<'OUTPUT', "attempt resize" );
-    new P0, 'SArray'
+    new P0, ['SArray']
     set P0, 1
     set P0[0], 100
     set I0, P0
@@ -61,7 +61,7 @@
 # '
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "indexed access" );
-    new P0, 'SArray'
+    new P0, ['SArray']
     set P0, 3
     set P0[0], 100
     set P0[1], 200
@@ -101,7 +101,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "push" );
-    new P0, 'SArray'
+    new P0, ['SArray']
     set P0, 3
     push P0, 100
     push P0, 200
@@ -141,7 +141,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "push / indexed" );
-    new P0, 'SArray'
+    new P0, ['SArray']
     set P0, 3
     push P0, 100
     set P0[1], 200
@@ -181,14 +181,14 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "mixed indexed" );
-    new P0, 'SArray'
+    new P0, ['SArray']
     set P0, 4
     set P0[0], 1000
     set N0, 222.22
     set P0[1], N0
     set S0, "string\n"
     set P0[2], S0
-    new P1, 'Undef'
+    new P1, ['Undef']
     set P1, 42
     set P0[3], P1
 
@@ -214,14 +214,14 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "mixed push" );
-    new P0, 'SArray'
+    new P0, ['SArray']
     set P0, 4
     push P0, 1000
     set N0, 222.22
     push P0, N0
     set S0, "string\n"
     push P0, S0
-    new P1, 'Undef'
+    new P1, ['Undef']
     set P1, 42
     push P0, P1
 
@@ -247,14 +247,14 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "mixed push - clone" );
-    new P2, 'SArray'
+    new P2, ['SArray']
     set P2, 4
     push P2, 1000
     set N0, 222.22
     push P2, N0
     set S0, "string\n"
     push P2, S0
-    new P1, 'Undef'
+    new P1, ['Undef']
     set P1, 42
     push P2, P1
 
@@ -282,7 +282,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "shift_integer" );
-    new P0, 'SArray'
+    new P0, ['SArray']
     set P0, 3
     set P0[0], 100
     set P0[1], 200
@@ -322,14 +322,14 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "mixed shift" );
-    new P0, 'SArray'
+    new P0, ['SArray']
     set P0, 4
     push P0, 1000
     set N0, 222.22
     push P0, N0
     set S0, "string\n"
     push P0, S0
-    new P1, 'Undef'
+    new P1, ['Undef']
     set P1, 42
     push P0, P1
 
@@ -356,25 +356,25 @@
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "iterator" );
     .include "iterator.pasm"
-    new P0, 'SArray'       # empty array
-    new P2, 'SArray'       # array with 2 elements
+    new P0, ['SArray']       # empty array
+    new P2, ['SArray']       # array with 2 elements
     set P2, 2
     push P2, 10
     push P2, 20
     set I0, P2
-    new P1, 'Iterator', P2
+    new P1, ['Iterator'], P2
     print "ok 1\n"
     set I1, P1
     eq I0, I1, ok2        # iter.length() == array.length()
     print "not "
 ok2:    print "ok 2\n"
-    new P1, 'Iterator', P0
+    new P1, ['Iterator'], P0
     set P1, .ITERATE_FROM_START
     print "ok 3\n"
     unless P1, ok4        # if(iter) == false on empty
     print "not "
 ok4:    print "ok 4\n"
-    new P1, 'Iterator', P2
+    new P1, ['Iterator'], P2
     set P1, .ITERATE_FROM_START
     if P1, ok5        # if(iter) == true on non empty
     print "not "
@@ -435,7 +435,7 @@
 
 .sub _main
     .local pmc pmc1
-    pmc1 = new 'SArray'
+    pmc1 = new ['SArray']
     .local int bool1
     does bool1, pmc1, "scalar"
     print bool1
@@ -456,33 +456,33 @@
 
 pasm_output_is( << "CODE", << 'OUTPUT', "Access via Key PMC" );
     .include 'include/fp_equality.pasm'
-    new P0, 'SArray'
+    new P0, ['SArray']
     set P0, 4
     set P0[0], 100
     set P0[1], 12.298
     set P0[2], "yarrAS"
-    new P31, 'Hash'
+    new P31, ['Hash']
     set P31["Test"], "ok"
     set P0[3], P31
-    new P1, 'Key'
+    new P1, ['Key']
     set P1, 0
     set I0, P0[P1]
     eq I0, 100, ok1
     print "not "
 ok1:    print "ok 1\\n"
-    new P2, 'Key'
+    new P2, ['Key']
     set P2, 1
     set N0, P0[P2]
     .fp_eq_pasm(N0, 12.298, ok2)
     print "not "
 ok2:    print "ok 2\\n"
-    new P3, 'Key'
+    new P3, ['Key']
     set P3, 2
     set S0, P0[P3]
     eq S0, "yarrAS", ok3
     print "not "
 ok3:    print "ok 3\\n"
-    new P4, 'Key'
+    new P4, ['Key']
     set P4, 3
     set P5, P0[P4]
     set S1, P5["Test"]
@@ -498,11 +498,11 @@
 OUTPUT
 
 pasm_output_is( << 'CODE', << 'OUTPUT', "Store PMC, get int" );
-    new P0, 'SArray'
+    new P0, ['SArray']
     set P0, 2
-    new P1, 'Integer'
+    new P1, ['Integer']
     set P1, 11
-    new P2, 'Float'
+    new P2, ['Float']
     set P2, 1.1
     set P0[0], P1
     set P0[1], P2
@@ -521,7 +521,7 @@
 OUTPUT
 
 pasm_error_output_like( << 'CODE', << 'OUTPUT', "Store num, get int" );
-    new P0, 'SArray'
+    new P0, ['SArray']
     set P0, 1
         set P0[0], 4.2
         set I0, P0[0]
@@ -532,7 +532,7 @@
 OUTPUT
 
 pasm_error_output_like( << 'CODE', << 'OUTPUT', "Store string, get int" );
-    new P0, 'SArray'
+    new P0, ['SArray']
     set P0, 1
         set P0[0], "Non-numeric string"
         set I0, P0[0]
@@ -544,11 +544,11 @@
 
 pasm_output_is( << "CODE", << 'OUTPUT', "Store PMC, get num" );
     .include 'include/fp_equality.pasm'
-    new P0, 'SArray'
+    new P0, ['SArray']
     set P0, 2
-    new P1, 'Integer'
+    new P1, ['Integer']
     set P1, 11
-    new P2, 'Float'
+    new P2, ['Float']
     set P2, 1.1
     set P0[0], P1
     set P0[1], P2
@@ -567,7 +567,7 @@
 OUTPUT
 
 pasm_error_output_like( << 'CODE', << 'OUTPUT', "Store int, get num" );
-    new P0, 'SArray'
+    new P0, ['SArray']
     set P0, 1
         set P0[0], 12
         set N0, P0[0]
@@ -578,7 +578,7 @@
 OUTPUT
 
 pasm_error_output_like( << 'CODE', << 'OUTPUT', "Store string, get num" );
-    new P0, 'SArray'
+    new P0, ['SArray']
     set P0, 1
         set P0[0], "Non-numeric string"
         set N0, P0[0]
@@ -589,11 +589,11 @@
 OUTPUT
 
 pasm_output_is( << 'CODE', << 'OUTPUT', "Store PMC, get string" );
-    new P0, 'SArray'
+    new P0, ['SArray']
     set P0, 2
-    new P1, 'String'
+    new P1, ['String']
     set P1, "Hello"
-    new P2, 'Integer'
+    new P2, ['Integer']
     set P2, 1010
     set P0[0], P1
     set P0[1], P2
@@ -612,7 +612,7 @@
 OUTPUT
 
 pasm_error_output_like( << 'CODE', << 'OUTPUT', "Store int, get string" );
-    new P0, 'SArray'
+    new P0, ['SArray']
     set P0, 1
         set P0[0], 12
         set S0, P0[0]
@@ -623,7 +623,7 @@
 OUTPUT
 
 pasm_error_output_like( << 'CODE', << 'OUTPUT', "Store num, get string" );
-    new P0, 'SArray'
+    new P0, ['SArray']
     set P0, 1
         set P0[0], 12.5
         set S0, P0[0]
@@ -635,17 +635,17 @@
 
 pasm_output_is( << "CODE", << 'OUTPUT', "Store num, get PMC" );
     .include 'include/fp_equality.pasm'
-    new P0, 'SArray'
+    new P0, ['SArray']
     set P0, 2
     set P0[0], 12.239
     set P0[1], -1.9742
-    new P1, 'Float'
+    new P1, ['Float']
     set P1, P0[0]
     set N0, P1
     .fp_eq_pasm(N0, 12.239, ok1)
     print "not "
 ok1:    print "ok 1\\n"
-    new P2, 'Integer'
+    new P2, ['Integer']
     set P2, P0[1]
     set N0, P2
     .fp_eq_pasm(N0, -1.9742, ok2)
@@ -658,7 +658,7 @@
 OUTPUT
 
 pasm_error_output_like( << 'CODE', << 'OUTPUT', "Out-of-bounds access: int" );
-    new P0, 'SArray'
+    new P0, ['SArray']
     set P0, 1
         set P0[5], 12
         set I0, P0[5]
@@ -669,7 +669,7 @@
 OUTPUT
 
 pasm_error_output_like( << 'CODE', << 'OUTPUT', "Out-of-bounds access: num" );
-    new P0, 'SArray'
+    new P0, ['SArray']
     set P0, 1
         set P0[5], 12.5
         set N0, P0[5]
@@ -680,7 +680,7 @@
 OUTPUT
 
 pasm_error_output_like( << 'CODE', << 'OUTPUT', "Out-of-bounds access: string" );
-    new P0, 'SArray'
+    new P0, ['SArray']
     set P0, 1
         set P0[5], "asdf"
         set S0, P0[5]
@@ -691,7 +691,7 @@
 OUTPUT
 
 pasm_error_output_like( << 'CODE', << 'OUTPUT', "Out-of-bounds access: push int" );
-    new P0, 'SArray'
+    new P0, ['SArray']
         push P0, 12
         set I0, P0[0]
         print I0
@@ -701,7 +701,7 @@
 OUTPUT
 
 pasm_error_output_like( << 'CODE', << 'OUTPUT', "Out-of-bounds access: push num" );
-    new P0, 'SArray'
+    new P0, ['SArray']
         push P0, 12.09
         set N0, P0[0]
         print N0
@@ -711,7 +711,7 @@
 OUTPUT
 
 pasm_error_output_like( << 'CODE', << 'OUTPUT', "Out-of-bounds access: push string" );
-    new P0, 'SArray'
+    new P0, ['SArray']
         push P0, "Ygnve"
         set S0, P0[0]
         print S0
@@ -721,8 +721,8 @@
 OUTPUT
 
 pasm_error_output_like( << 'CODE', << 'OUTPUT', "Out-of-bounds access: push pmc" );
-    new P0, 'SArray'
-    new P1, 'Integer'
+    new P0, ['SArray']
+    new P1, ['Integer']
     set P1, 1234
     push P0, P1
     set I0, P0[0]

Modified: trunk/t/pmc/scalar.t
==============================================================================
--- trunk/t/pmc/scalar.t	(original)
+++ trunk/t/pmc/scalar.t	Sun Jan 11 01:32:47 2009
@@ -18,7 +18,7 @@
 =cut
 
 .sub main :main
-    .include 'include/test_more.pir'
+    .include 'test_more.pir'
     plan(1)
 
     skip(1, "doesn't work yet")

Modified: trunk/t/pmc/scheduler.t
==============================================================================
--- trunk/t/pmc/scheduler.t	(original)
+++ trunk/t/pmc/scheduler.t	Sun Jan 11 01:32:47 2009
@@ -18,7 +18,7 @@
 
 
 .sub main :main
-    .include 'include/test_more.pir'
+    .include 'test_more.pir'
     plan(6)
 
     create_and_set_attributes()
@@ -27,8 +27,8 @@
 .end
 
 .sub create_and_set_attributes
-    $P0 = new "Scheduler"
-    $P1 = new "Task"
+    $P0 = new ['Scheduler']
+    $P1 = new ['Task']
 
     push $P0, $P1
 
@@ -50,15 +50,15 @@
 
 .sub create_concurrent_scheduler_with_init
     .local pmc data
-    data       = new 'Hash'
+    data       = new ['Hash']
 
     .local pmc id
-    id         = new 'Integer'
+    id         = new ['Integer']
     id         = 128
     data['id'] = id
 
-    $P0 = new 'Scheduler', data
-    $P1 = new 'Task'
+    $P0 = new ['Scheduler'], data
+    $P1 = new ['Task']
 
     push $P0, $P1
 
@@ -77,7 +77,7 @@
     ok(1, "got a task")
 
     push_eh bad_initializer
-      $P0 = new 'Scheduler', id
+      $P0 = new ['Scheduler'], id
     pop_eh
 
     ok(0, "No exception on invalid initializer?  Uh oh!")
@@ -91,18 +91,18 @@
 .sub add_event_and_handler_to_scheduler
     .local pmc handler, handler_init, handler_sub
     .local pmc event, event_init
-    handler_init = new 'Hash'
+    handler_init = new ['Hash']
     handler_init['type'] = 'myevent'
     handler_sub = get_global 'my_event_handler'
     handler_init['code'] = handler_sub
-    handler = new 'EventHandler', handler_init
+    handler = new ['EventHandler'], handler_init
 
     addhandler handler
 
-    event_init = new 'Hash'
+    event_init = new ['Hash']
     event_init['type'] = 'event'
     event_init['subtype'] = 'myevent'
-    event = new 'Task', event_init
+    event = new ['Task'], event_init
 
     schedule event
 

Modified: trunk/t/pmc/schedulermessage.t
==============================================================================
--- trunk/t/pmc/schedulermessage.t	(original)
+++ trunk/t/pmc/schedulermessage.t	Sun Jan 11 01:32:47 2009
@@ -17,7 +17,7 @@
 =cut
 
 .sub main :main
-    .include 'include/test_more.pir'
+    .include 'test_more.pir'
 
     plan(7)
 
@@ -28,12 +28,12 @@
 .end
 
 .sub init_check
-    new $P0, 'SchedulerMessage'
+    new $P0, ['SchedulerMessage']
     ok(1, 'Instantiated SchedulerMessage PMC')
 .end
 
 .sub type_and_id_tests
-    $P0 = new 'SchedulerMessage'
+    $P0 = new ['SchedulerMessage']
     $P0 = 2345
     $P0 = "some kinda message"
 
@@ -46,7 +46,7 @@
 .end
 
 .sub freeze_thaw_tests
-    $P0 = new 'SchedulerMessage'
+    $P0 = new ['SchedulerMessage']
     $P0 = 86
     $P0 = "Smart message"
 
@@ -63,11 +63,11 @@
 
 
 .sub hash_tests
-    $P0 = new 'Hash'
+    $P0 = new ['Hash']
     $P0['id'] = 9
     $P0['type'] = 'nine'
 
-    $P1 = new 'SchedulerMessage', $P0
+    $P1 = new ['SchedulerMessage'], $P0
 
     $S0 = $P1
     is($S0, "nine", "hash-initialized message has correct type")

Modified: trunk/t/pmc/sharedref.t
==============================================================================
--- trunk/t/pmc/sharedref.t	(original)
+++ trunk/t/pmc/sharedref.t	Sun Jan 11 01:32:47 2009
@@ -17,12 +17,12 @@
 =cut
 
 .sub main :main
-    .include 'include/test_more.pir'
+    .include 'test_more.pir'
 
     plan(1)
 
-    new $P0, 'SharedRef'
-    ok(1, 'Instantiated SharedRef PMC')
+    new $P0, ['SharedRef']
+    ok(1, 'Instantiated a SharedRef PMC')
 .end
 
 # Local Variables:



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