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

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

From:
cotto
Date:
January 10, 2009 23:23
Subject:
[svn:parrot] r35391 - trunk/t/pmc
Message ID:
20090111072337.8011BCB9F9@x12.develooper.com
Author: cotto
Date: Sat Jan 10 23:23:36 2009
New Revision: 35391

Modified:
   trunk/t/pmc/fixedstringarray.t
   trunk/t/pmc/float.t
   trunk/t/pmc/freeze.t
   trunk/t/pmc/hash.t
   trunk/t/pmc/integer.t
   trunk/t/pmc/intlist.t

Log:
[t] convert more strings to keys in tests


Modified: trunk/t/pmc/fixedstringarray.t
==============================================================================
--- trunk/t/pmc/fixedstringarray.t	(original)
+++ trunk/t/pmc/fixedstringarray.t	Sat Jan 10 23:23:36 2009
@@ -24,7 +24,7 @@
 =cut
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting array size" );
-    new P0, 'FixedStringArray'
+    new P0, ['FixedStringArray']
 
     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, 'FixedStringArray'
+    new P0, ['FixedStringArray']
 
     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, 'FixedStringArray'
+    new P0, ['FixedStringArray']
     set P0, 1
 
     set P0[0],-7
@@ -90,7 +90,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Setting second element" );
-    new P0, 'FixedStringArray'
+    new P0, ['FixedStringArray']
     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, 'FixedStringArray'
+    new P0, ['FixedStringArray']
     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, 'FixedStringArray'
+    new P0, ['FixedStringArray']
     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, 'FixedStringArray'
+     new P0, ['FixedStringArray']
      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, 'FixedStringArray'
+     new P0, ['FixedStringArray']
      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
@@ -228,7 +228,7 @@
 
 .sub _main
     .local pmc pmc1
-    pmc1 = new 'FixedStringArray'
+    pmc1 = new ['FixedStringArray']
     .local int bool1
     does bool1, pmc1, "scalar"
     print bool1
@@ -248,7 +248,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Clone" );
-     new P0, 'FixedStringArray'
+     new P0, ['FixedStringArray']
      set P0, 3
      set P0[0], "abcde"
      set P0[1], "fghi"
@@ -270,7 +270,7 @@
 OUTPUT
 
 pasm_error_output_like( <<'CODE', <<'OUTPUT', "Cloning before size is set" );
-     new P0, 'FixedStringArray'
+     new P0, ['FixedStringArray']
      clone P1, P0
      set P0, 10
      set P1, 20
@@ -287,7 +287,7 @@
 #VIM's syntax highlighter needs this line
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Truth" );
-     new P0, 'FixedStringArray'
+     new P0, ['FixedStringArray']
      unless P0, OK1
      print "not "
 OK1: print "ok 1\n"
@@ -302,7 +302,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Garbage collection" );
-     new P0, 'FixedStringArray'
+     new P0, ['FixedStringArray']
      set P0, 8192
      set I0, 0
 L1:  set P0[I0], I0
@@ -331,7 +331,7 @@
 
 pir_output_is( <<'CODE', <<'OUTPUT', "get_iter" );
 .sub 'main' :main
-    new $P0, 'FixedStringArray'
+    new $P0, ['FixedStringArray']
     set $P0, 3
     $P0[0] = 42
     $P0[1] = 43
@@ -355,7 +355,7 @@
     .local pmc fsa, it
     .local string s
 
-    new fsa, 'FixedStringArray'
+    new fsa, ['FixedStringArray']
     fsa = 5
     fsa[0] = 42
     fsa[1] = 43

Modified: trunk/t/pmc/float.t
==============================================================================
--- trunk/t/pmc/float.t	(original)
+++ trunk/t/pmc/float.t	Sat Jan 10 23:23:36 2009
@@ -26,7 +26,7 @@
 
 pasm_output_is( <<"CODE", <<OUTPUT, "basic assignment" );
     .include 'include/fp_equality.pasm'
-    new P0, 'Float'
+    new P0, ['Float']
 
     set P0, 0.001
     .fp_eq_pasm( P0, 0.001, EQ1)
@@ -79,7 +79,7 @@
 
 pasm_output_is( <<"CODE", <<OUTPUT, "add number to self" );
     .include 'include/fp_equality.pasm'
-    new P0, 'Float'
+    new P0, ['Float']
     set P0, 0.001
     add P0, P0, P0
     .fp_eq_pasm( P0, 0.002, EQ1)
@@ -93,7 +93,7 @@
 
 pasm_output_is( <<"CODE", <<OUTPUT, "sub number from self" );
     .include 'include/fp_equality.pasm'
-    new P0, 'Float'
+    new P0, ['Float']
     set P0, -1000.2
     sub P0, P0, P0
     .fp_eq_pasm( P0, 0.0, EQ1)
@@ -107,7 +107,7 @@
 
 pasm_output_is( <<"CODE", <<OUTPUT, "multiply number by self" );
     .include 'include/fp_equality.pasm'
-    new P0, 'Float'
+    new P0, ['Float']
     set P0, 123.4
     mul P0, P0, P0
     .fp_eq_pasm( P0, 15227.56, EQ1)
@@ -121,7 +121,7 @@
 
 pasm_output_is( <<"CODE", <<OUTPUT, "divide number by self" );
     .include 'include/fp_equality.pasm'
-    new P0, 'Float'
+    new P0, ['Float']
     set P0, 1829354.988
     div P0, P0, P0
     .fp_eq_pasm( P0, 1.0, EQ1)
@@ -135,10 +135,10 @@
 
 pir_output_is( <<'CODE', <<OUTPUT, "divide by zero" );
 .sub _main :main
-    $P0 = new 'Float'
+    $P0 = new ['Float']
     set $P0, "12.0"
-    $P1 = new 'Float'
-    $P2 = new 'Float'
+    $P1 = new ['Float']
+    $P2 = new ['Float']
     set $P2, "0.0"
     push_eh OK
     $P1 = $P0 / $P2
@@ -160,7 +160,7 @@
 
 .sub _main
     .local pmc float_1
