Add test for RT #77406

Raku · Mar 14, 2015 · 3c01d70 · 3c01d70
1 parent b129356
commit 3c01d70
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/S05-modifier/ii.t b/S05-modifier/ii.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 18;
+plan 21;
 
 #?kp6 emit skip_rest("unimpl");
 
@@ -62,6 +62,16 @@ for @todo -> $t {
     is $_, 'Xyc', ':ii implies :i';
 }
 
+# RT #77406
+{
+    ok "a" ~~ m:i/:i A/,
+        'duplicated before-regexp modifier ":i" allowed (1)';
+    ok "a" ~~ m:i:i/A/,
+        'duplicated before-regexp modifier ":i" allowed (2)';
+    ok "a" ~~ m/:i:i A/,
+        'duplicated before-regexp modifier ":i" allowed (3)';
+}
+
 done;
 
 # vim: syn=perl6 sw=4 ts=4 expandtab