[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