lvref.t: To-do tests for foreach \
authorFather Chrysostomos <sprout@cpan.org>
Sun, 21 Sep 2014 22:04:20 +0000 (15:04 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 11 Oct 2014 04:54:10 +0000 (21:54 -0700)
t/op/lvref.t

index 4c4035d..312caef 100644 (file)
@@ -4,7 +4,7 @@ BEGIN {
     set_up_inc("../lib");
 }
 
-plan 22;
+plan 26;
 
 sub on { $::TODO = ' ' }
 sub off{ $::TODO = ''  }
@@ -79,6 +79,40 @@ on;
 
 # ...
 
+# Foreach
+
+eval '
+  for \my $a(\$for1, \$for2) {
+    push @for, \$a;
+  }
+';
+is "@for", \$for1 . ' ' . \$for2, 'foreach \my $a';
+
+@for = ();
+eval '
+  for \my @a([1,2], [3,4]) {
+    push @for, @a;
+  }
+';
+is "@for", "1 2 3 4", 'foreach \my @a [perl #22335]';
+
+@for = ();
+eval '
+  for \my %a({5,6}, {7,8}) {
+    push @for, %a;
+  }
+';
+is "@for", "5 6 7 8", 'foreach \my %a [perl #22335]';
+
+@for = ();
+eval '
+  for \my &a(sub {9}, sub {10}) {
+    push @for, &a;
+  }
+';
+is "@for", "9 10", 'foreach \my &a';
+
+
 # Errors
 
 off;