-    float_1 = new 'Float'
+    float_1 = new ['Float']
     float_1 = 123.123
     print float_1
     if float_1 goto IS_TRUE
@@ -178,7 +178,7 @@
 
 .sub _main
     .local pmc float_1
-    float_1 = new 'Float'
+    float_1 = new ['Float']
     float_1 = -123.123
     print float_1
     if float_1 goto IS_TRUE
@@ -196,7 +196,7 @@
 
 .sub _main
     .local pmc float_1
-    float_1 = new 'Float'
+    float_1 = new ['Float']
     float_1 = 1
     print float_1
     if float_1 goto IS_TRUE
@@ -214,7 +214,7 @@
 
 .sub _main
     .local pmc float_1
-    float_1 = new 'Float'
+    float_1 = new ['Float']
     float_1 = -1
     print float_1
     if float_1 goto IS_TRUE
@@ -232,7 +232,7 @@
 
 .sub _main
     .local pmc float_1
-    float_1 = new 'Float'
+    float_1 = new ['Float']
     float_1 = 0
     print float_1
     if float_1 goto IS_TRUE
@@ -250,7 +250,7 @@
 
 .sub _main
     .local pmc float_1
-    float_1 = new 'Float'
+    float_1 = new ['Float']
     float_1 = 0.000
     print float_1
     if float_1 goto IS_TRUE
@@ -266,7 +266,7 @@
 
 pasm_output_is( << "CODE", << 'OUTPUT', "Basic integer arithmetic: addition" );
     .include 'include/fp_equality.pasm'
-    new P0, 'Float'
+    new P0, ['Float']
     set P0, 0.001
     add P0, 1
     .fp_eq_pasm(P0, 1.001, EQ1)
@@ -287,7 +287,7 @@
 
 pasm_output_is( << "CODE", << 'OUTPUT', "Basic integer arithmetic: subtraction" );
     .include 'include/fp_equality.pasm'
-    new P0, 'Float'
+    new P0, ['Float']
     set P0, 103.45
     sub P0, 77
     .fp_eq_pasm(P0, 26.45, EQ1)
@@ -308,7 +308,7 @@
 
 pasm_output_is( << "CODE", << 'OUTPUT', "Basic integer arithmetic: multiplication" );
     .include 'include/fp_equality.pasm'
-    new P0, 'Float'
+    new P0, ['Float']
     set P0, 0.001
     mul P0, 10000
     .fp_eq_pasm(P0, 10.0, EQ1)
@@ -336,7 +336,7 @@
 
 pasm_output_is( << "CODE", << 'OUTPUT', "Basic integer arithmetic: division" );
     .include 'include/fp_equality.pasm'
-    new P0, 'Float'
+    new P0, ['Float']
     set P0, 1e8
     div P0, 10000
     .fp_eq_pasm(P0, 10000.0, EQ1)
@@ -357,7 +357,7 @@
 
 pasm_output_is( << "CODE", << 'OUTPUT', "Basic numeric arithmetic: addition" );
     .include 'include/fp_equality.pasm'
-    new P0, 'Float'
+    new P0, ['Float']
     set P0, 0.001
     add P0, 1.2
     .fp_eq_pasm(P0, 1.201, EQ1)
@@ -378,7 +378,7 @@
 
 pasm_output_is( << "CODE", << 'OUTPUT', "Basic numeric arithmetic: subtraction" );
     .include 'include/fp_equality.pasm'
-    new P0, 'Float'
+    new P0, ['Float']
     set P0, 103.45
     sub P0, 3.46
     .fp_eq_pasm(P0, 99.99, EQ1)
@@ -399,7 +399,7 @@
 
 pasm_output_is( << "CODE", << 'OUTPUT', "Basic numeric arithmetic: multiplication" );
     .include 'include/fp_equality.pasm'
-    new P0, 'Float'
+    new P0, ['Float']
     set P0, 0.001
     mul P0, 123.5
     .fp_eq_pasm(P0, 0.1235, EQ1)
@@ -427,7 +427,7 @@
 
 pasm_output_is( << "CODE", << 'OUTPUT', "Basic numeric arithmetic: division" );
     .include 'include/fp_equality.pasm'
-    new P0, 'Float'
+    new P0, ['Float']
     set P0, 1e8
     div P0, 0.5
     .fp_eq_pasm(P0, 2e8, EQ1)
@@ -448,7 +448,7 @@
 
 pasm_output_is( << "CODE", << 'OUTPUT', "Increment & decrement" );
     .include 'include/fp_equality.pasm'
-    new P0, 'Float'
+    new P0, ['Float']
     set P0, 0.5
     inc P0
     .fp_eq_pasm(P0, 1.5, EQ1)
@@ -483,7 +483,7 @@
 
 pasm_output_is( << "CODE", << 'OUTPUT', "Neg" );
     .include 'include/fp_equality.pasm'
-    new P0, 'Float'
+    new P0, ['Float']
     set P0, 0.5
     neg P0
     .fp_eq_pasm(P0, -0.5, EQ1)
@@ -491,7 +491,7 @@
     print "not "
 EQ1:    print "ok 1\\n"
 
-        new P1, 'Float'
+        new P1, ['Float']
     neg P1, P0
     .fp_eq_pasm(P1, 0.5, EQ2)
     print P1
@@ -507,7 +507,7 @@
     skip 'failing on win32' => 1 if $^O =~ m/win32/i;
 
 pasm_output_like( << 'CODE', << 'OUTPUT', "neg 0" );
-    new P0, 'Float'
+    new P0, ['Float']
     set P0, 0.0
     neg P0
         print P0
@@ -519,11 +519,11 @@
 }
 
 pasm_output_is( << 'CODE', << 'OUTPUT', "Equality" );
-    new P0, 'Float'
+    new P0, ['Float']
     set P0, 1e8
-        new P1, 'Float'
+        new P1, ['Float']
         set P1, 1e8
-        new P2, 'Float'
+        new P2, ['Float']
         set P2, 2.4
 
         eq P0, P1, OK1
@@ -577,7 +577,7 @@
 
 .sub _main
     .local pmc pmc1
