Add "flat"s needed for GLR.

Raku · Aug 28, 2015 · ccf062e · ccf062e
1 parent fd0153c
commit ccf062e
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/integration/advent2011-day23.t b/integration/advent2011-day23.t
@@ -198,14 +198,13 @@ class Dog {
 my @y = 3, 5, 7, 9;
 my @z;
 
-@z = map { $_ > 5 ?? ($_) xx 3 !! Nil }, @y;
+@z = flat map { $_ > 5 ?? ($_) xx 3 !! Nil }, @y;
 is-deeply [@z], [Nil, Nil, 7,7,7, 9,9,9], '@z = map { $_ > 5 ?? ($_) xx 3 !! Nil }, @y';
 
-@z = @y.map: { $_ xx 3 if $_ > 5 };
+@z = flat @y.map: { $_ xx 3 if $_ > 5 };
 is-deeply @z, [7,7,7, 9,9,9], '@y.map: { $_ xx 3 if $_ > 5 };';
 
-@z = ($_ xx 3 if $_ > 5 for @y);
-
+@z = flat ($_ xx 3 if $_ > 5 for @y);
 is-deeply @z, [7,7,7, 9,9,9], '@z = ($_ xx 3 if $_ > 5 for @y);';
 
 # Random integer between 3 and 7 inclusive