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

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

From:
cotto
Date:
January 7, 2009 18:20
Subject:
[svn:parrot] r35184 - trunk/t/pmc
Message ID:
20090108022037.14A19CB9F9@x12.develooper.com
Author: cotto
Date: Wed Jan  7 18:20:35 2009
New Revision: 35184

Modified:
   trunk/t/pmc/continuation.t
   trunk/t/pmc/coroutine.t
   trunk/t/pmc/cpointer.t
   trunk/t/pmc/default.t
   trunk/t/pmc/deleg_pmc.t
   trunk/t/pmc/delegate.t
   trunk/t/pmc/enumerate.t
   trunk/t/pmc/env.t
   trunk/t/pmc/eval.t
   trunk/t/pmc/eventhandler.t

Log:
[t] more test updates


Modified: trunk/t/pmc/continuation.t
==============================================================================
--- trunk/t/pmc/continuation.t	(original)
+++ trunk/t/pmc/continuation.t	Wed Jan  7 18:20:35 2009
@@ -25,12 +25,12 @@
 .end
 
 .sub test_new
-    new $P0, 'Continuation'
+    $P0 = new ['Continuation']
     ok(1, "new Continuation didn't explode")
 .end
 
 .sub invoke_with_init
-    new $P0, 'Continuation'
+    $P0 = new ['Continuation']
     set_addr $P0, L1
     $P0()
     ok(0, "didn't call continuation")

Modified: trunk/t/pmc/coroutine.t
==============================================================================
--- trunk/t/pmc/coroutine.t	(original)
+++ trunk/t/pmc/coroutine.t	Wed Jan  7 18:20:35 2009
@@ -26,7 +26,7 @@
 .include "interpinfo.pasm"
 .pcc_sub _main:
     .const 'Sub' P0 = "_coro"
-    new P10, 'Integer'
+    new P10, ['Integer']
     set P10, 2
     set_global "i", P10
 lp:
@@ -57,10 +57,10 @@
     .const 'Sub' itr = "_iterator"
 
     .local pmc zero
-    zero = new 'Integer'
+    zero = new ['Integer']
     zero = 0
 
-    new return, 'Continuation'
+    return = new ['Continuation']
     set_addr return, return_here
     loop:
         .begin_call
@@ -82,7 +82,7 @@
 
 .sub _iterator
     .local pmc x
-    x = new 'Integer'
+    x = new ['Integer']
     x = 0
     iloop:
         .begin_yield
@@ -111,7 +111,7 @@
 _main:
     .const 'Sub' P0 = "_coro"
     push_eh _catchm
-    new P16, 'Integer'
+    new P16, ['Integer']
     set P16, 2
     set_global "i", P16
 lp:
@@ -150,7 +150,7 @@
 _main:
     .const 'Sub' P0 = "_coro"
     push_eh _catchm
-    new P16, 'Integer'
+    new P16, ['Integer']
     set P16, 2
     set_global "i", P16
 lp:
@@ -189,7 +189,7 @@
 _main:
     .const 'Sub' P0 = "_coro"
     push_eh _catchm
-    new P16, 'Integer'
+    new P16, ['Integer']
     set P16, 2
     set_global "i", P16
 lp:
@@ -225,7 +225,7 @@
 _main:
     .const 'Sub' P0 = "_coro"
     push_eh _catchm
-    new P16, 'Integer'
+    new P16, ['Integer']
     set P16, 2
     set_global "i", P16
 lp:
@@ -271,7 +271,7 @@
 .end
 .sub coro
     .local pmc x
-    x = new 'Integer'
+    x = new ['Integer']
     x = 0
     iloop:
         .yield (x)
@@ -298,7 +298,7 @@
 .end
 .sub coro
     .local pmc x
-    x = new 'Integer'
+    x = new ['Integer']
     x = 0
     iloop:
         .yield (x)
@@ -319,7 +319,7 @@
 .end
 .sub coro
     .local pmc x
