This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
57e3fac7b4a0290605799115ebf8dd1f9fb55b84
[perl5.git] / t / lib / croak / regcomp
1 __END__
2 # NAME \N{U+too large} on 64-bit machine
3 # SKIP ? use Config; $Config{uvsize} < 8 && "Not 64 bit"
4 qr/\N{U+7FFFFFFFFFFFFFFF}/;
5 qr/\N{U+1_0000_0000_0000_0000}/;
6 EXPECT
7 Use of code point 0x1_0000_0000_0000_0000 is not allowed; the permissible max is 0x7fffffffffffffff in regex; marked by <-- HERE in m/\N{U+1_0000_0000_0000_0000 <-- HERE }/ at - line 2.
8 ########
9 # NAME \N{U+too large} on 32-bit machine
10 # SKIP ? use Config; $Config{uvsize} > 4 && "Not 32 bit"
11 qr/\N{U+7FFFFFFF}/;
12 qr/\N{U+1_0000_0000}/;
13 EXPECT
14 Use of code point 0x1_0000_0000 is not allowed; the permissible max is 0x7fffffff in regex; marked by <-- HERE in m/\N{U+1_0000_0000 <-- HERE }/ at - line 2.
15 ########
16 # NAME \N{U+100.too large} on 64-bit machine
17 # SKIP ? use Config; $Config{uvsize} < 8 && "Not 64 bit"
18 qr/\N{U+100.7FFFFFFFFFFFFFFF}/;
19 qr/\N{U+100.1_0000_0000_0000_0000}/;
20 EXPECT
21 Use of code point 0x1_0000_0000_0000_0000 is not allowed; the permissible max is 0x7fffffffffffffff in regex; marked by <-- HERE in m/\N{U+100.1_0000_0000_0000_0000 <-- HERE }/ at - line 2.
22 ########
23 # NAME \N{U+100.too large} on 32-bit machine
24 # SKIP ? use Config; $Config{uvsize} > 4 && "Not 32 bit"
25 qr/\N{U+100.7FFFFFFF}/;
26 qr/\N{U+100.1_0000_0000}/;
27 EXPECT
28 Use of code point 0x1_0000_0000 is not allowed; the permissible max is 0x7fffffff in regex; marked by <-- HERE in m/\N{U+100.1_0000_0000 <-- HERE }/ at - line 2.
29 ########
30 # NAME \N{U+.}
31 my $p00="\\N{U+.}"; qr/$p00/;
32 EXPECT
33 Invalid hexadecimal number in \N{U+...} in regex; marked by <-- HERE in m/\N{U+. <-- HERE }/ at - line 1.
34 ########
35 # NAME \N{U+100.}
36 my $p00="\\N{U+100.}"; qr/$p00/;
37 EXPECT
38 Invalid hexadecimal number in \N{U+...} in regex; marked by <-- HERE in m/\N{U+100. <-- HERE }/ at - line 1.
39 ########
40 # NAME \N{U+_100}
41 my $p00="\\N{U+_100}"; qr/$p00/;
42 EXPECT
43 Invalid hexadecimal number in \N{U+...} in regex; marked by <-- HERE in m/\N{U+_ <-- HERE 100}/ at - line 1.
44 ########
45 # NAME \N{U+100_}
46 my $p00="\\N{U+100_}"; qr/$p00/;
47 EXPECT
48 Invalid hexadecimal number in \N{U+...} in regex; marked by <-- HERE in m/\N{U+100_ <-- HERE }/ at - line 1.
49 ########
50 # NAME [\xDF\N{U+.}]
51 my $p00="[\\xDF\\N{U+.}]"; qr/$p00/ui;
52 # The sharp s under /i recodes the parse, and this was causing a segfault when
53 # the error message referred to the original pattern
54 EXPECT
55 Invalid hexadecimal number in \N{U+...} in regex; marked by <-- HERE in m/[\xDF\N{U+. <-- HERE }]/ at - line 1.
56 ########