Test for RT #125521.

Raku · Jul 9, 2015 · 302b5c2 · 302b5c2
1 parent 1cda041
commit 302b5c2
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/S05-metasyntax/repeat.t b/S05-metasyntax/repeat.t
@@ -14,7 +14,7 @@ be valid perl6.
 
 # Note: single-quotes.t tests repetition on single quoted items in regexes.
 
-plan 29;
+plan 30;
 
 # L<S05/Bracket rationalization/The general repetition specifier is now>
 
@@ -79,4 +79,10 @@ ok ('a b,c,d' ~~ token { \w \s \w+ % \, }), 'can combine % with backslash charac
 ok '1a2a3bc' ~~ /^ \d+ % abc $/, '% only takes single atom as separator';
 nok '1ab2ab3c' ~~ /^ \d+ % abc $/, '% only takes single atom as separator';
 
+# RT #125521
+{
+    my $m = 'AAA' ~~ /$<letter>=(A)**{3}/;
+    is +$m<letter>, 3, 'dynamic quantifiers interact correctly with captures';
+}
+
 # vim: ft=perl6