-    x = new 'Integer'
+    x = new ['Integer']
     x = 0
     iloop:
         .yield (x)
@@ -334,7 +334,7 @@
 
 .sub _main
     .local pmc pmc1
-    pmc1 = new 'Coroutine'
+    pmc1 = new ['Coroutine']
     .local int bool1
     does bool1, pmc1, "scalar"      # XXX WTF
     print bool1

Modified: trunk/t/pmc/cpointer.t
==============================================================================
--- trunk/t/pmc/cpointer.t	(original)
+++ trunk/t/pmc/cpointer.t	Wed Jan  7 18:20:35 2009
@@ -26,7 +26,7 @@
 
 
 .sub instantiate
-    new $P0, 'CPointer'
+    $P0 = new ['CPointer']
     ok(1, 'Instantiated CPointer')
 .end
 

Modified: trunk/t/pmc/default.t
==============================================================================
--- trunk/t/pmc/default.t	(original)
+++ trunk/t/pmc/default.t	Wed Jan  7 18:20:35 2009
@@ -25,7 +25,7 @@
 
 pir_output_is( <<'CODE', <<'OUT', 'new', todo => 'not implemeted' );
 .sub 'test' :main
-    new P0, 'default'
+    new P0, ['default']
     print "ok 1\n"
 .end
 CODE
@@ -34,7 +34,7 @@
 
 pir_output_is( <<'CODE', <<'OUT', 'inspect vtable function');
 .sub 'test' :main
-    $P0 = new 'String'
+    $P0 = new ['String']
     $P1 = inspect $P0, 'flags'
     $I9 = 1 << 9   # PObj_is_PMC_FLAG
     $I29 = 1 << 29 # PObj_is_class_FLAG

Modified: trunk/t/pmc/deleg_pmc.t
==============================================================================
--- trunk/t/pmc/deleg_pmc.t	(original)
+++ trunk/t/pmc/deleg_pmc.t	Wed Jan  7 18:20:35 2009
@@ -21,7 +21,7 @@
 
     plan(1)
 
-    new $P0, 'deleg_pmc'
+    $P0 = new ['deleg_pmc']
     ok(1, 'Instantiated .deleg_pmc')
 .end
 

Modified: trunk/t/pmc/delegate.t
==============================================================================
--- trunk/t/pmc/delegate.t	(original)
+++ trunk/t/pmc/delegate.t	Wed Jan  7 18:20:35 2009
@@ -25,7 +25,7 @@
 # basic functionality - setting and getting types
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "delegate set_integer_native" );
-    new P0, 'delegate'
+    new P0, ['delegate']
     set P0, 42
     end
 .namespace ["delegate"]
@@ -42,7 +42,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "delegate get_integer" );
-    new P0, 'delegate'
+    new P0, ['delegate']
     set I0, P0
     print I0
     print "\n"
@@ -58,7 +58,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "delegate set_string_native" );
-    new P0, 'delegate'
+    new P0, ['delegate']
     set P0, "fortytwo"
     end
 .namespace ["delegate"]
@@ -72,7 +72,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "delegate get_string" );
-    new P0, 'delegate'
+    new P0, ['delegate']
     set S0, P0
     print S0
     print "\n"
@@ -88,7 +88,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "delegate set_number_native" );
-    new P0, 'delegate'
+    new P0, ['delegate']
     set P0, 47.11
     end
 .namespace ["delegate"]
@@ -102,7 +102,7 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "delegate get_number" );
-    new P0, 'delegate'
+    new P0, ['delegate']
     set N0, P0
     print N0
     print "\n"
@@ -118,8 +118,8 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "delegate assign_pmc" );
-    new P0, 'delegate'
-    new P1, 'Integer'
+    new P0, ['delegate']
+    new P1, ['Integer']
     set P1, 42
     assign P0, P1
     end
@@ -137,9 +137,9 @@
 # math
 pir_output_is( <<'CODE', <<'OUTPUT', "delegate add_p_p_i" );
 .sub main
