Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Add test for RT #115598

  • Loading branch information...
commit f966c113e5696384653612c504e83a7489016713 1 parent a458713
@coke coke authored
Showing with 8 additions and 1 deletion.
  1. +8 −1 S04-statements/gather.t
View
9 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
Please sign in to comment.
Something went wrong with that request. Please try again.