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

[plobsing at svn.parrot.org]

Author: plobsing
Date: Mon Sep  6 19:43:21 2010
New Revision: 48813
URL: https://trac.parrot.org/parrot/changeset/48813

Log:
capture_lex in main as is required of outer subs. pmichaud++

Modified:
   trunk/t/pmc/exception-old.t

Modified: trunk/t/pmc/exception-old.t
==============================================================================
--- trunk/t/pmc/exception-old.t	Mon Sep  6 19:06:37 2010	(r48812)
+++ trunk/t/pmc/exception-old.t	Mon Sep  6 19:43:21 2010	(r48813)
@@ -369,10 +369,7 @@
 # converting to skip at the moment
 #
 
-SKIP: {
-    skip ".tailcall and lexical maps not thawed from PBC - hangs", 1 if @todo;
-
-pir_output_is( <<'CODE', <<'OUTPUT', "exit_handler via exit exception", @todo );
+pir_output_is( <<'CODE', <<'OUTPUT', "exit_handler via exit exception" );
 .sub main :main
     .local pmc a
     .lex 'a', a
@@ -381,7 +378,9 @@
     push_eh handler
     exit 0
 handler:
-    .tailcall exit_handler()
+    .const 'Sub' $P0 = 'exit_handler'
+    capture_lex $P0
+    .tailcall $P0()
 .end
 
 .sub exit_handler :outer(main)
@@ -396,8 +395,6 @@
 a = 42
 OUTPUT
 
-}
-
 ## Regression test for r14697.  This probably won't be needed when PDD23 is
 ## fully implemented.
 pir_error_output_like( <<'CODE', <<'OUTPUT', "invoke handler in calling sub", todo => "deprecate rethrow" );