Merge pull request #411 from jstuder-gh/empty_neg_cclass

Rakudo Issue 1622: Test empty negative char class doesn't fail
Raku · Apr 7, 2018 · e784cd0 · e784cd0
2 parents e7047f1 + 7ef189a
commit e784cd0
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 191;
+plan 193;
 
 
 ok("abc1_2" ~~ m/^ <ident> $/, '<ident>');
@@ -324,4 +324,10 @@ ok 'aac' ~~ /^a <?same>/, '<?same> succeeds between two of the same character';
 ok 'abc' ~~ /^a <!same>/, '<!same> succeeds between two different characters';
 ok 'abb' ~~ /<?same>/, '<?same> searches until it matches';
 
+# [Github Issue 1622](https://github.com/rakudo/rakudo/issues/1622)
+{
+    cmp-ok 'abc', '!~~', /a <-[]>/, '<-[]> (negative char class) fails like <!>';
+    cmp-ok '',    '!~~', /<-[]>/,   '<-[]> (negative char class) fails like <!> (empty str)';
+}
+
 # vim: ft=perl6