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

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

From:
cotto
Date:
January 10, 2009 23:41
Subject:
[svn:parrot] r35395 - trunk/t/pmc
Message ID:
20090111074132.91B80CB9F9@x12.develooper.com
Author: cotto
Date: Sat Jan 10 23:41:31 2009
New Revision: 35395

Modified:
   trunk/t/pmc/os.t
   trunk/t/pmc/packfile.t
   trunk/t/pmc/packfileconstanttable.t
   trunk/t/pmc/packfiledirectory.t
   trunk/t/pmc/packfilerawsegment.t
   trunk/t/pmc/packfilesegment.t
   trunk/t/pmc/pair.t
   trunk/t/pmc/parrotclass.t
   trunk/t/pmc/parrotinterpreter.t
   trunk/t/pmc/parrotio.t
   trunk/t/pmc/parrotlibrary.t
   trunk/t/pmc/parrotobject.t
   trunk/t/pmc/parrotrunningthread.t
   trunk/t/pmc/parrotthread.t
   trunk/t/pmc/pmc.t
   trunk/t/pmc/pmcproxy.t

Log:
[t] another mess of string->key conversions


Modified: trunk/t/pmc/os.t
==============================================================================
--- trunk/t/pmc/os.t	(original)
+++ trunk/t/pmc/os.t	Sat Jan 10 23:41:31 2009
@@ -39,7 +39,7 @@
 my $cwd = File::Spec->canonpath(getcwd);
 pir_output_is( <<'CODE', <<"OUT", 'Test cwd' );
 .sub main :main
-        $P1 = new 'OS'
+        $P1 = new ['OS']
         $S1 = $P1."cwd"()
         print $S1
         print "\n"
@@ -56,7 +56,7 @@
 
 pir_output_is( <<'CODE', <<"OUT", 'Test chdir' );
 .sub main :main
-        $P1 = new 'OS'
+        $P1 = new ['OS']
 
         $S1 = "src"
         $P1."chdir"($S1)
@@ -86,7 +86,7 @@
 
 pir_output_is( <<'CODE', <<"OUT", 'Test mkdir' );
 .sub main :main
-        $P1 = new 'OS'
+        $P1 = new ['OS']
 
         $S1 = "xpto"
         $I1 = 0o555
@@ -116,7 +116,7 @@
 
 pir_output_is( <<'CODE', <<'OUT', 'Test rm call in a directory' );
 .sub main :main
-        $P1 = new 'OS'
+        $P1 = new ['OS']
 
         $S1 = "xpto"
         $P1."rm"($S1)
@@ -151,7 +151,7 @@
     $stat = sprintf("0x%08x\n" x 11, @s);
     pir_output_is( <<'CODE', $stat, 'Test OS.stat' );
 .sub main :main
-        $P1 = new 'OS'
+        $P1 = new ['OS']
         $S1 = "xpto"
         $P2 = $P1."stat"($S1)
 
@@ -166,7 +166,7 @@
     $stat = sprintf("0x%08x\n" x 13, @s);
     pir_output_is( <<'CODE', $stat, 'Test OS.stat' );
 .sub main :main
-        $P1 = new 'OS'
+        $P1 = new ['OS']
         $S1 = "xpto"
         $P2 = $P1."stat"($S1)
 
@@ -189,7 +189,7 @@
     my $entries = join( ' ', @entries ) . "\n";
     pir_output_is( <<'CODE', $entries, 'Test OS.readdir' );
 .sub main :main
-    $P1 = new 'OS'
+    $P1 = new ['OS']
     $P2 = $P1.'readdir'('docs')
 
     $S0 = join ' ', $P2
@@ -205,7 +205,7 @@
     close $FILE;
     pir_output_is( <<'CODE', <<"OUT", 'Test OS.rename' );
 .sub main :main
-    $P1 = new 'OS'
+    $P1 = new ['OS']
     $P1.'rename'('____some_test_file', '___some_other_file')
     $I0 = stat '___some_other_file', 0
     print $I0
@@ -232,7 +232,7 @@
     $lstat = sprintf( "0x%08x\n" x 13, @s );
     pir_output_is( <<'CODE', $lstat, "Test OS.lstat" );
 .sub main :main
-        $P1 = new 'OS'
+        $P1 = new ['OS']
         $S1 = "xpto"
         $P2 = $P1."lstat"($S1)
 
