-
Notifications
You must be signed in to change notification settings - Fork 135
/
unknown.t
49 lines (38 loc) · 1.23 KB
/
unknown.t
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
use v6;
use Test;
plan 13;
# L<S05/Simplified lexical parsing of patterns/not all non-identifier glyphs are currently meaningful as metasyntax>
# testing unknown metasyntax handling
throws-like '"aa!" ~~ /!/', X::Syntax::Regex::UnrecognizedMetachar,
'"!" is not valid metasyntax';
lives-ok({"aa!" ~~ /\!/}, 'escaped "!" is valid');
lives-ok({"aa!" ~~ /'!'/}, 'quoted "!" is valid');
throws-like '"aa!" ~~ /\a/', Exception, 'escaped "a" is not valid metasyntax';
lives-ok({"aa!" ~~ /a/}, '"a" is valid');
lives-ok({"aa!" ~~ /'a'/}, 'quoted "a" is valid');
{
my rule foo { \{ };
ok '{' ~~ /<foo>/, '\\{ in a rule (+)';
ok '!' !~~ /<foo>/, '\\{ in a rule (-)';
}
# RT #74832
{
dies-ok {EVAL('/ a+ + /')}, 'Cannot parse regex a+ +';
#?rakudo todo 'RT #74832'
#?niecza todo
ok "$!" ~~ /:i quantif/, 'error message mentions quantif{y,ier}';
}
# RT #77110, #77386
#?niecza skip "throws-like"
#?DOES 3
{
throws-like '$_ = "0"; s/-/1/', X::Syntax::Regex::UnrecognizedMetachar, metachar => '-';
}
# RT #77562
# not sure this is the right place for this test
{
lives-ok { /$'x'/ }, 'can parse /$\'x\'/';
}
# RT #125648
throws-like '/00:11:22/', X::Syntax::Regex::UnrecognizedModifier, modifier => '11';
# vim: ft=perl6