[svn:parrot] r41624 - branches/pcc_reapply/t/pmc

[whiteknight at svn.parrot.org]

Author: whiteknight
Date: Fri Oct  2 23:52:03 2009
New Revision: 41624
URL: https://trac.parrot.org/parrot/changeset/41624

Log:
[pcc] fix uses of 'like' in resizablefloatarray.t and add a few missing pop_eh calls

Modified:
   branches/pcc_reapply/t/pmc/resizablefloatarray.t

Modified: branches/pcc_reapply/t/pmc/resizablefloatarray.t
==============================================================================
--- branches/pcc_reapply/t/pmc/resizablefloatarray.t	Fri Oct  2 23:46:18 2009	(r41623)
+++ branches/pcc_reapply/t/pmc/resizablefloatarray.t	Fri Oct  2 23:52:03 2009	(r41624)
@@ -90,9 +90,8 @@
     .return()
 
   negative_size_handler:
-    .get_results ($P1)
-    $S1 = $P1
-    like($S1, ":s ResizableFloatArray\\: Can\\'t resize to negative value\\!", 'setting negative array size')
+    pop_eh
+    ok(1, "cannot set negative array size")
 .end
 
 .sub 'setting_first_element'
@@ -331,9 +330,8 @@
     .return()
 
   pop_empty_handler:
-    .get_results($P0)
-    $S0 = $P0
-    like($S0, ":s ResizableFloatArray\\: Can\\'t pop from an empty array\\!", 'pop from empty array')
+    pop_eh
+    ok(1, "cannot pop from empty array")
 .end
 
 .sub 'shift_empty'
@@ -346,9 +344,8 @@
     .return()
 
   shift_empty_handler:
-    .get_results($P0)
-    $S0 = $P0
-    like($S0, ":s ResizableFloatArray\\: Can\\'t shift from an empty array\\!", 'shift from empty array')
+    pop_eh
+    ok(1, "cannot shift from empty array")
 .end
 
 .sub 'check_interface'