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

[NotFound at svn.parrot.org]

Author: NotFound
Date: Fri Aug 20 06:25:09 2010
New Revision: 48574
URL: https://trac.parrot.org/parrot/changeset/48574

Log:
improve Packfile get_string_keyed test

Modified:
   trunk/t/pmc/packfile.t

Modified: trunk/t/pmc/packfile.t
==============================================================================
--- trunk/t/pmc/packfile.t	Fri Aug 20 06:23:43 2010	(r48573)
+++ trunk/t/pmc/packfile.t	Fri Aug 20 06:25:09 2010	(r48574)
@@ -77,13 +77,16 @@
 
 
 .sub 'test_get_string'
-    .local pmc pf
+    .local pmc pf, eh
     pf = new ['Packfile']
     $S0 = pf["uuid"]
     ok(1, 'get_string(uuid)')
 
     # Requesting unknown key should throw exception
-    push_eh unknown_key
+    eh = new ['ExceptionHandler']
+    eh.'handle_types'(.EXCEPTION_KEY_NOT_FOUND)
+    set_label eh, unknown_key
+    push_eh eh
     $S0 = pf["foo"]
     ok(0, "get_string_keyed_int return unknown key")
     .return ()