@@ -248,7 +248,7 @@
 # Test remove on a file
 pir_output_is( <<'CODE', <<"OUT", "Test rm call in a file" );
 .sub main :main
-        $P1 = new 'OS'
+        $P1 = new ['OS']
 
         $S1 = "xpto"
         $P1."rm"($S1)
@@ -270,7 +270,7 @@
 
     pir_output_is( <<'CODE', <<"OUT", "Test symlink" );
 .sub main :main
-        $P1 = new 'OS'
+        $P1 = new ['OS']
 
         $S1 = "xpto"
         $S2 = "MANIFEST"
@@ -294,7 +294,7 @@
 
     pir_output_is( <<'CODE', <<"OUT", "Test link" );
 .sub main :main
-        $P1 = new 'OS'
+        $P1 = new ['OS']
 
         $S1 = "xpto"
         $S2 = "MANIFEST"

Modified: trunk/t/pmc/packfile.t
==============================================================================
--- trunk/t/pmc/packfile.t	(original)
+++ trunk/t/pmc/packfile.t	Sat Jan 10 23:41:31 2009
@@ -30,7 +30,7 @@
 pir_output_is( <<'CODE', <<'OUT', 'new' );
 .sub 'test' :main
     .local pmc pf
-    pf = new 'Packfile'
+    pf = new ['Packfile']
     $I0 = defined pf
     say $I0
 .end
@@ -44,7 +44,7 @@
 pir_output_is( <<'CODE', <<'OUT', 'get_integer_keyed_str' );
 .sub 'test' :main
     .local pmc pf
-    pf = new 'Packfile'
+    pf = new ['Packfile']
     $S0 = 'version_major'
     $I0 = pf[$S0]
     say $I0
@@ -59,7 +59,7 @@
 pir_output_is( <<'CODE', <<'OUT', 'get_directory' );
 .sub 'test' :main
     .local pmc pf
-    pf = new 'Packfile'
+    pf = new ['Packfile']
     $P1 = pf.'get_directory'()
     $S0 = typeof $P1
     say $S0
@@ -77,7 +77,7 @@
     .include "stat.pasm"
     .include "interpinfo.pasm"
     .local pmc pf, pio
-    pf   = new 'Packfile'
+    pf   = new ['Packfile']
     $S0  = interpinfo .INTERPINFO_RUNTIME_PREFIX
     $S0 .= "/runtime/parrot/library/uuid.pbc"
     $I0  = stat $S0, .STAT_FILESIZE

Modified: trunk/t/pmc/packfileconstanttable.t
==============================================================================
--- trunk/t/pmc/packfileconstanttable.t	(original)
+++ trunk/t/pmc/packfileconstanttable.t	Sat Jan 10 23:41:31 2009
@@ -37,7 +37,7 @@
     .include "stat.pasm"
     .include "interpinfo.pasm"
     .local pmc pf, pio
-    pf   = new 'Packfile'
+    pf   = new ['Packfile']
     $S0  = interpinfo .INTERPINFO_RUNTIME_PREFIX
     $S0 .= "/runtime/parrot/library/uuid.pbc"
     $I0  = stat $S0, .STAT_FILESIZE

Modified: trunk/t/pmc/packfiledirectory.t
==============================================================================
--- trunk/t/pmc/packfiledirectory.t	(original)
+++ trunk/t/pmc/packfiledirectory.t	Sat Jan 10 23:41:31 2009
@@ -30,7 +30,7 @@
 pir_output_is( <<'CODE', <<'OUT', 'get_directory' );
 .sub 'test' :main
     .local pmc pf
-    pf = new 'Packfile'
+    pf = new ['Packfile']
     $P1 = pf.'get_directory'()
     $S0 = typeof $P1
     say $S0
@@ -48,7 +48,7 @@
     .include "stat.pasm"
     .include "interpinfo.pasm"
     .local pmc pf, pio
-    pf   = new 'Packfile'
+    pf   = new ['Packfile']
     $S0  = interpinfo .INTERPINFO_RUNTIME_PREFIX
     $S0 .= "/runtime/parrot/library/uuid.pbc"
     $I0  = stat $S0, .STAT_FILESIZE

Modified: trunk/t/pmc/packfilerawsegment.t
==============================================================================
--- trunk/t/pmc/packfilerawsegment.t	(original)
+++ trunk/t/pmc/packfilerawsegment.t	Sat Jan 10 23:41:31 2009
@@ -37,7 +37,7 @@
     .include "stat.pasm"
     .include "interpinfo.pasm"
     .local pmc pf, pio