-    pmc1 = new 'Float'
+    pmc1 = new ['Float']
     .local int bool1
     does bool1, pmc1, "scalar"
     print bool1
@@ -598,7 +598,7 @@
 
 pasm_output_is( << "CODE", << 'OUTPUT', "Abs" );
     .include 'include/fp_equality.pasm'
-    new P0, 'Float'
+    new P0, ['Float']
     set P0, 1.0
     abs P0
         eq P0, P0, OK1
@@ -613,7 +613,7 @@
     print "not "
 OK2:    print "ok 2\\n"
 
-        new P1, 'Float'
+        new P1, ['Float']
         set P0, -5.0
         abs P1, P0
         .fp_eq_pasm(P1, 5.0, OK3)
@@ -628,7 +628,7 @@
 OUTPUT
 
 pasm_output_is( << 'CODE', << 'OUTPUT', "comparison ops: lt" );
-        new P1, 'Float'
+        new P1, ['Float']
         set P1, 111.1
         set N1, P1
 
@@ -653,13 +653,13 @@
 OUTPUT
 
 pasm_output_is( << 'CODE', << 'OUTPUT', "comparison ops: lt_num" );
-        new P1, 'Float'
+        new P1, ['Float']
         set P1, 1.1
-        new P2, 'Float'
+        new P2, ['Float']
         set P2, 1.2
-        new P3, 'Float'
+        new P3, ['Float']
         set P3, 1.0
-        new P4, 'Float'
+        new P4, ['Float']
         set P4, P1
 
         lt_num P1, P2, OK1
@@ -683,7 +683,7 @@
 OUTPUT
 
 pasm_output_is( << 'CODE', << 'OUTPUT', "comparison ops: le" );
-        new P1, 'Float'
+        new P1, ['Float']
         set P1, 111.1
         set N1, P1
 
@@ -707,13 +707,13 @@
 OUTPUT
 
 pasm_output_is( << 'CODE', << 'OUTPUT', "comparison ops: le_num" );
-        new P1, 'Float'
+        new P1, ['Float']
         set P1, 1.1
-        new P2, 'Float'
+        new P2, ['Float']
         set P2, 1.2
-        new P3, 'Float'
+        new P3, ['Float']
         set P3, 1.0
-        new P4, 'Float'
+        new P4, ['Float']
         set P4, P1
 
         le_num P1, P2, OK1
@@ -736,7 +736,7 @@
 OUTPUT
 
 pasm_output_is( << 'CODE', << 'OUTPUT', "comparison ops: gt" );
-        new P1, 'Float'
+        new P1, ['Float']
         set P1, 111.1
         set N1, P1
 
@@ -761,13 +761,13 @@
 OUTPUT
 
 pasm_output_is( << 'CODE', << 'OUTPUT', "comparison ops: gt_num" );
-        new P1, 'Float'
+        new P1, ['Float']
         set P1, 1.1
-        new P2, 'Float'
+        new P2, ['Float']
         set P2, 1.2
-        new P3, 'Float'
+        new P3, ['Float']
         set P3, 1.0
-        new P4, 'Float'
+        new P4, ['Float']
         set P4, P1
 
         gt_num P1, P2, BAD1
@@ -791,7 +791,7 @@
 OUTPUT
 
 pasm_output_is( << 'CODE', << 'OUTPUT', "comparison ops: ge" );
-        new P1, 'Float'
+        new P1, ['Float']
         set P1, 111.1
         set N1, P1
 
@@ -815,13 +815,13 @@
 OUTPUT
 
 pasm_output_is( << 'CODE', << 'OUTPUT', "comparison ops: ge_num" );
-        new P1, 'Float'
+        new P1, ['Float']
         set P1, 1.1
-        new P2, 'Float'
+        new P2, ['Float']
         set P2, 1.2
-        new P3, 'Float'
+        new P3, ['Float']
         set P3, 1.0
-        new P4, 'Float'
+        new P4, ['Float']
         set P4, P1
 
         ge_num P1, P2, BAD1
@@ -844,7 +844,7 @@
 OUTPUT
 
 pasm_output_is( << 'CODE', << 'OUTPUT', "comparison ops: cmp_p_n" );
-        new P1, 'Float'
+        new P1, ['Float']
         set P1, 123.45
         set N1, 123.45
         set N2, -1.0
@@ -867,12 +867,12 @@
 OUTPUT
 
 pasm_output_is( << 'CODE', << 'OUTPUT', "comparison ops: isgt" );
-        new P1, 'Float'
-        new P2, 'Float'
-        new P3, 'Float'
-        new P4, 'Integer'
-        new P5, 'Integer'
-        new P6, 'Float'
+        new P1, ['Float']
+        new P2, ['Float']
+        new P3, ['Float']
+        new P4, ['Integer']
+        new P5, ['Integer']
+        new P6, ['Float']
 
         set P1, 10.0
         set P2, 20.0
@@ -910,12 +910,12 @@
 OUTPUT
 
 pasm_output_is( << 'CODE', << 'OUTPUT', "comparison ops: isge" );
-        new P1, 'Float'
-        new P2, 'Float'
-        new P3, 'Float'
-        new P4, 'Integer'
-        new P5, 'Integer'
-        new P6, 'Float'
+        new P1, ['Float']
+        new P2, ['Float']
+        new P3, ['Float']
+        new P4, ['Integer']
+        new P5, ['Integer']
+        new P6, ['Float']
 
         set P1, 10.0
         set P2, 20.0
@@ -953,12 +953,12 @@
 OUTPUT
 
 pasm_output_is( << 'CODE', << 'OUTPUT', "comparison ops: islt" );
-        new P1, 'Float'
-        new P2, 'Float'
-        new P3, 'Float'
-        new P4, 'Integer'
-        new P5, 'Integer'
-        new P6, 'Float'
+        new P1, ['Float']
+        new P2, ['Float']
+        new P3, ['Float']
+        new P4, ['Integer']
+        new P5, ['Integer']
+        new P6, ['Float']
 
         set P1, 10.0
         set P2, 20.0
