Test for sorear/niecza@fd3c735

Raku · Dec 29, 2011 · 18f9e04 · 18f9e04
1 parent 8d3c723
commit 18f9e04
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/S04-statements/for.t b/S04-statements/for.t
@@ -13,7 +13,7 @@ for statement as possible
 
 =end description
 
-plan 68;
+plan 69;
 
 ## No foreach
 # L<S04/The C<for> statement/"no foreach statement any more">
@@ -506,4 +506,12 @@ lives_ok {
     is $a, 3, 'RT #78232';
 }
 
+# http://irclog.perlgeek.de/perl6/2011-12-29#i_4892285
+# (Niecza bug)
+{
+    my $x = 0;
+    for 1 .. 2 -> $a, $b { $x = $b } #OK not used
+    is $x, 2, 'Lazy lists interact properly with multi-element for loops';
+}
+
 # vim: ft=perl6