Add test for RT #115598

coke · coke · commit f966c113e569 · 2012-11-13T21:49:18.000-05:00
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