@@ -996,12 +996,12 @@
 OUTPUT
 
 pasm_output_is( << 'CODE', << 'OUTPUT', "comparison ops: isle" );
-        new P1, 'Float'
-        new P2, 'Float'
-        new P3, 'Float'
-        new P4, 'Integer'
-        new P5, 'Integer'
-        new P6, 'Float'
+        new P1, ['Float']
+        new P2, ['Float']
+        new P3, ['Float']
+        new P4, ['Integer']
+        new P5, ['Integer']
+        new P6, ['Float']
 
         set P1, 10.0
         set P2, 20.0
@@ -1039,10 +1039,10 @@
 OUTPUT
 
 pasm_output_is( << 'CODE', << 'OUTPUT', "comparison ops: iseq" );
-        new P1, 'Float'
-        new P2, 'Float'
-        new P3, 'Float'
-        new P4, 'Integer'
+        new P1, ['Float']
+        new P2, ['Float']
+        new P3, ['Float']
+        new P4, ['Integer']
 
         set P1, 2.5
         set P2, 2.6
@@ -1070,10 +1070,10 @@
 OUTPUT
 
 pasm_output_is( << 'CODE', << 'OUTPUT', "comparison ops: isne" );
-        new P1, 'Float'
-        new P2, 'Float'
-        new P3, 'Float'
-        new P4, 'Integer'
+        new P1, ['Float']
+        new P2, ['Float']
+        new P3, ['Float']
+        new P4, ['Integer']
 
         set P1, 2.5
         set P2, 2.6
@@ -1114,9 +1114,9 @@
 .sub main :main
     $P0 = subclass 'Float', 'Flt'
 
-    $P1 = new 'Flt'
+    $P1 = new ['Flt']
     $P1 = 1.5
-    $P2 = new 'Flt'
+    $P2 = new ['Flt']
     $P2 = 2.73
 
     $I0 = cmp $P1, $P2

Modified: trunk/t/pmc/freeze.t
==============================================================================
--- trunk/t/pmc/freeze.t	(original)
+++ trunk/t/pmc/freeze.t	Sat Jan 10 23:23:36 2009
@@ -26,7 +26,7 @@
 END { unlink "temp.fpmc"; }
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "freeze/thaw a Integer" );
-    new P1, 'Integer'
+    new P1, ['Integer']
     set P1, 777
     freeze S0, P1
 
@@ -42,7 +42,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "freeze/thaw a String" );
-    new P1, 'String'
+    new P1, ['String']
     set P1, "foo"
     freeze S0, P1
 
@@ -58,7 +58,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "freeze/thaw a Float" );
-    new P1, 'Float'
+    new P1, ['Float']
     set P1, 3.14159
     freeze S0, P1
 
@@ -74,11 +74,11 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "freeze/thaw a Hash" );
-    new P1, 'Integer'
+    new P1, ['Integer']
     set P1, 666
-    new P0, 'Hash'
+    new P0, ['Hash']
     set P0["k1"], P1
-    new P1, 'Integer'
+    new P1, ['Integer']
     set P1, 777
     set P0["k2"], P1
     freeze S0, P0
@@ -104,11 +104,11 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "freeze/thaw a Hash" );
-    new P1, 'Integer'
+    new P1, ['Integer']
     set P1, 666
-    new P0, 'Hash'
+    new P0, ['Hash']
     set P0["k1"], P1
-    new P1, 'Integer'
+    new P1, ['Integer']
     set P1, 777
     set P0["k2"], P1
     freeze S0, P0
@@ -134,9 +134,9 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "freeze/thaw a Integer with prop" );
-    new P1, 'Integer'
+    new P1, ['Integer']
     set P1, 666
-    new P2, 'Integer'
+    new P2, ['Integer']
     set P2, 42
     setprop P1, "answer", P2
     freeze S0, P1
@@ -158,14 +158,14 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "freeze/thaw Array w Integer with prop" );
-    new P0, 'ResizablePMCArray'
-    new P1, 'Integer'
+    new P0, ['ResizablePMCArray']
+    new P1, ['Integer']
     set P1, 666
     push P0, P1
-    new P2, 'Integer'
+    new P2, ['Integer']
     set P2, 777
     push P0, P2
-    new P3, 'Integer'
+    new P3, ['Integer']
     set P3, 42
     setprop P1, "answer", P3
 
@@ -209,10 +209,10 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "freeze/thaw array w NULL pmc" );
-    new P0, 'ResizablePMCArray'
+    new P0, ['ResizablePMCArray']
     null P1
     push P0, P1
-    new P1, 'Integer'
+    new P1, ['Integer']
     set P1, 10
     push P0, P1
 
@@ -261,15 +261,15 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "freeze/thaw a FixedPMCArray" );
-    new P0, 'FixedPMCArray'
+    new P0, ['FixedPMCArray']
     set P0, 3
-    new P1, 'Integer'
+    new P1, ['Integer']
     set P1, 666
     set P0[0], P1
-    new P2, 'Integer'
+    new P2, ['Integer']
     set P2, 777
     set P0[1], P2
-    new P1, 'Integer'
+    new P1, ['Integer']
     set P1, 666
     set P0[2], P1
     freeze S0, P0
@@ -303,12 +303,12 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "freeze/thaw a FixedPMCArray" );
-    new P0, 'FixedPMCArray'
+    new P0, ['FixedPMCArray']
     set P0, 3
-    new P1, 'Integer'
+    new P1, ['Integer']
     set P1, 666
     set P0[0], P1
-    new P2, 'Integer'
+    new P2, ['Integer']
     set P2, 777
     set P0[1], P2
     set P0[2], P1
@@ -444,7 +444,7 @@
 
     new P5, S10
     print "ok 3\n"
-    new P6, 'String'
+    new P6, ['String']
     set P6, "ok 5\n"
     setattribute P5, '.aa', P6
     print "ok 4\n"
@@ -483,10 +483,10 @@
 
     new P5, S10
     print "ok 3\n"
-    new P6, 'String'
+    new P6, ['String']
     set P6, "ok 5\n"
     setattribute P5, ["Foo"], ".aa", P6