-    new $P0, 'delegate'
+    $P0 = new ['delegate']
     set $P0, 1
-    new $P2, 'Integer'
+    $P2 = new ['Integer']
     add $P2, $P0, 1
     print $P2   # yeah 1+1 = 3
     print "\n"
@@ -159,7 +159,7 @@
     .param pmc d
     print r
     print "\n"
-    d = new 'Integer'
+    d = new ['Integer']
     d =  3
     .return(d)
 .end
@@ -172,11 +172,11 @@
 # math
 pir_output_is( <<'CODE', <<'OUTPUT', "delegate add_p_p_p" );
 .sub main
-    new $P0, 'delegate'
+    $P0 = new ['delegate']
     set $P0, 1
-    new $P1, 'Integer'
+    $P1 = new ['Integer']
     set $P1, 1
-    new $P2, 'Integer'
+    $P2 = new ['Integer']
     set $P2, 777
     add $P2, $P0, $P1
     print $P2   # yeah 1+1 = 3

Modified: trunk/t/pmc/enumerate.t
==============================================================================
--- trunk/t/pmc/enumerate.t	(original)
+++ trunk/t/pmc/enumerate.t	Wed Jan  7 18:20:35 2009
@@ -17,12 +17,12 @@
 =cut
 
 .sub main :main
-    .include 'include/test_more.pir'
+    .include 'test_more.pir'
 
     plan(1)
 
-    new $P1, 'Array'
-    new $P0, 'Enumerate', $P1
+    $P1 = new ['Array']
+    $P2 = new ['Enumerate'], $P1
 
     ok(1, "Instantiated 'Enumerate'")
 .end

Modified: trunk/t/pmc/env.t
==============================================================================
--- trunk/t/pmc/env.t	(original)
+++ trunk/t/pmc/env.t	Wed Jan  7 18:20:35 2009
@@ -17,7 +17,7 @@
 =cut
 
 .sub main :main
-    .include 'include/test_more.pir'
+    .include 'test_more.pir'
     plan(16)
 
     all_envs_are_identical()
@@ -32,8 +32,8 @@
 .end
 
 .sub all_envs_are_identical
-    new $P0, 'Env'
-    new $P1, 'Env'
+    $P0 = new ['Env']
+    $P1 = new ['Env']
     eq_addr $P0, $P1, ok
     ok(0, "all Envs aren't identical")
     goto end
@@ -43,17 +43,17 @@
 .end
 
 .sub setenv_getenv
-    new $P0, 'Env'
+    $P0 = new ['Env']
     set $P0['PARROT_TMP'], 'hello polly'
     set $S0, $P0['PARROT_TMP']
     is($S0, 'hello polly', 'getenv and setenv work with string keys')
     delete $P0['PARROT_TMP']
 
-    new $P1, 'Key'
+    $P1 = new ['Key']
     set $P1, "PARROT_TMP"
-    new $P2, 'String'
+    $P2 = new ['String']
     set $P2, "Foobar"
-    new $P3, 'String'
+    $P3 = new ['String']
     set $P0[$P1], $P2
     set $P3, $P0[$P1]
     is($P3, "Foobar", "getenv and setenv work with PMC keys")
@@ -64,17 +64,17 @@
 .end
 
 .sub all_envs_are_the_same
-    new $P0, 'Env'
+    $P0 = new ['Env']
     set $P0['PARROT_TMP'], 'hello polly'
     set $S0, $P0['PARROT_TMP']
-    new $P1, 'Env'
+    $P1 = new ['Env']
     set $S1, $P1['PARROT_TMP']
     is($S0, $S1, 'all envs are the same')
     delete $P0['PARROT_TMP']
 .end
 
 .sub gone_delete
-    new $P0, 'Env'
+    $P0 = new ['Env']
     set $P0['PARROT_TMP'], 'hello polly'
     exists $I0, $P0['PARROT_TMP']
     if $I0, ok1
@@ -90,7 +90,7 @@
 .end
 
 .sub iterate
