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' )
-
[svn:parrot] r35184 - trunk/t/pmc
by cotto