-    new P6, 'String'
+    new P6, ['String']
     set P6, "ok 6\n"
     setattribute P5, ["Foo"], ".bb", P6
     print "ok 4\n"
@@ -512,7 +512,7 @@
     newclass P10, "Foo"
     addattribute P10, ".aa"
     addattribute P10, ".bb"
-    new P10, "Foo"
+    new P10, ['Foo']
     print S10
     freeze S3, P10
     open P3, "temp.fpmc", 'w'
@@ -527,10 +527,10 @@
     print "\n"
 
     print "ok 3\n"
-    new P6, 'String'
+    new P6, ['String']
     set P6, "ok 5\n"
     setattribute P5, ["Foo"], ".aa", P6
-    new P6, 'String'
+    new P6, ['String']
     set P6, "ok 6\n"
     setattribute P5, ["Foo"], ".bb", P6
     print "ok 4\n"
@@ -568,10 +568,10 @@
     print "\n"
 
     print "ok 3\n"
-    new P6, 'String'
+    new P6, ['String']
     set P6, "ok 5\n"
     setattribute P5, ["Foo"], ".aa", P6
-    new P6, 'String'
+    new P6, ['String']
     set P6, "ok 6\n"
     setattribute P5, ["Foo"], ".bb", P6
     print "ok 4\n"
@@ -590,17 +590,17 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "freeze Key" );
-    new P0, 'Hash'
-    new P1, 'FixedPMCArray'
+    new P0, ['Hash']
+    new P1, ['FixedPMCArray']
     set P1, 2
     set P1[1], P0
     set P0["foo"], "ok\n"
     set S0, P1[1; "foo"]
     print S0
 
-    new P3, 'Key'
+    new P3, ['Key']
     set P3, 1
-    new P4, 'Key'
+    new P4, ['Key']
     set P4, "foo"
     push P3, P4
 
@@ -627,7 +627,7 @@
 .sub test :main
     .local pmc original_arr, thawed_arr
     .local string frozen_arr
-    original_arr = new 'ResizableBooleanArray'
+    original_arr = new ['ResizableBooleanArray']
     set original_arr, 666
     original_arr[555] = 777
 
@@ -691,7 +691,7 @@
 .sub test :main
     .local pmc original_arr, thawed_arr
     .local string frozen_arr
-    original_arr = new 'ResizablePMCArray'
+    original_arr = new ['ResizablePMCArray']
     original_arr[0] = 1
     original_arr[1] = 2.72
     original_arr[2] = "three.14"
@@ -757,7 +757,7 @@
     .local pmc cl, o
     cl = newclass 'Conure'
     addattribute cl, 'temperature'
-    o = new 'Conure'
+    o = new ['Conure']
     $S0 = freeze o
     $P1 = thaw $S0
     $P2 = getattribute $P1, 'temperature'
@@ -766,7 +766,7 @@
 
 .namespace ['Conure']
 .sub __init :method
-    $P0 = new 'Integer'
+    $P0 = new ['Integer']
     $P0 = 37
     setattribute self, 'temperature', $P0
 .end
@@ -782,7 +782,7 @@
     addattribute cl, '%!key'
     addattribute cl, '%!klen'
     addattribute cl, '&!ws'
-    o = new 'OPTable'
+    o = new ['OPTable']
     o."init"()
     o."test"()
     $S0 = freeze o
@@ -794,8 +794,8 @@
 
 .sub "init" :method :vtable
     .local pmc keytable, klentable
-    keytable = new 'Hash'
-    klentable = new 'Hash'
+    keytable = new ['Hash']
+    klentable = new ['Hash']
     setattribute self, '%!key', keytable
     setattribute self, '%!klen', klentable
 .end

Modified: trunk/t/pmc/hash.t
==============================================================================
--- trunk/t/pmc/hash.t	(original)
+++ trunk/t/pmc/hash.t	Sat Jan 10 23:23:36 2009
@@ -102,11 +102,11 @@
 .end
 
 .sub more_than_one_hash
-    new $P0, 'Hash'
+    new $P0, ['Hash']
     set $S0, "key"
     set $P0[$S0], 1
 
-    new $P1, 'Hash'
+    new $P1, ['Hash']
     set $S1, "another_key"
     set $P1[$S1], 2
 
@@ -119,12 +119,12 @@
 
 .sub null_key
     # See RT #59542
-    new $P0, 'Hash'
+    new $P0, ['Hash']
     $P0['yum'] = 5
     null $S0
     $I0 = 0
 
-    $P2 = new 'ExceptionHandler'
+    $P2 = new ['ExceptionHandler']
     $P2.'handle_types'(.EXCEPTION_UNEXPECTED_NULL)
     set_addr $P2, null_ex_eh
     push_eh $P2
@@ -142,7 +142,7 @@
 .end
 
 .sub hash_keys_with_nulls_in_them
-    new $P0, 'Hash'
+    new $P0, ['Hash']
     set $S0, "parp\0me"
     set $S1, "parp\0you"
 
@@ -157,7 +157,7 @@
 .end
 
 .sub nearly_the_same_hash_keys
-    new $P0, 'Hash'
+    new $P0, ['Hash']
     set $S0, "a\0"
     set $S1, "\0a"
 
@@ -172,7 +172,7 @@
 .end
 
 .sub the_same_hash_keys
-    new $P0, 'Hash'
+    new $P0, ['Hash']
     set $S0, "Happy"
     set $S1, "Happy"
 
@@ -191,7 +191,7 @@
 # XXX - really?
 
 .sub key_that_hashes_to_zero
-        new $P0, 'Hash'
+        new $P0, ['Hash']
         set $S0, "key2"
         set $P0[$S0], 1
         set $I0, $P0[$S0]
@@ -200,7 +200,7 @@
 .end
 
 .sub size_of_the_hash
-    new $P0, 'Hash'
+    new $P0, ['Hash']
 
     set $P0["0"], 1
     set $I0, $P0
@@ -388,7 +388,7 @@
 .end
 
 .sub testing_two_hash_indices_with_integers_at_a_time
