Add test for RT #115598

Raku · Nov 14, 2012 · f966c11 · f966c11
1 parent a458713
commit f966c11
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 21;
+plan 22;
 
 
 # L<S04/The C<gather> statement prefix/>
@@ -195,4 +195,11 @@ plan 21;
   is ~@outer, "5 1 2 3 5", "method form of take works.";
 }
 
+# RT #115598
+{
+    my $x;
+    my @a = gather { $x = take 3; };
+    is $x, 3, "return value of take" 
+}
+
 # vim: ft=perl6