[svn:parrot] r40859 - branches/context_pmc3/t/pmc

[bacek at svn.parrot.org]

Author: bacek
Date: Sun Aug 30 08:15:32 2009
New Revision: 40859
URL: https://trac.parrot.org/parrot/changeset/40859

Log:
[cage] Add explicit test for ExceptionHandler.can_handle

Modified:
   branches/context_pmc3/t/pmc/exceptionhandler.t

Modified: branches/context_pmc3/t/pmc/exceptionhandler.t
==============================================================================
--- branches/context_pmc3/t/pmc/exceptionhandler.t	Sun Aug 30 08:03:10 2009	(r40858)
+++ branches/context_pmc3/t/pmc/exceptionhandler.t	Sun Aug 30 08:15:32 2009	(r40859)
@@ -22,7 +22,8 @@
 .sub main :main
     .include 'test_more.pir'
 
-    plan(8)
+    # If test exited with "bad plan" MyHandlerCan.can_handle wasn't invoked.
+    plan(9)
 
     .local pmc eh
     eh = new ['ExceptionHandler']
@@ -213,7 +214,7 @@
 
 .sub can_handle :method
     .param pmc ex
-    noop
+    ok(1, 'MyHandlerCan.can_handle invoked')
     .return(1)
 .end