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