-    pf   = new 'Packfile'
+    pf   = new ['Packfile']
     $S0  = interpinfo .INTERPINFO_RUNTIME_PREFIX
     $S0 .= "/runtime/parrot/library/uuid.pbc"
     $I0  = stat $S0, .STAT_FILESIZE

Modified: trunk/t/pmc/packfilesegment.t
==============================================================================
--- trunk/t/pmc/packfilesegment.t	(original)
+++ trunk/t/pmc/packfilesegment.t	Sat Jan 10 23:41:31 2009
@@ -33,7 +33,7 @@
     .include "stat.pasm"
     .include "interpinfo.pasm"
     .local pmc pf, pio
-    pf   = new 'Packfile'
+    pf   = new ['Packfile']
     $S0  = interpinfo .INTERPINFO_RUNTIME_PREFIX
     $S0 .= "/runtime/parrot/library/uuid.pbc"
     $I0  = stat $S0, .STAT_FILESIZE

Modified: trunk/t/pmc/pair.t
==============================================================================
--- trunk/t/pmc/pair.t	(original)
+++ trunk/t/pmc/pair.t	Sat Jan 10 23:41:31 2009
@@ -15,9 +15,9 @@
     # set a test plan
     plan(NUM_OF_TESTS)
 
-    new $P0, 'Pair'
+    new $P0, ['Pair']
     ok(1, "still alive")
-    new $P1, 'Integer'
+    new $P1, ['Integer']
     set $P1, 42
     set $P0["key"], $P1
     ok(1, "still alive")
@@ -25,8 +25,8 @@
     is($P2, 42, "fetching value")
 
     .local pmc p, kv
-    new p, 'Pair'
-    new $P1, 'Integer'
+    new p, ['Pair']
+    new $P1, ['Integer']
     set $P1, 42
     set p["key"], $P1
 
@@ -50,9 +50,9 @@
     pir_output_is( <<'CODE', <<'OUT', 'instantiate, assign' );
 .sub main :main
     .local pmc cl, p, kv, k, v
-    k = new 'String'
+    k = new ['String']
     k = "key"
-    v = new 'String'
+    v = new ['String']
     v = "value"
     cl = get_class "Pair"
     p = cl."instantiate"(k, v)
@@ -64,7 +64,7 @@
     print $P0
     print ' '
 
-    v = new 'Integer'
+    v = new ['Integer']
     v = 77
     assign p, v
     $P0 = p."value"()

Modified: trunk/t/pmc/parrotclass.t
==============================================================================
--- trunk/t/pmc/parrotclass.t	(original)
+++ trunk/t/pmc/parrotclass.t	Sat Jan 10 23:41:31 2009
@@ -17,12 +17,12 @@
 =cut
 
 .sub main :main
-    .include 'include/test_more.pir'
+    .include 'test_more.pir'
 
     plan(1)
 
-    new $P0, 'Class'
-    ok(1, 'Instantiated .Class')
+    new $P0, ['Class']
+    ok(1, 'Instantiated a Class PMC')
 .end
 
 # Local Variables:

Modified: trunk/t/pmc/parrotinterpreter.t
==============================================================================
--- trunk/t/pmc/parrotinterpreter.t	(original)
+++ trunk/t/pmc/parrotinterpreter.t	Sat Jan 10 23:41:31 2009
@@ -25,7 +25,7 @@
 
 pir_output_is( <<'CODE', <<'OUT', 'create new interpreter' );
 .sub 'test' :main
-    new $P0, 'ParrotInterpreter'
+    new $P0, ['ParrotInterpreter']
     print "ok 1\n"
 .end
 CODE
@@ -43,7 +43,7 @@
     $P0 = compreg "PIR"
     $P1 = $P0($S0)
     # Invoke in different interpreter.
-    $P2 = new 'ParrotInterpreter'
+    $P2 = new ['ParrotInterpreter']
     runinterp $P2, $P1
     print "survived\n"
 .end
@@ -59,7 +59,7 @@
      say "help, i'm stuck inside an interpreter!"
  .end
 PIR
-     $P0 = new 'ParrotInterpreter'
+     $P0 = new ['ParrotInterpreter']
      $P1 = compreg 'PIR'
      $P2 = $P1($S0)
      runinterp $P0, $P2
