Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

34 lines (28 sloc) 0.936 kb
use v6;
use Test;
plan 8;
# L<S05/Syntactic categories/>
augment slang Regex {
token backslash:sym<Y> { YY };
eval-dies-ok '/foo \y/',
'can not compile regex with unknown backslash rule';
eval-lives-ok '/fuu \Y/', 'can compile a regex with new backslash rule';
ok 'YY' ~~ /^\Y$/, 'can use that rule (positive)';
ok 'yX' !~~ /^\Y$/, 'can use that rule (negative)';
eval-dies-ok '/\Y/', 'backslash rules are lexically scoped';
# nothing in the spec says that backslash rules need to be one char
# only, and we have LTM after all
# I feel so evil today... ;-)
augment slang Regex {
token backslash:<moep> { 'Hax' };
eval-lives-ok '/\moep/', 'can compile regex with multi char backslash rule';
ok 'Haxe' ~~ m/^\moep/, '... it matches';
ok 'Haxe' ~~ m/^\moepe$/, '... with correct end of escape sequence';
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.