[svn:parrot] r45629 - trunk/t/op

fperrad at svn.parrot.org fperrad at svn.parrot.org
Tue Apr 13 11:42:47 UTC 2010


Author: fperrad
Date: Tue Apr 13 11:42:45 2010
New Revision: 45629
URL: https://trac.parrot.org/parrot/changeset/45629

Log:
add a todoed test for TT#1550

Modified:
   trunk/t/op/lexicals.t

Modified: trunk/t/op/lexicals.t
==============================================================================
--- trunk/t/op/lexicals.t	Tue Apr 13 10:25:34 2010	(r45628)
+++ trunk/t/op/lexicals.t	Tue Apr 13 11:42:45 2010	(r45629)
@@ -14,7 +14,7 @@
 plan( skip_all => 'lexicals not thawed properly from PBC, TT #1171' )
     if $ENV{TEST_PROG_ARGS} =~ /--run-pbc/;
 
-plan( tests => 57 );
+plan( tests => 58 );
 
 =head1 NAME
 
@@ -1612,6 +1612,29 @@
 /error/
 OUTPUT
 
+pir_error_output_is( <<'CODE', <<'OUTPUT', "don't lost lexical when cloning", todo => "see TT#1550");
+.sub 'main' :main
+    .const 'Sub' f = 'func'
+    $P0 = clone f
+    $P0()
+.end
+
+.sub 'func' :lex
+    say "func"
+    $P0 = box 'STATE'
+    .lex 'VAR', $P0
+    inner()
+.end
+
+.sub 'inner' :lex :outer('func')
+    $P0 = find_lex 'VAR'
+    say $P0
+.end
+CODE
+func
+STATE
+OUTPUT
+
 # Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4


More information about the parrot-commits mailing list