@@ -79,10 +79,10 @@
     $P0 = 'Accessing globals from other interpreters.'
  .end
 PIR
-     $P3 = new 'String'
+     $P3 = new ['String']
      set_global 'some_string', $P3
 
-     $P0 = new 'ParrotInterpreter'
+     $P0 = new ['ParrotInterpreter']
      $P1 = compreg 'PIR'
      $P2 = $P1($S0)
      runinterp $P0, $P2

Modified: trunk/t/pmc/parrotio.t
==============================================================================
--- trunk/t/pmc/parrotio.t	(original)
+++ trunk/t/pmc/parrotio.t	Sat Jan 10 23:41:31 2009
@@ -25,17 +25,17 @@
 # L<PDD22/I\/O PMC API/=item new>
 pir_output_is( <<'CODE', <<'OUT', 'new' );
 .sub 'test' :main
-    new $P0, 'FileHandle'
-    say "ok 1 - $P0 = new 'FileHandle'"
+    new $P0, ['FileHandle']
+    say "ok 1 - $P0 = new ['FileHandle']"
 .end
 CODE
-ok 1 - $P0 = new 'FileHandle'
+ok 1 - $P0 = new ['FileHandle']
 OUT
 
 # L<PDD22/I\/O PMC API/=item open.*=item close>
 pir_output_is( <<'CODE', <<'OUT', 'open and close - synchronous', todo => 'not yet implemented' );
 .sub 'test' :main
-    $P0 = new 'FileHandle'
+    $P0 = new ['FileHandle']
     $P0.open('README')
     say 'ok 1 - $P0.open($S1)'
 
@@ -89,7 +89,7 @@
     pir_output_is( <<'CODE', <<'OUT', 'open and close - asynchronous' );
 .sub 'test' :main
     $P1 = # RT #46831 create a callback here
-    $P0 = new 'FileHandle'
+    $P0 = new ['FileHandle']
 
     $P0.open('README')
     say 'ok 1 - $P0.open($S1)'
@@ -123,7 +123,7 @@
     .local pmc chomp
                chomp = get_global ['String';'Utils'], 'chomp'
 
-    $P0 = new 'FileHandle'
+    $P0 = new ['FileHandle']
     $P0.open('README')
 
     $S0 = $P0.read(14) # bytes
@@ -141,7 +141,7 @@
     $P0.print(123)
     $P0.print(456.789)
     $P0.print("squawk\n")
-    $P1 = new 'Integer'
+    $P1 = new ['Integer']
     $P1 = 42
     $P0.print($P1)
     say 'ok 3 - $P0.print(${I,N,S,P}1)'
@@ -177,7 +177,7 @@
 # L<PDD22/I\/O PMC API/=item record_separator>
 pir_output_is( <<'CODE', <<'OUT', 'record_separator', todo => 'not yet implemented' );
 .sub 'test' :main
-    $P0 = new 'FileHandle'
+    $P0 = new ['FileHandle']
 
     $S0 = $P0.record_separator()
     if $S0 == "\n" goto ok_1
@@ -215,7 +215,7 @@
 .sub 'test' :main
     .include 'io_buffer_types.pasm'
 
-    $P0 = new 'FileHandle'
+    $P0 = new ['FileHandle']
 
     $P0.buffer_type('unbuffered')
     $I0 = $P0.buffer_type()

Modified: trunk/t/pmc/parrotlibrary.t
==============================================================================
--- trunk/t/pmc/parrotlibrary.t	(original)
+++ trunk/t/pmc/parrotlibrary.t	Sat Jan 10 23:41:31 2009
@@ -17,12 +17,12 @@
 =cut
 
 .sub main :main
-    .include 'include/test_more.pir'
+    .include 'test_more.pir'
 
     plan(1)
 
-    new $P0, 'ParrotLibrary'
-    ok(1, 'Instantiated .ParrotLibrary')
+    new $P0, ['ParrotLibrary']
+    ok(1, 'Instantiated a ParrotLibrary PMC')
 .end
 
 # Local Variables:

Modified: trunk/t/pmc/parrotobject.t
==============================================================================
--- trunk/t/pmc/parrotobject.t	(original)
+++ trunk/t/pmc/parrotobject.t	Sat Jan 10 23:41:31 2009
@@ -25,7 +25,7 @@
 
 pir_error_output_like( <<'CODE', <<'OUT', 'new' );
 .sub 'test' :main
