Add test for RT #109674

Raku · Jan 1, 2015 · 9bad4dd · 9bad4dd
1 parent 8f858cb
commit 9bad4dd
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/S05-mass/stdrules.t b/S05-mass/stdrules.t
@@ -14,7 +14,7 @@ be valid perl6.
 
 # L<S05/Extensible metasyntax (C<< <...> >>)/"The special named assertions include">
 
-plan 186;
+plan 188;
 
 
 ok("abc1_2" ~~ m/^ <ident> $/, '<ident>');
@@ -312,6 +312,12 @@ ok("\x07A" ~~ m/<+alpha>/, q{Match unanchored alpha as charset});
 ok 'abc' !~~ /a <!>/, '<!> fails';
 ok '' !~~ /<!>/, '<!> fails (empty string)';
 
+#RT #109674
+{
+    ok 'abc' !~~ /a <[]>/, '<[]> fails like <!>';
+    ok '' !~~ /<[]>/, '<[]> fails like <!> (empty string)';
+}
+
 #?niecza 3 skip '<at>'
  ok 'abc' ~~ /^<at(0)>/, 'basic <at>';
 nok 'abc' ~~ /^<at(1)>/, '^<at(1) fails';