[svn:parrot] r41623 - branches/pcc_reapply/t/pmc
whiteknight at svn.parrot.org
whiteknight at svn.parrot.org
Fri Oct 2 23:46:19 UTC 2009
Author: whiteknight
Date: Fri Oct 2 23:46:18 2009
New Revision: 41623
URL: https://trac.parrot.org/parrot/changeset/41623
Log:
[pcc] add some pop_eh to balance the push_eh in fixedstringarray.t for cleanliness. Fix some whitespace issues
Modified:
branches/pcc_reapply/t/pmc/fixedstringarray.t
Modified: branches/pcc_reapply/t/pmc/fixedstringarray.t
==============================================================================
--- branches/pcc_reapply/t/pmc/fixedstringarray.t Fri Oct 2 23:45:18 2009 (r41622)
+++ branches/pcc_reapply/t/pmc/fixedstringarray.t Fri Oct 2 23:46:18 2009 (r41623)
@@ -110,6 +110,7 @@
$I0 = 0
handle_set:
ok($I0, "Can't set out-of-bounds element")
+ pop_eh
$I0 = 1
push_eh handle_set_negative
@@ -117,6 +118,7 @@
$I0 = 0
handle_set_negative:
ok($I0, "Can't set element on negative index")
+ pop_eh
$I0 = 1
push_eh handle_get
@@ -124,6 +126,7 @@
$I0 = 0
handle_get:
ok($I0, "Can't get out-of-bounds element")
+ pop_eh
$I0 = 1
push_eh handle_get_negative
@@ -131,6 +134,7 @@
$I0 = 0
handle_get_negative:
ok($I0, "Can't get element with negative index")
+ pop_eh
.end
@@ -172,7 +176,7 @@
$P0[1023] = $P1
$P2 = new ['Key']
-
+
$P2 = 25
$I0 = $P0[$P2]
is($I0, 125, "Get INTVAL via Key works")
@@ -235,7 +239,7 @@
clone_1:
pop_eh
ok($I0, "Resize of uninitialized clone successful")
-
+
$I1 = 1
push_eh clone_2
$P2 = clone $P0
@@ -243,6 +247,7 @@
$I0 = 0
clone_2:
ok($I0, "Resize of initialization not successful")
+ pop_eh
.end
@@ -336,7 +341,7 @@
i = iseq a1, other
is(i, 0, "Not equal to other type")
-
+
a1 = 3
isnt(a1, a2, "Different size arrays aren't equal")
@@ -349,7 +354,7 @@
a1[1] = "bar"
a2[1] = "BAR"
isnt(a1, a2, "Not equal when second element differ")
-
+
a2[1] = "bar"
is(a1, a2, "Equal when second element same")
More information about the parrot-commits
mailing list