[svn:parrot] r48250 - trunk/t/pmc

[NotFound at svn.parrot.org]

Author: NotFound
Date: Mon Aug  2 12:20:09 2010
New Revision: 48250
URL: https://trac.parrot.org/parrot/changeset/48250

Log:
improve test Opcode cannot_create_directly

Modified:
   trunk/t/pmc/opcode.t

Modified: trunk/t/pmc/opcode.t
==============================================================================
--- trunk/t/pmc/opcode.t	Mon Aug  2 01:56:05 2010	(r48249)
+++ trunk/t/pmc/opcode.t	Mon Aug  2 12:20:09 2010	(r48250)
@@ -12,6 +12,8 @@
 
 =cut
 
+.include 'except_types.pasm'
+
 .sub main :main
     .include 'test_more.pir'
     plan(1)
@@ -19,12 +21,18 @@
 .end
 
 .sub cannot_create_directly
-    push_eh cannot_create
+    .local pmc eh, ex
+    eh = new ['ExceptionHandler']
+    eh.'handle_types'(.EXCEPTION_INVALID_OPERATION)
+    set_label eh, cannot_create
+    push_eh eh
     $P0 = new ['Opcode']
     ok(0, "shouldn't be able to create new opcode")
     goto create_end
   cannot_create:
-    ok(1)
+    .get_results(ex)
+    $S0 = ex['message']
+    ok(1,  $S0)
   create_end:
 .end