[t] mrege from_perl6_rules/inline.t into S05-modifier/ignorecase.t

git-svn-id: http://svn.pugscode.org/pugs@22463 c213334d-75ef-0310-aa23-eaa082d1ae64
Raku · Sep 29, 2008 · cb3c47c · cb3c47c
1 parent 039ea18
commit cb3c47c
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/S05-modifier/ignorecase.t b/S05-modifier/ignorecase.t
@@ -41,4 +41,12 @@ ok('SS' ~~ m:i/ß/, "SS matches ß with :ignorecase");
 
 #?rakudo emit =end
 
+
+# tests for inline modifiers
+# L<S05/Modifiers/and Unicode-level modifiers can be>
+
+ok("abcDEFghi" ~~ m/abc (:i def) ghi/, 'Match');
+ok(!( "abcDEFGHI" ~~ m/abc (:i def) ghi/ ), 'Mismatch');
+
+
 # vim: syn=perl6 sw=4 ts=4 expandtab