This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PATCH: [perl #126141]: qr/]]]]][\\/ fails to raise error
[perl5.git] / t / lib / warnings / regcomp
CommitLineData
63fbd1cb 1 regcomp.c These tests have been moved to t/re/reg_mesg.t
499333dc 2 except for those that explicitly test line numbers
46d34d0e 3 and those that don't have a <-- HERE in them, and those that die plus have warnings
f9373011 4
599cee73 5__END__
dd8ddecf
FC
6use warnings 'regexp';
7$r=qr/(??{ q"\\b+" })/;
8"a" =~ /a$r/; # warning should come from this line
9EXPECT
10\b+ matches null string many times in regex; marked by <-- HERE in m/\b+ <-- HERE / at - line 3.
499333dc
KW
11########
12# regcomp.c
13use warnings 'digit' ;
14my $a = qr/\o{1238456}\x{100}/;
15my $a = qr/[\o{6548321}]\x{100}/;
16no warnings 'digit' ;
17my $a = qr/\o{1238456}\x{100}/;
18my $a = qr/[\o{6548321}]\x{100}/;
19EXPECT
20Non-octal character '8'. Resolved as "\o{123}" at - line 3.
21Non-octal character '8'. Resolved as "\o{654}" at - line 4.
22########
ecf931f7 23# regcomp.c
20062bee
KW
24BEGIN {
25 if (ord('A') == 193) {
26 print "SKIPPED\n# Different results on EBCDIC";
27 exit 0;
28 }
29}
499333dc
KW
30use warnings;
31$a = qr/\c,/;
32$a = qr/[\c,]/;
33no warnings 'syntax';
34$a = qr/\c,/;
35$a = qr/[\c,]/;
36EXPECT
20062bee
KW
37"\c," is more clearly written simply as "l" at - line 9.
38"\c," is more clearly written simply as "l" at - line 10.
285b5ca0
KW
39########
40# This is because currently a different error is output under
41# use re 'strict', so can't go in reg_mesg.t
42# NAME perl #126261, error message causes segfault
43# OPTION fatal
44 qr/abc[\x{df}[.00./i
45EXPECT
46Unmatched [ in regex; marked by <-- HERE in m/abc[ <-- HERE \x{df}[.00./ at - line 4.
47########
48# NAME perl #126261, with 'use utf8'
49# OPTION fatal
50use utf8;
51no warnings 'utf8';
52qr/abc[fi[.00./i;
53EXPECT
54Unmatched [ in regex; marked by <-- HERE in m/abc[ <-- HERE fi[.00./ at - line 4.
46d34d0e
KW
55########
56# NAME perl qr/(?[[[:word]]])/ XXX Why is 'syntax' lc?
57# OPTION fatal
58qr/(?[[[:word]]])/;
59EXPECT
60Assuming NOT a POSIX class since there is no terminating ':' in regex; marked by <-- HERE in m/(?[[[:word <-- HERE ]]])/ at - line 2.
61syntax error in (?[...]) in regex m/(?[[[:word]]])/ at - line 2.
62########
63# NAME qr/(?[ [[:digit: ])/
64# OPTION fatal
65qr/(?[[[:digit: ])/;
66EXPECT
67Assuming NOT a POSIX class since no blanks are allowed in one in regex; marked by <-- HERE in m/(?[[[:digit: ] <-- HERE )/ at - line 2.
68syntax error in (?[...]) in regex m/(?[[[:digit: ])/ at - line 2.
69########
70# NAME qr/(?[ [:digit: ])/
71# OPTION fatal
72qr/(?[[:digit: ])/
73EXPECT
74Assuming NOT a POSIX class since no blanks are allowed in one in regex; marked by <-- HERE in m/(?[[:digit: ] <-- HERE )/ at - line 2.
75syntax error in (?[...]) in regex m/(?[[:digit: ])/ at - line 2.
ca76e4e9
KW
76########
77# NAME [perl #126141]
78# OPTION fatal
79eval {/$_/}, print "$_ ==> ", $@ || "OK!\n" for "]]]]]]]]][\\", "]]]]][\\"
80EXPECT
81]]]]]]]]][\ ==> Unmatched [ in regex; marked by <-- HERE in m/]]]]]]]]][\ <-- HERE / at - line 2.
82]]]]][\ ==> Unmatched [ in regex; marked by <-- HERE in m/]]]]][\ <-- HERE / at - line 2.