add tests for ignoremark + character classes

Raku · May 9, 2015 · 88920f4 · 88920f4
1 parent b62c8ee
commit 88920f4
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/S05-modifier/ignoremark.t b/S05-modifier/ignoremark.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 11;
+plan 14;
 
 =begin description
 
@@ -26,4 +26,8 @@ ok('å' ~~ m:m/ä/, 'Both pattern and string may contain accents');
 ok('a' ~~ m:m/ä/, 'Pattern may contain accents');
 ok('ä' ~~ m:ignoremark/a/, 'Ignoremark: spelling out :ignoremark also works');
 
+is('fooäàaáâåbar' ~~ m:m/a+ b/,    'äàaáâåb',  'Ignoremark: a+ b');
+is('fooäàaáâåbar' ~~ m:m/<[ab]>+/, 'äàaáâåba', 'Ignoremark with character class');
+is('fooäàaáâåbar' ~~ m:m/<-[a]>+/, 'foo',      'Ignoremark with negated character class');
+
 # vim: syn=perl6 sw=4 ts=4 expandtab