-    new $P0, 'Object'
+    new $P0, ['Object']
     print "ok 1\n"
 .end
 CODE
@@ -138,11 +138,11 @@
     $P0 = subclass 'Hash', 'Foo'
     $P0 = subclass 'Hash', 'Bar'
 
-    $P1 = new 'Foo'
+    $P1 = new ['Foo']
     $S1 = $P1
     say $S1
 
-    $P1 = new 'Bar'
+    $P1 = new ['Bar']
     $S1 = $P1
     say $S1
 .end
@@ -169,9 +169,9 @@
 pir_output_is(
     <<'CODE', <<'OUT', 'assign opcode in inherited classes' );
 .sub main :main
-    $P1 = new 'ResizablePMCArray'
+    $P1 = new ['ResizablePMCArray']
     push $P1, 3
-    $P2 = new 'ResizablePMCArray'
+    $P2 = new ['ResizablePMCArray']
     assign $P2, $P1
     $I0 = elements $P2
     print $I0
@@ -201,7 +201,7 @@
 
 .sub main :main
 $P0 = newclass "Foo"
-$P1 = new "Foo"
+$P1 = new ['Foo']
 $P1()
 say "got here"
 .end
@@ -223,7 +223,7 @@
 
 .sub main :main
   $P0 = newclass "Foo"
-  $P1 = new "Foo"
+  $P1 = new ['Foo']
   $I0 = $P1(2)
   print $I0
   print "\n"
@@ -243,7 +243,7 @@
 
 .sub main :main
     $P0 = newclass "Foo"
-    $P1 = new "Foo"
+    $P1 = new ['Foo']
     $P1()
 .end
 CODE

Modified: trunk/t/pmc/parrotrunningthread.t
==============================================================================
--- trunk/t/pmc/parrotrunningthread.t	(original)
+++ trunk/t/pmc/parrotrunningthread.t	Sat Jan 10 23:41:31 2009
@@ -21,7 +21,7 @@
 
     plan(2)
 
-    new $P0, 'ParrotRunningThread'
+    new $P0, ['ParrotRunningThread']
     ok(1, 'Instantiated .ParrotRunningThread')
 
     test_set_integer_native($P0)

Modified: trunk/t/pmc/parrotthread.t
==============================================================================
--- trunk/t/pmc/parrotthread.t	(original)
+++ trunk/t/pmc/parrotthread.t	Sat Jan 10 23:41:31 2009
@@ -17,12 +17,12 @@
 =cut
 
 .sub main :main
-    .include 'include/test_more.pir'
+    .include 'test_more.pir'
 
     plan(1)
 
-    new $P0, 'ParrotThread'
-    ok(1, 'Instantiated .ParrotThread')
+    new $P0, ['ParrotThread']
+    ok(1, 'Instantiated a ParrotThread PMC')
 .end
 
 # Local Variables:

Modified: trunk/t/pmc/pmc.t
==============================================================================
--- trunk/t/pmc/pmc.t	(original)
+++ trunk/t/pmc/pmc.t	Sat Jan 10 23:41:31 2009
@@ -26,7 +26,7 @@
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "newpmc" );
         print "starting\n"
-        new P0, 'Integer'
+        new P0, ['Integer']
         print "ending\n"
         end
 CODE
@@ -35,7 +35,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', 'typeof' );
-    new P0, 'Integer'
+    new P0, ['Integer']
     typeof S0,P0
     eq     S0, "Integer", OK_1
     print  "not "
@@ -59,7 +59,7 @@
     next
         if $types_we_cant_test{$type};
     my $set_ro = ( $type =~ /^Const\w+/ ) ? <<EOPASM : '';
-    new P10, 'Integer'
+    new P10, ['Integer']
     set P10, 1
     setprop P0, "_ro", P10
 EOPASM
@@ -73,8 +73,8 @@
 }
 
 pasm_output_like( <<"CODE", <<OUTPUT, "PMC type check" );
-    new P10, 'Hash'
-    new P11, 'Hash'
+    new P10, ['Hash']
+    new P11, ['Hash']
 $checkTypes
     print "All names ok.\\n"
     end
@@ -89,7 +89,7 @@
 OUTPUT
 
 pasm_error_output_like( <<'CODE', <<'OUTPUT', 'find_method' );
-    new P1, 'Integer'
+    new P1, ['Integer']
     find_method P0, P1, "no_such_meth"
     end
 CODE