-      new $P0, 'Hash'
+      new $P0, ['Hash']
 
       set $P0["foo"],37
       set $P0["bar"],-15
@@ -409,7 +409,7 @@
 .end
 
 .sub testing_two_hash_indices_with_numbers_at_a_time
-      new $P0, 'Hash'
+      new $P0, ['Hash']
 
       set $P0["foo"],37.100000
       set $P0["bar"],-15.100000
@@ -431,7 +431,7 @@
 .end
 
 .sub testing_two_hash_indices_with_strings_at_a_time
-      new $P0, 'Hash'
+      new $P0, ['Hash']
 
       set $P0["foo"],"baz"
       set $P0["bar"],"qux"
@@ -456,9 +456,9 @@
 # and/or keys. Now we try PMCs.
 
 .sub setting_and_getting_scalar_pmcs
-      new $P0, 'Hash'
-      new $P1, 'Integer'
-      new $P2, 'Integer'
+      new $P0, ['Hash']
+      new $P1, ['Integer']
+      new $P2, ['Integer']
 
       set $S0, "non-PMC key"
 
@@ -477,7 +477,7 @@
       set $P2, $P0[$S0]
       is( $P2, $P1, 'lookup string' )
 
-      new $P1, 'Undef'
+      new $P1, ['Undef']
       set $P0[$S0], $P1
       set $P2, $P0[$S0]
       typeof $S1, $P2
@@ -486,8 +486,8 @@
 .end
 
 .sub setting_scalar_pmcs_and_getting_scalar_values
-      new $P0, 'Hash'
-      new $P1, 'Integer'
+      new $P0, ['Hash']
+      new $P1, ['Integer']
 
       set $S0, "A rather large key"
 
@@ -512,7 +512,7 @@
 .end
 
 .sub getting_values_from_undefined_keys
-      new $P2, 'Hash'
+      new $P2, ['Hash']
 
       set $I0, $P2["qwerty"]
       set $N0, $P2["asdfgh"]
@@ -531,9 +531,9 @@
 .end
 
 .sub setting_and_getting_non_scalar_pmcs
-        new $P0,'Hash'
-        new $P1,'ResizablePMCArray'
-        new $P2,'ResizablePMCArray'
+        new $P0, ['Hash']
+        new $P1, ['ResizablePMCArray']
+        new $P2, ['ResizablePMCArray']
         set $P1[4],"string"
         set $P0["one"],$P1
         set $P2,$P0["one"]
@@ -542,10 +542,10 @@
 .end
 
 .sub testing_clone
-    new $P0, 'Hash'
+    new $P0, ['Hash']
     set $S0, "a"
     set $P0[$S0], $S0
-    new $P2, 'ResizablePMCArray'
+    new $P2, ['ResizablePMCArray']
     set $P2, 2
     set $P0["b"], $P2
 
@@ -596,7 +596,7 @@
     .local int all_ok
 
     all_ok = 1
-    h      = new 'Hash'
+    h      = new ['Hash']
 
     h['a'] = 1
     h['b'] = 2
@@ -619,7 +619,7 @@
 
     if s1 != s2 goto fail
 
-    h = new 'Hash'
+    h = new ['Hash']
 
     h['aa'] = 1
     h['bb'] = 2
@@ -639,7 +639,7 @@
     s2 = get_repr cloned
     if s1 != s2 goto fail
 
-    h = new 'Hash'
+    h = new ['Hash']
 
     h['one']    = 1
     h['two']    = 2
@@ -672,7 +672,7 @@
     .local int all_ok
 
     all_ok = 1
-    h      = new 'Hash'
+    h      = new ['Hash']
 
     h['a'] = 1
     h['b'] = 2
@@ -694,7 +694,7 @@
 
     if s1 != s2 goto fail
 
-    h = new 'Hash'
+    h = new ['Hash']
 
     h['aa'] = 1
     h['bb'] = 2
@@ -715,7 +715,7 @@
     s2 = get_repr cloned
     if s1 != s2 goto fail
 
-    h = new 'Hash'
+    h = new ['Hash']
 
     h['one']    = 1
     h['two']    = 2
@@ -744,9 +744,9 @@
 .end
 
 .sub compound_keys
-    new $P0, 'Hash'
-    new $P1, 'Hash'
-    new $P2, 'ResizablePMCArray'
+    new $P0, ['Hash']
+    new $P1, ['Hash']
+    new $P2, ['ResizablePMCArray']
     set $P1["b"], "ab"
     set $P0["a"], $P1
     set $S0, $P0["a";"b"]
@@ -780,9 +780,9 @@
 .end
 
 .sub getting_pmcs_from_compound_keys
-    new $P0, 'Hash'
-    new $P1, 'Hash'
-    new $P2, 'Integer'
+    new $P0, ['Hash']
+    new $P1, ['Hash']
+    new $P2, ['Integer']
     set $P2, 12
     set $P1["b"], $P2
     set $P0["a"], $P1
@@ -793,9 +793,9 @@
 # 12
 
 .sub getting_pmcs_from_string_int_compound_keys
-    new $P0, 'Hash'
-    new $P1, 'Hash'
-    new $P2, 'Integer'
+    new $P0, ['Hash']
+    new $P1, ['Hash']
+    new $P2, ['Integer']
     set $P2, 4
     set $P1[9], $P2
     set $I0, $P1[9]
@@ -809,7 +809,7 @@
 # A hash is only false if it has size 0
 
 .sub if_hash
-    new $P0, 'Hash'
+    new $P0, ['Hash']
 
     ## Could just use Test::More tests directly, but then we are really
     ## checking casting to Int then testing value (I think)
@@ -835,7 +835,7 @@
   L3:
     ok( $I1, 'Hash with one value ("") is true' )
 
-    new $P1, 'Undef'
+    new $P1, ['Undef']
     set $P0["key"], $P1
     $I1 = 1
     if $P0, L4
@@ -846,7 +846,7 @@
 .end
 
 .sub unless_hash
-    new $P0, 'Hash'
+    new $P0, ['Hash']
 
     $I0 = 1
     unless $P0, L1
