[svn:parrot] r44987 - branches/tt389_fix/t/pmc

[whiteknight at svn.parrot.org]

Author: whiteknight
Date: Wed Mar 17 18:28:20 2010
New Revision: 44987
URL: https://trac.parrot.org/parrot/changeset/44987

Log:
[tt389_fix] add exception handlers to one RPA test. When this test throws an unhndled exception the rest of the test file doesn't run at all. Now we see the one failure, and we also see that all other tests in the file pass

Modified:
   branches/tt389_fix/t/pmc/resizablepmcarray.t

Modified: branches/tt389_fix/t/pmc/resizablepmcarray.t
==============================================================================
--- branches/tt389_fix/t/pmc/resizablepmcarray.t	Wed Mar 17 17:57:45 2010	(r44986)
+++ branches/tt389_fix/t/pmc/resizablepmcarray.t	Wed Mar 17 18:28:20 2010	(r44987)
@@ -332,6 +332,7 @@
 
 
 .sub sort_subclass
+    push_eh sort_subclass_handler
     .local pmc subrpa, arr
     subrpa = subclass ['ResizablePMCArray'], 'ssRPA'
     arr = new subrpa
@@ -350,6 +351,11 @@
     aux = join '-', arr
     concat s, aux
     is(s, 'ssRPA:z-p-a', "sort works in a pir subclass, TT #218")
+    goto _done
+  sort_subclass_handler:
+    ok(0, "sorting a subclass is broken")
+  _done:
+    .return()
 .end
 
 .sub compare_reverse
@@ -979,12 +985,12 @@
     push array, 2
     push array, 5
     push array, 1
-   
-    .local string unsorted 
+
+    .local string unsorted
     unsorted = join ' ', array
     is(unsorted,"4 5 3 2 5 1", "unsorted array")
 
-    ## sort using a non-tailcall function 
+    ## sort using a non-tailcall function
     .const 'Sub' cmp_normal = 'cmp_normal_tailcall'
     $P1 = clone array
     $P1.'sort'(cmp_normal)