Add test with P6 regex for RT #125021

Raku · Nov 18, 2017 · ae57169 · ae57169
1 parent 187c8b1
commit ae57169
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/S05-metasyntax/regex.t b/S05-metasyntax/regex.t
@@ -3,7 +3,7 @@ use lib <t/spec/packages/>;
 use Test;
 use Test::Util;
 
-plan 49;
+plan 50;
 
 throws-like 'qr/foo/', X::Obsolete, 'qr// is gone';
 
@@ -273,4 +273,7 @@ is_run ｢(try "" ~~ /. ** {NaN}/) for ^1000; print 'pass'｣,
     {:out('pass'), :err(''), :0status},
 'wrong value for `**` quantifier does not leave behind unhandled Failures';
 
+# RT #125021
+is ~("ddd" ~~ / [ x | d ] **? 2..3 /), "dd", 'frugal match with alternation';
+
 # vim: ft=perl6