@@ -869,7 +869,7 @@
     ok( $I0, 'Hash with one value ("\0") is true' )
 
     $I0 = 0
-    new $P1, 'Undef'
+    new $P1, ['Undef']
     set $P0["key"], $P1
     unless $P0, L4
       $I0 = 1
@@ -879,7 +879,7 @@
 .end
 
 .sub defined_hash
-    new $P0, 'Hash'
+    new $P0, ['Hash']
 
     defined $I0, $P0
     ok( $I0, 'Empty has is defined' )
@@ -898,7 +898,7 @@
     $I0 = not $I0
     ok( $I0, 'Unassigned hash slot is undefined' )
 
-    new $P1, 'Undef'
+    new $P1, ['Undef']
     set $P0["c"], $P1
     defined $I0, $P0["c"]
     $I0 = not $I0
@@ -906,7 +906,7 @@
 .end
 
 .sub exists_hash_key
-    new $P0, 'Hash'
+    new $P0, ['Hash']
 
     set $P0["a"], 1
     exists $I0, $P0["a"]
@@ -916,14 +916,14 @@
     $I0 = not $I0
     ok( $I0, 'unassigned hash key does not exist' )
 
-    new $P1, 'Undef'
+    new $P1, ['Undef']
     set $P0["c"], $P1
     exists $I0, $P0["c"]
     ok( $I0, 'hash key assigned Undef PMC exists' )
 .end
 
 .sub delete_hash_key
-    new $P0, 'Hash'
+    new $P0, ['Hash']
 
     set $P0["a"], 1
     exists $I0, $P0["a"]
@@ -936,8 +936,8 @@
 .end
 
 .sub cloning_keys
-    new $P10, 'Hash'
-    new $P1, 'Key'
+    new $P10, ['Hash']
+    new $P1, ['Key']
 
     set $P1, "Bar"
     set $P10[$P1], "Food"
@@ -953,13 +953,13 @@
 .end
 
 .sub cloning_pmc_vals
-    new $P10, 'Hash'
+    new $P10, ['Hash']
 
-    new $P1, 'Undef'
+    new $P1, ['Undef']
     set $P1, "value"
     set $P10["str"], $P1
 
-    new $P1, 'Undef'
+    new $P1, ['Undef']
     set $P1, 42
     set $P10["int"], $P1
 
@@ -973,9 +973,9 @@
 .sub delete_and_free_list
     set $I2, 10
     set $I1, 1
-    new $P0, 'SArray'
+    new $P0, ['SArray']
     set $P0, 1
-    new $P1, 'Hash'
+    new $P1, ['Hash']
 outer:
     set $P0[0], $I1
     sprintf $S0, "ok %vd\n", $P0
@@ -1000,7 +1000,7 @@
 
 ## XXX already tested?
 .sub exists_with_constant_string_key
-    new $P16, 'Hash'
+    new $P16, ['Hash']
 
     set $P16["key1"], "value for key1"
     set $S16, $P16["key1"]
@@ -1016,7 +1016,7 @@
 
 .sub hash_in_pir
     .local pmc hash1
-    hash1 = new 'Hash'
+    hash1 = new ['Hash']
     hash1['X'] = 'U'
     .local string val1
     val1 = hash1['X']
@@ -1025,11 +1025,11 @@
 
 .sub setting_with_compound_keys
     .local pmc outer_hash
-    outer_hash = new 'Hash'
+    outer_hash = new ['Hash']
     .local pmc inner_hash
-    inner_hash = new 'Hash'
+    inner_hash = new ['Hash']
     .local pmc inner_array
-    inner_array = new 'ResizablePMCArray'
+    inner_array = new ['ResizablePMCArray']
     .local string elem_string
     .local int    elem_int
     .local pmc    elem_pmc
@@ -1073,7 +1073,7 @@
 
     # setting and retrieving a PMC in an inner ResizablePMCArray
     .local pmc in_pmc
-    in_pmc = new 'String'
+    in_pmc = new ['String']
     in_pmc = 'inner_array:132'
     inner_array[132] = in_pmc
     outer_hash['inner_array'] = inner_array
@@ -1116,7 +1116,7 @@
 .end
 
 .sub mutating_the_lookup_string
-    new $P0, 'Hash'
+    new $P0, ['Hash']
     set $P0["a"], "one"
     set $P0["ab"], "two"
     set $P0["abc"], "three"
@@ -1136,7 +1136,7 @@
 
 .sub check_whether_interface_is_done
     .local pmc pmc1
-    pmc1 = new 'Hash'
+    pmc1 = new ['Hash']
     .local int bool1
 
     does bool1, pmc1, "scalar"
@@ -1152,7 +1152,7 @@
 .end
 
 .sub iter_over_hash
-    new $P0, 'Hash'
+    new $P0, ['Hash']
     set $P0['a'], 'x'
 
     iter $P1, $P0
@@ -1181,13 +1181,13 @@
   .local pmc thash
 
   # just put in some dummy data...
-  thash = new 'Hash'
+  thash = new ['Hash']
   thash["a"] = "b"
   thash["c"] = "d"
   thash["e"] = "f"
 
   .local pmc iter
-  iter = new 'Iterator', thash
+  iter = new ['Iterator'], thash
   iter = .ITERATE_FROM_START
 
   .local string key
@@ -1210,7 +1210,7 @@
   # what do we have after deletion?
   result = ""
 
-  iter = new 'Iterator', thash
+  iter = new ['Iterator'], thash
   iter = .ITERATE_FROM_START
 
   # go through the hash, print out all the keys... I believe it should be a and e?
@@ -1228,7 +1228,7 @@
 .end
 
 .sub unicode_keys_register_rt_39249
-  $P1 = new 'Hash'
+  $P1 = new ['Hash']
 
   $S99 = unicode:"\u7777"
   $P1[$S99] = "ok"
@@ -1237,7 +1237,7 @@
 .end
 
 .sub unicode_keys_literal_rt_39249
-  $P1 = new 'Hash'
+  $P1 = new ['Hash']
 
   $P1[unicode:"\u7777"] = "ok"
   $S1 = $P1[unicode:"\u7777"]

