Tests for RT #126424.

Raku · Dec 13, 2015 · d2bc215 · d2bc215
1 parent 30a3a5f
commit d2bc215
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 34;
+plan 36;
 
 # L<S04/The C<gather> statement prefix/>
 
@@ -272,4 +272,11 @@ plan 34;
         'take on a listy expression takes each element of that list';
 }
 
+# RT #126424
+{
+    my $l = gather { take-rw my $ = 1 };
+    lives-ok { $l.AT-POS(0) = 42 }, 'AT-POS on gather Seq with take-rw value lives';
+    is $l.AT-POS(0), 42, 'AT-POS on gather Seq with take-rw value works';
+}
+
 # vim: ft=perl6