Test for RT #125391.

Raku · Jul 15, 2015 · 0a3a69d · 0a3a69d
1 parent 7a7dd28
commit 0a3a69d
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/S05-capture/caps.t b/S05-capture/caps.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 42;
+plan 43;
 
 # L<S05/Match objects/"$/.caps">
 
@@ -83,4 +83,13 @@ is ca($/.chunks),   '0:a|1:;|0:b|1:,|0:c|1:,',  '.chunks on %% separator';
     is ca($/.caps),     'alpha:a|alpha:b',    '.caps on quantified &&';
 }
 
+# RT #125391
+{
+    my grammar Gram {
+        regex TOP { ('XX')+ %% $<delim>=<[a..z]>* }
+    }
+    is Gram.parse('XXXXXX').caps.map(*.key), (0, "delim", 0, "delim", 0, "delim"),
+        '.caps respects order of matching even with zero-width delimeters';
+}
+
 # vim: ft=perl6