Modified: trunk/t/pmc/integer.t
==============================================================================
--- trunk/t/pmc/integer.t	(original)
+++ trunk/t/pmc/integer.t	Sat Jan 10 23:23:36 2009
@@ -27,7 +27,7 @@
 
 .sub _main
     .local pmc int_1
-    int_1 = new 'Integer'
+    int_1 = new ['Integer']
     print int_1
     print "\n"
     int_1 = 1
@@ -66,7 +66,7 @@
 
 .sub _main
     .local pmc int_1
-    int_1 = new 'Integer'
+    int_1 = new ['Integer']
 
     print "A newly created Integer is "
     if int_1 goto LABEL_1
@@ -113,7 +113,7 @@
 
 .sub _main
     .local pmc pmc1
-    pmc1 = new 'Integer'
+    pmc1 = new ['Integer']
     pmc1 = "-123456789"
     print pmc1
     print "\n"
@@ -127,7 +127,7 @@
 
 .sub _main
     .local pmc pmc1
-    pmc1 = new 'Integer'
+    pmc1 = new ['Integer']
 
     .local int pmc1_is_a
     pmc1_is_a = isa pmc1, "Integer"
@@ -147,7 +147,7 @@
 
 .sub _main
     .local pmc pmc1
-    pmc1 = new 'Integer'
+    pmc1 = new ['Integer']
     .local int bool1
     does bool1, pmc1, "scalar"
     print bool1
@@ -170,7 +170,7 @@
 
 .sub _main
     .local pmc pmc1
-    pmc1 = new 'Integer'
+    pmc1 = new ['Integer']
     .local int int1
     pmc1 = 10
     int1 = 20
@@ -196,7 +196,7 @@
 
 .sub _main
     .local pmc pmc1
-    pmc1 = new 'Integer'
+    pmc1 = new ['Integer']
     .local int int1
     pmc1 = 10
     int1 = 5
@@ -230,7 +230,7 @@
 
 .sub _main
     .local pmc pmc1
-    pmc1 = new 'Integer'
+    pmc1 = new ['Integer']
     .local int int1
     pmc1 = 10
     int1 = 5
@@ -262,7 +262,7 @@
 
 .sub _main
     .local pmc pmc1
-    pmc1 = new 'Integer'
+    pmc1 = new ['Integer']
     .local int int1
     pmc1 = 10
     istrue int1, pmc1
@@ -289,7 +289,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "if/unless with Integer PMC" );
-      new P0, 'Integer'
+      new P0, ['Integer']
       set P0, 10
       if P0, OK1
       print "not "
@@ -315,11 +315,11 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUT', "add" );
-   new P0, 'Integer'
+   new P0, ['Integer']
    set P0, 5
-   new P1, 'Integer'
+   new P1, ['Integer']
    set P1, 10
-   new P2, 'Integer'
+   new P2, ['Integer']
    add P2, P0, P1
    set S0, P2
    print S0
@@ -338,8 +338,8 @@
 
 pir_output_is( << 'CODE', << 'OUTPUT', "<oper>" );
 .sub main :main
-    $P0 = new 'Integer'
-    $P1 = new 'Integer'
+    $P0 = new ['Integer']
+    $P1 = new ['Integer']
     set $P0, 6
     set $P1, 2
 
@@ -377,7 +377,7 @@
 
 pir_output_is( <<'CODE', <<'OUTPUT', "can get_as_base()" );
 .sub main :main
-    $P0 = new 'Integer'
+    $P0 = new ['Integer']
     $P0 = 42
     $I0 = can $P0, 'get_as_base'
     if $I0, OK
@@ -390,7 +390,7 @@
 
 pir_error_output_like( <<'CODE', <<'OUTPUT', "get_as_base() bounds check" );
 .sub main :main
-    $P0 = new 'Integer'
+    $P0 = new ['Integer']
     $P0 = 42
 
     $S0 = $P0.'get_as_base'(1)
@@ -405,7 +405,7 @@
 
 pir_error_output_like( <<'CODE', <<'OUTPUT', "get_as_base() bounds check" );
 .sub main :main
-    $P0 = new 'Integer'
+    $P0 = new ['Integer']
     $P0 = 42
 
     $S0 = $P0.'get_as_base'(37)
@@ -420,7 +420,7 @@
 
 pir_output_is( <<'CODE', <<'OUTPUT', "get_as_base(10)" );
 .sub main :main
-    $P0 = new 'Integer'
+    $P0 = new ['Integer']
     $P0 = 42
 
     $S0 = $P0.'get_as_base'(10)
@@ -434,7 +434,7 @@
 
 pir_output_is( <<'CODE', <<'OUTPUT', "get_as_base(various)" );
 .sub main :main
-    $P0 = new 'Integer'
+    $P0 = new ['Integer']
     $P0 = 42
 
     $S0 = $P0.'get_as_base'(2)
@@ -495,9 +495,9 @@
 .sub main :main
     $P0 = subclass 'Integer', 'Int'
 
-    $P1 = new 'Int'
+    $P1 = new ['Int']
     $P1 = 1
-    $P2 = new 'Int'
+    $P2 = new ['Int']
     $P2 = 2
 
     $I0 = cmp $P1, $P2
@@ -515,7 +515,7 @@
 
 pir_output_is( <<'CODE', <<'OUTPUT', 'cmp for Integers more than 2^31 apart, RT #59336' );
 .sub 'main' :main
-    $P0 = new 'Integer'
+    $P0 = new ['Integer']
     $P0 = 2147483600
 
   test_10:

Modified: trunk/t/pmc/intlist.t
==============================================================================
--- trunk/t/pmc/intlist.t	(original)
+++ trunk/t/pmc/intlist.t	Sat Jan 10 23:23:36 2009
@@ -455,7 +455,7 @@
 
 .sub _main
     .local pmc pmc1
-    pmc1 = new 'IntList'
+    pmc1 = new ['IntList']
     .local int bool1
     does bool1, pmc1, "scalar"
     print bool1



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