@@ -97,7 +97,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "eq_addr same" );
-      new P0, 'Integer'
+      new P0, ['Integer']
       set P1, P0
       eq_addr P0, P1, OK1
       print "not "
@@ -113,8 +113,8 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "eq_addr diff" );
-      new P0, 'Integer'
-      new P1, 'Integer'
+      new P0, ['Integer']
+      new P1, ['Integer']
       ne_addr P0, P1, OK1
       print "not "
 OK1:  print "ok 1\n"
@@ -133,7 +133,7 @@
       if_null P0, OK1
       print "not "
 OK1:  print "ok 1\n"
-      new P0, 'Integer'
+      new P0, ['Integer']
       if_null P0, BAD2
       branch OK2
 BAD2: print "not "
@@ -145,8 +145,8 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "Random PMCs are singletons" );
-    new P0, 'Random'
-    new P1, 'Random'
+    new P0, ['Random']
+    new P1, ['Random']
     eq_addr P0, P1, ok
     print "not the same "
 ok: print "ok\n"
@@ -156,14 +156,14 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "issame" );
-    new P0, 'Undef'
-    new P1, 'Undef'
+    new P0, ['Undef']
+    new P1, ['Undef']
     set P1, P0
     issame I0, P0, P1
     print I0
     isntsame I0, P0, P1
     print I0
-    new P2, 'Undef'
+    new P2, ['Undef']
     issame I0, P0, P2
     print I0
     isntsame I0, P0, P2
@@ -240,9 +240,9 @@
 OUT
 
 pasm_output_is( <<'CODE', <<'OUT', "logical or, and, xor" );
-    new P0, 'Integer'
+    new P0, ['Integer']
     set P0, 2
-    new P1, 'Undef'
+    new P1, ['Undef']
     or P2, P0, P1
     eq_addr P2, P0, ok1
     print "not "
@@ -266,7 +266,7 @@
 OUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "new_p_s" );
-    new P3, "Integer"
+    new P3, ['Integer']
     set P3, "42"
     typeof S0, P3
     print S0

Modified: trunk/t/pmc/pmcproxy.t
==============================================================================
--- trunk/t/pmc/pmcproxy.t	(original)
+++ trunk/t/pmc/pmcproxy.t	Sat Jan 10 23:41:31 2009
@@ -33,7 +33,7 @@
 .end
 
 .sub new_tests
-    new $P0, 'PMCProxy'
+    new $P0, ['PMCProxy']
     ok(1, "new PMCProxy didn't explode")
     isa_ok($P0, "PMCProxy")
 .end
@@ -84,7 +84,7 @@
 
 
 .sub add_pmcproxy_as_parent
-    $P0 = new 'Class'
+    $P0 = new ['Class']
     ok(1, 'created a PDD15 class')
 
     $P1 = get_class 'Hash'
@@ -99,7 +99,7 @@
 
 
 .sub non_vtable_method_override
-    $P0 = new 'Class'
+    $P0 = new ['Class']
     ok(1, 'ok 1 - created a PDD15 class')
 
     $P1 = get_class 'Class'
@@ -118,7 +118,7 @@
     $P2.'add_attribute'('foo')
     ok(1, 'called the add_attribute method of the PMC parent')
 
-    $P3 = new 'Role'
+    $P3 = new ['Role']
     $P2.'add_role'($P3)
     ok(1, 'done with method call overridding')
 .end
@@ -132,7 +132,7 @@
 
 
 .sub vtable_method_override
-    $P0 = new 'Class'
+    $P0 = new ['Class']
     ok(1, 'created a PDD15 class')
 
     $P1 = get_class 'Class'
@@ -156,7 +156,7 @@
     $I0 = elements $P3
     is($I0, 1, "the attribute was actually added")
 
-    $P3 = new 'Role'
+    $P3 = new ['Role']
     addrole $P2, $P3
     ok(1, 'done with vtable override test')
 .end
@@ -166,7 +166,7 @@
 
 
 .sub self_calls_overridden_methods
-    $P0 = new 'Class'
+    $P0 = new ['Class']
     ok(1, 'created a PDD15 class')
 
     $P1 = get_class 'Class'
@@ -189,7 +189,7 @@
 .end
 .sub always42 :method
     .param string what
-    $P0 = new 'Integer'
+    $P0 = new ['Integer']
     $P0 = 42
     .return($P0)
 .end



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