lvref.t: To-do tests for closures
authorFather Chrysostomos <sprout@cpan.org>
Sun, 21 Sep 2014 18:16:33 +0000 (11:16 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 11 Oct 2014 04:54:06 +0000 (21:54 -0700)
t/op/lvref.t

index 5749ddf..8286f17 100644 (file)
@@ -4,7 +4,7 @@ BEGIN {
     set_up_inc("../lib");
 }
 
-plan 13;
+plan 15;
 
 $::TODO = ' ';
 
@@ -76,3 +76,16 @@ is \$b, \$c, 'lex scalar in (\$foo, \$bar)';
 # Errors
 
 # ...
+
+# Miscellaneous
+
+{
+  my($x,$y);
+  sub {
+    sub {
+      \$x = \$y;
+    }->();
+    is \$x, \$y, 'lexical alias affects outer closure';
+  }->();
+  is \$x, \$y, 'lexical alias affects outer sub where vars are declared';
+}