-    new $P0, 'Env'
+    $P0 = new ['Env']
     set $P0["PARROT_1"], "hello"
     set $P0["PARROT_2"], "polly"
     iter $P1, $P0
@@ -121,7 +121,7 @@
 
     unless $I0 goto no_unsetenv
 
-    new $P0, 'Env'
+    $P0 = new ['Env']
     set $P0['PARROT_TMP'], 'hello polly'
     exists $I0, $P0['PARROT_TMP']
     ok( $I0, "set env var stays set")
@@ -138,7 +138,7 @@
 
 .sub is_interface_done
     .local pmc pmc1
-    pmc1 = new 'Env'
+    pmc1 = new ['Env']
     .local int bool1
 
     does bool1, pmc1, 'hash'
@@ -157,7 +157,7 @@
     .local num num_before, num_after, num_diff
 
     # add three more keys in env
-    env = new 'Env'
+    env = new ['Env']
     num_before = env
     int_before = env
     env["PARROT_TMP_ADD_1"] = "tmp_add_1"
@@ -178,7 +178,7 @@
 
 ## RT #50186 - shouldn't segfault
 .sub oob_query
-    new $P0, 'Env'
+    $P0 = new ['Env']
     set $S0, $P0[999]
     is($S0, '', 'no segfault')
 .end

Modified: trunk/t/pmc/eval.t
==============================================================================
--- trunk/t/pmc/eval.t	(original)
+++ trunk/t/pmc/eval.t	Wed Jan  7 18:20:35 2009
@@ -122,7 +122,7 @@
 pir_output_is( <<'CODE', <<'OUTPUT', "bug #31467" );
 
   .sub main :main
-     $P1 = new 'Hash'
+     $P1 = new ['Hash']
      $P0 = find_name "_builtin"
      $P1['builtin'] = $P0
 
@@ -205,7 +205,7 @@
 
 .sub register_compiler
  .local pmc counter
- counter = new 'Integer'
+ counter = new ['Integer']
  counter = 0
  set_global "counter", counter
 
@@ -329,7 +329,7 @@
   print io, \$S0
   close io
   load_bytecode "$temp_pbc"
-  os = new 'OS'
+  os = new ['OS']
   os.'rm'("$temp_pbc")
   f2 = compi("foo_2", "hello from foo_2")
   io = open "$temp_pbc", 'w'

Modified: trunk/t/pmc/eventhandler.t
==============================================================================
--- trunk/t/pmc/eventhandler.t	(original)
+++ trunk/t/pmc/eventhandler.t	Wed Jan  7 18:20:35 2009
@@ -17,7 +17,7 @@
 =cut
 
 .sub main :main
-    .include 'include/test_more.pir'
+    .include 'test_more.pir'
 
     plan(4)
 
@@ -26,20 +26,20 @@
 
 .sub create_an_event_and_set_attributes
     .local pmc eh
-    eh  = new 'EventHandler'
+    eh  = new ['EventHandler']
     $S0 = typeof eh
     is( $S0, 'EventHandler', 'Created EventHandler' )
 
     .local pmc init
-    init = new 'Hash'
+    init = new ['Hash']
 
     .local pmc type
-    type         = new 'String'
+    type         = new ['String']
     type         = 'cool event'
     init['type'] = type
 
     .local pmc priority
-    priority         = new 'Integer'
+    priority         = new ['Integer']
     priority         = 10
     init['priority'] = priority
 
@@ -47,7 +47,7 @@
     code         = get_global 'my_handler'
     init['code'] = code
 
-    eh  = new 'EventHandler', init
+    eh  = new ['EventHandler'], init
     $S0 = typeof eh
     is( $S0, 'EventHandler', 'Created EventHandler with args' )
 
@@ -55,7 +55,7 @@
     is( $S1, 'cool event', 'Event type confirmed' )
 
     push_eh bad_args
-        eh = new 'EventHandler', code
+        eh = new ['EventHandler'], code
     pop_eh
 
     ok( 1, 'No exception from initializer' )



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