Add test for RT #125401

Raku · Oct 24, 2015 · de87d79 · de87d79
1 parent 0e4520a
commit de87d79
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/S04-statements/gather.t b/S04-statements/gather.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 33;
+plan 34;
 
 # L<S04/The C<gather> statement prefix/>
 
@@ -265,4 +265,11 @@ plan 33;
         '"INIT take" inside of a "gather for" fails with X::ControlFlow';
 }
 
+# RT #125401
+{
+    my @result = flat gather { take "foo=bar".split("=") };
+    is @result, <foo bar>,
+        'take on a listy expression takes each element of that list';
+}
+
 # vim: ft=perl6