test scoping of "{$_}" given ...

Raku · Nov 7, 2014 · bdf4af4 · bdf4af4
1 parent eee416a
commit bdf4af4
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/S04-statement-modifiers/given.t b/S04-statement-modifiers/given.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 6;
+plan 7;
 
 # L<S04/"Conditional statements"/Conditional statement modifiers work as in Perl 5>
 
@@ -42,4 +42,12 @@ plan 6;
     is $i, 13, 'postfix given worked';
 }
 
+# RT #100746
+#?rakudo todo "RT #100746"
+{
+    $_ = 'bogus';
+    my @r = gather { take "{$_}" given 'cool' }
+    is @r[0], 'cool', 'given modifies the $_ that is visible to the {} interpolator';
+}
+
 # vim: ft=perl6