1# This set of tests checks the API, internals, and non-Perl stuff for UTF
2# support, including Unicode properties. However, tests that give different
3# results in 8-bit, 16-bit, and 32-bit modes are excluded (see tests 10 and
4# 12).
5
6#newline_default lf any anycrlf
7
8# PCRE2 and Perl disagree about the characteristics of certain Unicode
9# characters. For example, 061C was considered by Perl to be Arabic, though
10# it was not listed as such in the Unicode Scripts.txt file for Unicode 8.
11# However, it *is* in that file for Unicode 10, but when I came to re-check,
12# Perl had changed in the meantime, with 5.026 not recognizing it as Arabic.
13
14# 2066-2069 are graphic and printable according to Perl, though they are
15# actually "isolate" control characters. That is why the following tests are
16# here rather than in test 4.
17
18/^[\p{Arabic}]/utf
19    \x{061c}
20
21/^[[:graph:]]+$/utf,ucp
22\= Expect no match
23    \x{61c}
24    \x{2066}
25    \x{2067}
26    \x{2068}
27    \x{2069}
28
29/^[[:print:]]+$/utf,ucp
30\= Expect no match
31    \x{61c}
32    \x{2066}
33    \x{2067}
34    \x{2068}
35    \x{2069}
36
37/^[[:^graph:]]+$/utf,ucp
38    \x{09}\x{0a}\x{1D}\x{20}\x{85}\x{a0}\x{61c}\x{1680}
39    \x{2028}\x{2029}\x{202f}\x{2065}\x{2066}\x{2067}\x{2068}\x{2069}
40
41/^[[:^print:]]+$/utf,ucp
42    \x{09}\x{1D}\x{85}\x{61c}\x{2028}\x{2029}\x{2065}\x{2066}\x{2067}
43    \x{2068}\x{2069}
44
45# Perl does not consider U+180e to be a space character. It is true that it
46# does not appear in the Unicode PropList.txt file as such, but in many other
47# sources it is listed as a space, and has been treated as such in PCRE for
48# a long time.
49
50/^>[[:blank:]]*/utf,ucp
51    >\x{20}\x{a0}\x{1680}\x{180e}\x{2000}\x{202f}\x{9}\x{b}\x{2028}
52
53/^A\s+Z/utf,ucp
54    A\x{85}\x{180e}\x{2005}Z
55
56/^A[\s]+Z/utf,ucp
57    A\x{2005}Z
58    A\x{85}\x{2005}Z
59
60/^[[:graph:]]+$/utf,ucp
61\= Expect no match
62    \x{180e}
63
64/^[[:print:]]+$/utf,ucp
65    \x{180e}
66
67/^[[:^graph:]]+$/utf,ucp
68    \x{09}\x{0a}\x{1D}\x{20}\x{85}\x{a0}\x{61c}\x{1680}\x{180e}
69
70/^[[:^print:]]+$/utf,ucp
71\= Expect no match
72    \x{180e}
73
74# End of U+180E tests.
75
76# ---------------------------------------------------------------------
77
78/\x{110000}/IB,utf
79
80/\o{4200000}/IB,utf
81
82/\x{ffffffff}/utf
83
84/\o{37777777777}/utf
85
86/\x{100000000}/utf
87
88/\o{77777777777}/utf
89
90/\x{d800}/utf
91
92/\o{154000}/utf
93
94/\x{dfff}/utf
95
96/\o{157777}/utf
97
98/\x{d7ff}/utf
99
100/\o{153777}/utf
101
102/\x{e000}/utf
103
104/\o{170000}/utf
105
106/^\x{100}a\x{1234}/utf
107    \x{100}a\x{1234}bcd
108
109/\x{0041}\x{2262}\x{0391}\x{002e}/IB,utf
110    \x{0041}\x{2262}\x{0391}\x{002e}
111
112/.{3,5}X/IB,utf
113    \x{212ab}\x{212ab}\x{212ab}\x{861}X
114
115/.{3,5}?/IB,utf
116    \x{212ab}\x{212ab}\x{212ab}\x{861}
117
118/^[ab]/IB,utf
119    bar
120\= Expect no match
121    c
122    \x{ff}
123    \x{100}
124
125/\x{100}*(\d+|"(?1)")/utf
126    1234
127    "1234"
128    \x{100}1234
129    "\x{100}1234"
130    \x{100}\x{100}12ab
131    \x{100}\x{100}"12"
132\= Expect no match
133    \x{100}\x{100}abcd
134
135/\x{100}*/IB,utf
136
137/a\x{100}*/IB,utf
138
139/ab\x{100}*/IB,utf
140
141/[\x{200}-\x{100}]/utf
142
143/[Ā-Ą]/utf
144    \x{100}
145    \x{104}
146\= Expect no match
147    \x{105}
148    \x{ff}
149
150/[\xFF]/IB
151    >\xff<
152
153/[^\xFF]/IB
154
155/[Ä-Ü]/utf
156    Ö # Matches without Study
157    \x{d6}
158
159/[Ä-Ü]/utf
160    Ö <-- Same with Study
161    \x{d6}
162
163/[\x{c4}-\x{dc}]/utf
164    Ö # Matches without Study
165    \x{d6}
166
167/[\x{c4}-\x{dc}]/utf
168    Ö <-- Same with Study
169    \x{d6}
170
171/[^\x{100}]abc(xyz(?1))/IB,utf
172
173/(\x{100}(b(?2)c))?/IB,utf
174
175/(\x{100}(b(?2)c)){0,2}/IB,utf
176
177/(\x{100}(b(?1)c))?/IB,utf
178
179/(\x{100}(b(?1)c)){0,2}/IB,utf
180
181/\W/utf
182    A.B
183    A\x{100}B
184
185/\w/utf
186    \x{100}X
187
188# Use no_start_optimize because the first code unit is different in 8-bit from
189# the wider modes.
190
191/^\ሴ/IB,utf,no_start_optimize
192
193/()()()()()()()()()()
194 ()()()()()()()()()()
195 ()()()()()()()()()()
196 ()()()()()()()()()()
197 A (x) (?41) B/x,utf
198    AxxB
199
200/^[\x{100}\E-\Q\E\x{150}]/B,utf
201
202/^[\QĀ\E-\QŐ\E]/B,utf
203
204/^abc./gmx,newline=any,utf
205    abc1 \x0aabc2 \x0babc3xx \x0cabc4 \x0dabc5xx \x0d\x0aabc6 \x{0085}abc7 \x{2028}abc8 \x{2029}abc9 JUNK
206
207/abc.$/gmx,newline=any,utf
208    abc1\x0a abc2\x0b abc3\x0c abc4\x0d abc5\x0d\x0a abc6\x{0085} abc7\x{2028} abc8\x{2029} abc9
209
210/^a\Rb/bsr=unicode,utf
211    a\nb
212    a\rb
213    a\r\nb
214    a\x0bb
215    a\x0cb
216    a\x{85}b
217    a\x{2028}b
218    a\x{2029}b
219\= Expect no match
220    a\n\rb
221
222/^a\R*b/bsr=unicode,utf
223    ab
224    a\nb
225    a\rb
226    a\r\nb
227    a\x0bb
228    a\x0c\x{2028}\x{2029}b
229    a\x{85}b
230    a\n\rb
231    a\n\r\x{85}\x0cb
232
233/^a\R+b/bsr=unicode,utf
234    a\nb
235    a\rb
236    a\r\nb
237    a\x0bb
238    a\x0c\x{2028}\x{2029}b
239    a\x{85}b
240    a\n\rb
241    a\n\r\x{85}\x0cb
242\= Expect no match
243    ab
244
245/^a\R{1,3}b/bsr=unicode,utf
246    a\nb
247    a\n\rb
248    a\n\r\x{85}b
249    a\r\n\r\nb
250    a\r\n\r\n\r\nb
251    a\n\r\n\rb
252    a\n\n\r\nb
253\= Expect no match
254    a\n\n\n\rb
255    a\r
256
257/\H\h\V\v/utf
258    X X\x0a
259    X\x09X\x0b
260\= Expect no match
261    \x{a0} X\x0a
262
263/\H*\h+\V?\v{3,4}/utf
264    \x09\x20\x{a0}X\x0a\x0b\x0c\x0d\x0a
265    \x09\x20\x{a0}\x0a\x0b\x0c\x0d\x0a
266    \x09\x20\x{a0}\x0a\x0b\x0c
267\= Expect no match
268    \x09\x20\x{a0}\x0a\x0b
269
270/\H\h\V\v/utf
271    \x{3001}\x{3000}\x{2030}\x{2028}
272    X\x{180e}X\x{85}
273\= Expect no match
274    \x{2009} X\x0a
275
276/\H*\h+\V?\v{3,4}/utf
277    \x{1680}\x{180e}\x{2007}X\x{2028}\x{2029}\x0c\x0d\x0a
278    \x09\x{205f}\x{a0}\x0a\x{2029}\x0c\x{2028}\x0a
279    \x09\x20\x{202f}\x0a\x0b\x0c
280\= Expect no match
281    \x09\x{200a}\x{a0}\x{2028}\x0b
282
283/[\h]/B,utf
284    >\x{1680}
285
286/[\h]{3,}/B,utf
287    >\x{1680}\x{180e}\x{2000}\x{2003}\x{200a}\x{202f}\x{205f}\x{3000}<
288
289/[\v]/B,utf
290
291/[\H]/B,utf
292
293/[\V]/B,utf
294
295/.*$/newline=any,utf
296    \x{1ec5}
297
298/a\Rb/I,bsr=anycrlf,utf
299    a\rb
300    a\nb
301    a\r\nb
302\= Expect no match
303    a\x{85}b
304    a\x0bb
305
306/a\Rb/I,bsr=unicode,utf
307    a\rb
308    a\nb
309    a\r\nb
310    a\x{85}b
311    a\x0bb
312
313/a\R?b/I,bsr=anycrlf,utf
314    a\rb
315    a\nb
316    a\r\nb
317\= Expect no match
318    a\x{85}b
319    a\x0bb
320
321/a\R?b/I,bsr=unicode,utf
322    a\rb
323    a\nb
324    a\r\nb
325    a\x{85}b
326    a\x0bb
327
328/.*a.*=.b.*/utf,newline=any
329    QQQ\x{2029}ABCaXYZ=!bPQR
330\= Expect no match
331    a\x{2029}b
332    \x61\xe2\x80\xa9\x62
333
334/[[:a\x{100}b:]]/utf
335
336/a[^]b/utf,allow_empty_class,match_unset_backref
337    a\x{1234}b
338    a\nb
339\= Expect no match
340    ab
341
342/a[^]+b/utf,allow_empty_class,match_unset_backref
343    aXb
344    a\nX\nX\x{1234}b
345\= Expect no match
346    ab
347
348/(\x{de})\1/
349    \x{de}\x{de}
350
351/X/newline=any,utf,firstline
352    A\x{1ec5}ABCXYZ
353
354/Xa{2,4}b/utf
355    X\=ps
356    Xa\=ps
357    Xaa\=ps
358    Xaaa\=ps
359    Xaaaa\=ps
360
361/Xa{2,4}?b/utf
362    X\=ps
363    Xa\=ps
364    Xaa\=ps
365    Xaaa\=ps
366    Xaaaa\=ps
367
368/Xa{2,4}+b/utf
369    X\=ps
370    Xa\=ps
371    Xaa\=ps
372    Xaaa\=ps
373    Xaaaa\=ps
374
375/X\x{123}{2,4}b/utf
376    X\=ps
377    X\x{123}\=ps
378    X\x{123}\x{123}\=ps
379    X\x{123}\x{123}\x{123}\=ps
380    X\x{123}\x{123}\x{123}\x{123}\=ps
381
382/X\x{123}{2,4}?b/utf
383    X\=ps
384    X\x{123}\=ps
385    X\x{123}\x{123}\=ps
386    X\x{123}\x{123}\x{123}\=ps
387    X\x{123}\x{123}\x{123}\x{123}\=ps
388
389/X\x{123}{2,4}+b/utf
390    X\=ps
391    X\x{123}\=ps
392    X\x{123}\x{123}\=ps
393    X\x{123}\x{123}\x{123}\=ps
394    X\x{123}\x{123}\x{123}\x{123}\=ps
395
396/X\x{123}{2,4}b/utf
397\= Expect no match
398    Xx\=ps
399    X\x{123}x\=ps
400    X\x{123}\x{123}x\=ps
401    X\x{123}\x{123}\x{123}x\=ps
402    X\x{123}\x{123}\x{123}\x{123}x\=ps
403
404/X\x{123}{2,4}?b/utf
405\= Expect no match
406    Xx\=ps
407    X\x{123}x\=ps
408    X\x{123}\x{123}x\=ps
409    X\x{123}\x{123}\x{123}x\=ps
410    X\x{123}\x{123}\x{123}\x{123}x\=ps
411
412/X\x{123}{2,4}+b/utf
413\= Expect no match
414    Xx\=ps
415    X\x{123}x\=ps
416    X\x{123}\x{123}x\=ps
417    X\x{123}\x{123}\x{123}x\=ps
418    X\x{123}\x{123}\x{123}\x{123}x\=ps
419
420/X\d{2,4}b/utf
421    X\=ps
422    X3\=ps
423    X33\=ps
424    X333\=ps
425    X3333\=ps
426
427/X\d{2,4}?b/utf
428    X\=ps
429    X3\=ps
430    X33\=ps
431    X333\=ps
432    X3333\=ps
433
434/X\d{2,4}+b/utf
435    X\=ps
436    X3\=ps
437    X33\=ps
438    X333\=ps
439    X3333\=ps
440
441/X\D{2,4}b/utf
442    X\=ps
443    Xa\=ps
444    Xaa\=ps
445    Xaaa\=ps
446    Xaaaa\=ps
447
448/X\D{2,4}?b/utf
449    X\=ps
450    Xa\=ps
451    Xaa\=ps
452    Xaaa\=ps
453    Xaaaa\=ps
454
455/X\D{2,4}+b/utf
456    X\=ps
457    Xa\=ps
458    Xaa\=ps
459    Xaaa\=ps
460    Xaaaa\=ps
461
462/X\D{2,4}b/utf
463    X\=ps
464    X\x{123}\=ps
465    X\x{123}\x{123}\=ps
466    X\x{123}\x{123}\x{123}\=ps
467    X\x{123}\x{123}\x{123}\x{123}\=ps
468
469/X\D{2,4}?b/utf
470    X\=ps
471    X\x{123}\=ps
472    X\x{123}\x{123}\=ps
473    X\x{123}\x{123}\x{123}\=ps
474    X\x{123}\x{123}\x{123}\x{123}\=ps
475
476/X\D{2,4}+b/utf
477    X\=ps
478    X\x{123}\=ps
479    X\x{123}\x{123}\=ps
480    X\x{123}\x{123}\x{123}\=ps
481    X\x{123}\x{123}\x{123}\x{123}\=ps
482
483/X[abc]{2,4}b/utf
484    X\=ps
485    Xa\=ps
486    Xaa\=ps
487    Xaaa\=ps
488    Xaaaa\=ps
489
490/X[abc]{2,4}?b/utf
491    X\=ps
492    Xa\=ps
493    Xaa\=ps
494    Xaaa\=ps
495    Xaaaa\=ps
496
497/X[abc]{2,4}+b/utf
498    X\=ps
499    Xa\=ps
500    Xaa\=ps
501    Xaaa\=ps
502    Xaaaa\=ps
503
504/X[abc\x{123}]{2,4}b/utf
505    X\=ps
506    X\x{123}\=ps
507    X\x{123}\x{123}\=ps
508    X\x{123}\x{123}\x{123}\=ps
509    X\x{123}\x{123}\x{123}\x{123}\=ps
510
511/X[abc\x{123}]{2,4}?b/utf
512    X\=ps
513    X\x{123}\=ps
514    X\x{123}\x{123}\=ps
515    X\x{123}\x{123}\x{123}\=ps
516    X\x{123}\x{123}\x{123}\x{123}\=ps
517
518/X[abc\x{123}]{2,4}+b/utf
519    X\=ps
520    X\x{123}\=ps
521    X\x{123}\x{123}\=ps
522    X\x{123}\x{123}\x{123}\=ps
523    X\x{123}\x{123}\x{123}\x{123}\=ps
524
525/X[^a]{2,4}b/utf
526    X\=ps
527    Xz\=ps
528    Xzz\=ps
529    Xzzz\=ps
530    Xzzzz\=ps
531
532/X[^a]{2,4}?b/utf
533    X\=ps
534    Xz\=ps
535    Xzz\=ps
536    Xzzz\=ps
537    Xzzzz\=ps
538
539/X[^a]{2,4}+b/utf
540    X\=ps
541    Xz\=ps
542    Xzz\=ps
543    Xzzz\=ps
544    Xzzzz\=ps
545
546/X[^a]{2,4}b/utf
547    X\=ps
548    X\x{123}\=ps
549    X\x{123}\x{123}\=ps
550    X\x{123}\x{123}\x{123}\=ps
551    X\x{123}\x{123}\x{123}\x{123}\=ps
552
553/X[^a]{2,4}?b/utf
554    X\=ps
555    X\x{123}\=ps
556    X\x{123}\x{123}\=ps
557    X\x{123}\x{123}\x{123}\=ps
558    X\x{123}\x{123}\x{123}\x{123}\=ps
559
560/X[^a]{2,4}+b/utf
561    X\=ps
562    X\x{123}\=ps
563    X\x{123}\x{123}\=ps
564    X\x{123}\x{123}\x{123}\=ps
565    X\x{123}\x{123}\x{123}\x{123}\=ps
566
567/(Y)X\1{2,4}b/utf
568    YX\=ps
569    YXY\=ps
570    YXYY\=ps
571    YXYYY\=ps
572    YXYYYY\=ps
573
574/(Y)X\1{2,4}?b/utf
575    YX\=ps
576    YXY\=ps
577    YXYY\=ps
578    YXYYY\=ps
579    YXYYYY\=ps
580
581/(Y)X\1{2,4}+b/utf
582    YX\=ps
583    YXY\=ps
584    YXYY\=ps
585    YXYYY\=ps
586    YXYYYY\=ps
587
588/(\x{123})X\1{2,4}b/utf
589    \x{123}X\=ps
590    \x{123}X\x{123}\=ps
591    \x{123}X\x{123}\x{123}\=ps
592    \x{123}X\x{123}\x{123}\x{123}\=ps
593    \x{123}X\x{123}\x{123}\x{123}\x{123}\=ps
594
595/(\x{123})X\1{2,4}?b/utf
596    \x{123}X\=ps
597    \x{123}X\x{123}\=ps
598    \x{123}X\x{123}\x{123}\=ps
599    \x{123}X\x{123}\x{123}\x{123}\=ps
600    \x{123}X\x{123}\x{123}\x{123}\x{123}\=ps
601
602/(\x{123})X\1{2,4}+b/utf
603    \x{123}X\=ps
604    \x{123}X\x{123}\=ps
605    \x{123}X\x{123}\x{123}\=ps
606    \x{123}X\x{123}\x{123}\x{123}\=ps
607    \x{123}X\x{123}\x{123}\x{123}\x{123}\=ps
608
609/\bthe cat\b/utf
610    the cat\=ps
611    the cat\=ph
612
613/abcd*/utf
614    xxxxabcd\=ps
615    xxxxabcd\=ph
616
617/abcd*/i,utf
618    xxxxabcd\=ps
619    xxxxabcd\=ph
620    XXXXABCD\=ps
621    XXXXABCD\=ph
622
623/abc\d*/utf
624    xxxxabc1\=ps
625    xxxxabc1\=ph
626
627/(a)bc\1*/utf
628    xxxxabca\=ps
629    xxxxabca\=ph
630
631/abc[de]*/utf
632    xxxxabcde\=ps
633    xxxxabcde\=ph
634
635/X\W{3}X/utf
636    X\=ps
637
638/\sxxx\s/utf,tables=2
639    AB\x{85}xxx\x{a0}XYZ
640    AB\x{a0}xxx\x{85}XYZ
641
642/\S \S/utf,tables=2
643    \x{a2} \x{84}
644
645'A#хц'Bx,newline=any,utf
646
647'A#хц
648  PQ'Bx,newline=any,utf
649
650/a+#хaa
651  z#XX?/Bx,newline=any,utf
652
653/a+#хaa
654  z#х?/Bx,newline=any,utf
655
656/\g{A}xxx#bXX(?'A'123)
657(?'A'456)/Bx,newline=any,utf
658
659/\g{A}xxx#bх(?'A'123)
660(?'A'456)/Bx,newline=any,utf
661
662/^\cģ/utf
663
664/(\R*)(.)/s,utf
665    \r\n
666    \r\r\n\n\r
667    \r\r\n\n\r\n
668
669/(\R)*(.)/s,utf
670    \r\n
671    \r\r\n\n\r
672    \r\r\n\n\r\n
673
674/[^\x{1234}]+/Ii,utf
675
676/[^\x{1234}]+?/Ii,utf
677
678/[^\x{1234}]++/Ii,utf
679
680/[^\x{1234}]{2}/Ii,utf
681
682/f.*/
683    for\=ph
684
685/f.*/s
686    for\=ph
687
688/f.*/utf
689    for\=ph
690
691/f.*/s,utf
692    for\=ph
693
694/\x{d7ff}\x{e000}/utf
695
696/\x{d800}/utf
697
698/\x{dfff}/utf
699
700/\h+/utf
701    \x{1681}\x{200b}\x{1680}\x{2000}\x{202f}\x{3000}
702    \x{3001}\x{2fff}\x{200a}\x{a0}\x{2000}
703
704/[\h\x{e000}]+/B,utf
705    \x{1681}\x{200b}\x{1680}\x{2000}\x{202f}\x{3000}
706    \x{3001}\x{2fff}\x{200a}\x{a0}\x{2000}
707
708/\H+/utf
709    \x{1680}\x{180e}\x{167f}\x{1681}\x{180d}\x{180f}
710    \x{2000}\x{200a}\x{1fff}\x{200b}
711    \x{202f}\x{205f}\x{202e}\x{2030}\x{205e}\x{2060}
712    \x{a0}\x{3000}\x{9f}\x{a1}\x{2fff}\x{3001}
713
714/[\H\x{d7ff}]+/B,utf
715    \x{1680}\x{180e}\x{167f}\x{1681}\x{180d}\x{180f}
716    \x{2000}\x{200a}\x{1fff}\x{200b}
717    \x{202f}\x{205f}\x{202e}\x{2030}\x{205e}\x{2060}
718    \x{a0}\x{3000}\x{9f}\x{a1}\x{2fff}\x{3001}
719
720/\v+/utf
721    \x{2027}\x{2030}\x{2028}\x{2029}
722    \x09\x0e\x{84}\x{86}\x{85}\x0a\x0b\x0c\x0d
723
724/[\v\x{e000}]+/B,utf
725    \x{2027}\x{2030}\x{2028}\x{2029}
726    \x09\x0e\x{84}\x{86}\x{85}\x0a\x0b\x0c\x0d
727
728/\V+/utf
729    \x{2028}\x{2029}\x{2027}\x{2030}
730    \x{85}\x0a\x0b\x0c\x0d\x09\x0e\x{84}\x{86}
731
732/[\V\x{d7ff}]+/B,utf
733    \x{2028}\x{2029}\x{2027}\x{2030}
734    \x{85}\x0a\x0b\x0c\x0d\x09\x0e\x{84}\x{86}
735
736/\R+/bsr=unicode,utf
737    \x{2027}\x{2030}\x{2028}\x{2029}
738    \x09\x0e\x{84}\x{86}\x{85}\x0a\x0b\x0c\x0d
739
740/(..)\1/utf
741    ab\=ps
742    aba\=ps
743    abab\=ps
744
745/(..)\1/i,utf
746    ab\=ps
747    abA\=ps
748    aBAb\=ps
749
750/(..)\1{2,}/utf
751    ab\=ps
752    aba\=ps
753    abab\=ps
754    ababa\=ps
755    ababab\=ps
756    ababab\=ph
757    abababa\=ps
758    abababa\=ph
759
760/(..)\1{2,}/i,utf
761    ab\=ps
762    aBa\=ps
763    aBAb\=ps
764    AbaBA\=ps
765    abABAb\=ps
766    aBAbaB\=ph
767    abABabA\=ps
768    abaBABa\=ph
769
770/(..)\1{2,}?x/i,utf
771    ab\=ps
772    abA\=ps
773    aBAb\=ps
774    abaBA\=ps
775    abAbaB\=ps
776    abaBabA\=ps
777    abAbABaBx\=ps
778
779/./utf,newline=crlf
780    \r\=ps
781    \r\=ph
782
783/.{2,3}/utf,newline=crlf
784    \r\=ps
785    \r\=ph
786    \r\r\=ps
787    \r\r\=ph
788    \r\r\r\=ps
789    \r\r\r\=ph
790
791/.{2,3}?/utf,newline=crlf
792    \r\=ps
793    \r\=ph
794    \r\r\=ps
795    \r\r\=ph
796    \r\r\r\=ps
797    \r\r\r\=ph
798
799/[^\x{100}][^\x{1234}][^\x{ffff}][^\x{10000}][^\x{10ffff}]/B,utf
800
801/[^\x{100}][^\x{1234}][^\x{ffff}][^\x{10000}][^\x{10ffff}]/Bi,utf
802
803/[^\x{100}]*[^\x{10000}]+[^\x{10ffff}]??[^\x{8000}]{4,}[^\x{7fff}]{2,9}?[^\x{fffff}]{5,6}+/B,utf
804
805/[^\x{100}]*[^\x{10000}]+[^\x{10ffff}]??[^\x{8000}]{4,}[^\x{7fff}]{2,9}?[^\x{fffff}]{5,6}+/Bi,utf
806
807/(?<=\x{1234}\x{1234})\bxy/I,utf
808
809/(?<!^)ETA/utf
810\= Expect no match
811    ETA
812
813/\u0100/B,utf,alt_bsux,allow_empty_class,match_unset_backref
814
815/[\u0100-\u0200]/B,utf,alt_bsux,allow_empty_class,match_unset_backref
816
817/\ud800/utf,alt_bsux,allow_empty_class,match_unset_backref
818
819/^\u{0000000000010ffff}/utf,extra_alt_bsux
820    \x{10ffff}
821
822/\u/utf,alt_bsux
823    \\u
824
825/^a+[a\x{200}]/B,utf
826    aa
827
828/[b-d\x{200}-\x{250}]*[ae-h]?#[\x{200}-\x{250}]{0,8}[\x00-\xff]*#[\x{200}-\x{250}]+[a-z]/B,utf
829
830/[\p{L}]/IB
831
832/[\p{^L}]/IB
833
834/[\P{L}]/IB
835
836/[\P{^L}]/IB
837
838/[abc\p{L}\x{0660}]/IB,utf
839
840/[\p{Nd}]/IB,utf
841    1234
842
843/[\p{Nd}+-]+/IB,utf
844    1234
845    12-34
846    12+\x{661}-34
847\= Expect no match
848    abcd
849
850/(?:[\PPa*]*){8,}/
851
852/[\P{Any}]/B
853
854/[\P{Any}\E]/B
855
856/(\P{Yi}+\277)/
857
858/(\P{Yi}+\277)?/
859
860/(?<=\P{Yi}{3}A)X/
861
862/\p{Yi}+(\P{Yi}+)(?1)/
863
864/(\P{Yi}{2}\277)?/
865
866/[\P{Yi}A]/
867
868/[\P{Yi}\P{Yi}\P{Yi}A]/
869
870/[^\P{Yi}A]/
871
872/[^\P{Yi}\P{Yi}\P{Yi}A]/
873
874/(\P{Yi}*\277)*/
875
876/(\P{Yi}*?\277)*/
877
878/(\p{Yi}*+\277)*/
879
880/(\P{Yi}?\277)*/
881
882/(\P{Yi}??\277)*/
883
884/(\p{Yi}?+\277)*/
885
886/(\P{Yi}{0,3}\277)*/
887
888/(\P{Yi}{0,3}?\277)*/
889
890/(\p{Yi}{0,3}+\277)*/
891
892/\p{Zl}{2,3}+/B,utf
893    


894    \x{2028}\x{2028}\x{2028}
895
896/\p{Zl}/B,utf
897
898/\p{Lu}{3}+/B,utf
899
900/\pL{2}+/B,utf
901
902/\p{Cc}{2}+/B,utf
903
904/^\p{Cf}/utf
905    \x{180e}
906    \x{061c}
907    \x{2066}
908    \x{2067}
909    \x{2068}
910    \x{2069}
911
912/^\p{Cs}/utf
913    \x{dfff}\=no_utf_check
914\= Expect no match
915    \x{09f}
916
917/^\p{Mn}/utf
918    \x{1a1b}
919
920/^\p{Pe}/utf
921    \x{2309}
922    \x{230b}
923
924/^\p{Ps}/utf
925    \x{2308}
926    \x{230a}
927
928/^\p{Sc}+/utf
929    $\x{a2}\x{a3}\x{a4}\x{a5}\x{a6}
930    \x{9f2}
931\= Expect no match
932    X
933    \x{2c2}
934
935/^\p{Zs}/utf
936    \ \
937    \x{a0}
938    \x{1680}
939    \x{2000}
940    \x{2001}
941\= Expect no match
942    \x{2028}
943    \x{200d}
944
945# These are here because Perl has problems with the negative versions of the
946# properties and has changed how it behaves for caseless matching.
947
948/\p{^Lu}/i,utf
949    1234
950\= Expect no match
951    ABC
952
953/\P{Lu}/i,utf
954    1234
955\= Expect no match
956    ABC
957
958/\p{Ll}/i,utf
959    a
960    Az
961\= Expect no match
962    ABC
963
964/\p{Lu}/i,utf
965    A
966    a\x{10a0}B
967\= Expect no match
968    a
969    \x{1d00}
970
971/\p{Lu}/i,utf
972    A
973    aZ
974\= Expect no match
975    abc
976
977/[\x{c0}\x{391}]/i,utf
978    \x{c0}
979    \x{e0}
980
981# The next two are special cases where the lengths of the different cases of
982# the same character differ. The first went wrong with heap frame storage; the
983# second was broken in all cases.
984
985/^\x{023a}+?(\x{0130}+)/i,utf
986  \x{023a}\x{2c65}\x{0130}
987
988/^\x{023a}+([^X])/i,utf
989  \x{023a}\x{2c65}X
990
991/\x{c0}+\x{116}+/i,utf
992    \x{c0}\x{e0}\x{116}\x{117}
993
994/[\x{c0}\x{116}]+/i,utf
995    \x{c0}\x{e0}\x{116}\x{117}
996
997/(\x{de})\1/i,utf
998    \x{de}\x{de}
999    \x{de}\x{fe}
1000    \x{fe}\x{fe}
1001    \x{fe}\x{de}
1002
1003/^\x{c0}$/i,utf
1004    \x{c0}
1005    \x{e0}
1006
1007/^\x{e0}$/i,utf
1008    \x{c0}
1009    \x{e0}
1010
1011# The next two should be Perl-compatible, but it fails to match \x{e0}. PCRE
1012# will match it only with UCP support, because without that it has no notion
1013# of case for anything other than the ASCII letters.
1014
1015/((?i)[\x{c0}])/utf
1016    \x{c0}
1017    \x{e0}
1018
1019/(?i:[\x{c0}])/utf
1020    \x{c0}
1021    \x{e0}
1022
1023# These are PCRE's extra properties to help with Unicodizing \d etc.
1024
1025/^\p{Xan}/utf
1026    ABCD
1027    1234
1028    \x{6ca}
1029    \x{a6c}
1030    \x{10a7}
1031\= Expect no match
1032    _ABC
1033
1034/^\p{Xan}+/utf
1035    ABCD1234\x{6ca}\x{a6c}\x{10a7}_
1036\= Expect no match
1037    _ABC
1038
1039/^\p{Xan}+?/utf
1040    \x{6ca}\x{a6c}\x{10a7}_
1041
1042/^\p{Xan}*/utf
1043    ABCD1234\x{6ca}\x{a6c}\x{10a7}_
1044
1045/^\p{Xan}{2,9}/utf
1046    ABCD1234\x{6ca}\x{a6c}\x{10a7}_
1047
1048/^\p{Xan}{2,9}?/utf
1049    \x{6ca}\x{a6c}\x{10a7}_
1050
1051/^[\p{Xan}]/utf
1052    ABCD1234_
1053    1234abcd_
1054    \x{6ca}
1055    \x{a6c}
1056    \x{10a7}
1057\= Expect no match
1058    _ABC
1059
1060/^[\p{Xan}]+/utf
1061    ABCD1234\x{6ca}\x{a6c}\x{10a7}_
1062\= Expect no match
1063    _ABC
1064
1065/^>\p{Xsp}/utf
1066    >\x{1680}\x{2028}\x{0b}
1067    >\x{a0}
1068\= Expect no match
1069    \x{0b}
1070
1071/^>\p{Xsp}+/utf
1072    > \x{09}\x{0a}\x{0c}\x{0d}\x{a0}\x{1680}\x{2028}\x{0b}
1073
1074/^>\p{Xsp}+?/utf
1075    >\x{1680}\x{2028}\x{0b}
1076
1077/^>\p{Xsp}*/utf
1078    > \x{09}\x{0a}\x{0c}\x{0d}\x{a0}\x{1680}\x{2028}\x{0b}
1079
1080/^>\p{Xsp}{2,9}/utf
1081    > \x{09}\x{0a}\x{0c}\x{0d}\x{a0}\x{1680}\x{2028}\x{0b}
1082
1083/^>\p{Xsp}{2,9}?/utf
1084    > \x{09}\x{0a}\x{0c}\x{0d}\x{a0}\x{1680}\x{2028}\x{0b}
1085
1086/^>[\p{Xsp}]/utf
1087    >\x{2028}\x{0b}
1088
1089/^>[\p{Xsp}]+/utf
1090    > \x{09}\x{0a}\x{0c}\x{0d}\x{a0}\x{1680}\x{2028}\x{0b}
1091
1092/^>\p{Xps}/utf
1093    >\x{1680}\x{2028}\x{0b}
1094    >\x{a0}
1095\= Expect no match
1096    \x{0b}
1097
1098/^>\p{Xps}+/utf
1099    > \x{09}\x{0a}\x{0c}\x{0d}\x{a0}\x{1680}\x{2028}\x{0b}
1100
1101/^>\p{Xps}+?/utf
1102    >\x{1680}\x{2028}\x{0b}
1103
1104/^>\p{Xps}*/utf
1105    > \x{09}\x{0a}\x{0c}\x{0d}\x{a0}\x{1680}\x{2028}\x{0b}
1106
1107/^>\p{Xps}{2,9}/utf
1108    > \x{09}\x{0a}\x{0c}\x{0d}\x{a0}\x{1680}\x{2028}\x{0b}
1109
1110/^>\p{Xps}{2,9}?/utf
1111    > \x{09}\x{0a}\x{0c}\x{0d}\x{a0}\x{1680}\x{2028}\x{0b}
1112
1113/^>[\p{Xps}]/utf
1114    >\x{2028}\x{0b}
1115
1116/^>[\p{Xps}]+/utf
1117    > \x{09}\x{0a}\x{0c}\x{0d}\x{a0}\x{1680}\x{2028}\x{0b}
1118
1119/^\p{Xwd}/utf
1120    ABCD
1121    1234
1122    \x{6ca}
1123    \x{a6c}
1124    \x{10a7}
1125    _ABC
1126\= Expect no match
1127    []
1128
1129/^\p{Xwd}+/utf
1130    ABCD1234\x{6ca}\x{a6c}\x{10a7}_
1131
1132/^\p{Xwd}+?/utf
1133    \x{6ca}\x{a6c}\x{10a7}_
1134
1135/^\p{Xwd}*/utf
1136    ABCD1234\x{6ca}\x{a6c}\x{10a7}_
1137
1138/^\p{Xwd}{2,9}/utf
1139    A_B12\x{6ca}\x{a6c}\x{10a7}
1140
1141/^\p{Xwd}{2,9}?/utf
1142    \x{6ca}\x{a6c}\x{10a7}_
1143
1144/^[\p{Xwd}]/utf
1145    ABCD1234_
1146    1234abcd_
1147    \x{6ca}
1148    \x{a6c}
1149    \x{10a7}
1150    _ABC
1151\= Expect no match
1152    []
1153
1154/^[\p{Xwd}]+/utf
1155    ABCD1234\x{6ca}\x{a6c}\x{10a7}_
1156
1157# A check not in UTF-8 mode
1158
1159/^[\p{Xwd}]+/
1160    ABCD1234_
1161
1162# Some negative checks
1163
1164/^[\P{Xwd}]+/utf
1165    !.+\x{019}\x{35a}AB
1166
1167/^[\p{^Xwd}]+/utf
1168    !.+\x{019}\x{35a}AB
1169
1170/[\D]/B,utf,ucp
1171    1\x{3c8}2
1172
1173/[\d]/B,utf,ucp
1174    >\x{6f4}<
1175
1176/[\S]/B,utf,ucp
1177    \x{1680}\x{6f4}\x{1680}
1178
1179/[\s]/B,utf,ucp
1180    >\x{1680}<
1181
1182/[\W]/B,utf,ucp
1183    A\x{1712}B
1184
1185/[\w]/B,utf,ucp
1186    >\x{1723}<
1187
1188/\D/B,utf,ucp
1189    1\x{3c8}2
1190
1191/\d/B,utf,ucp
1192    >\x{6f4}<
1193
1194/\S/B,utf,ucp
1195    \x{1680}\x{6f4}\x{1680}
1196
1197/\s/B,utf,ucp
1198    >\x{1680}>
1199
1200/\W/B,utf,ucp
1201    A\x{1712}B
1202
1203/\w/B,utf,ucp
1204    >\x{1723}<
1205
1206/[[:alpha:]]/B,ucp
1207
1208/[[:lower:]]/B,ucp
1209
1210/[[:upper:]]/B,ucp
1211
1212/[[:alnum:]]/B,ucp
1213
1214/[[:ascii:]]/B,ucp
1215
1216/[[:cntrl:]]/B,ucp
1217
1218/[[:digit:]]/B,ucp
1219
1220/[[:graph:]]/B,ucp
1221
1222/[[:print:]]/B,ucp
1223
1224/[[:punct:]]/B,ucp
1225
1226/[[:space:]]/B,ucp
1227
1228/[[:word:]]/B,ucp
1229
1230/[[:xdigit:]]/B,ucp
1231
1232# Unicode properties for \b abd \B
1233
1234/\b...\B/utf,ucp
1235    abc_
1236    \x{37e}abc\x{376}
1237    \x{37e}\x{376}\x{371}\x{393}\x{394}
1238    !\x{c0}++\x{c1}\x{c2}
1239    !\x{c0}+++++
1240
1241# Without PCRE_UCP, non-ASCII always fail, even if < 256
1242
1243/\b...\B/utf
1244    abc_
1245\= Expect no match
1246    \x{37e}abc\x{376}
1247    \x{37e}\x{376}\x{371}\x{393}\x{394}
1248    !\x{c0}++\x{c1}\x{c2}
1249    !\x{c0}+++++
1250
1251# With PCRE_UCP, non-UTF8 chars that are < 256 still check properties
1252
1253/\b...\B/ucp
1254    abc_
1255    !\x{c0}++\x{c1}\x{c2}
1256    !\x{c0}+++++
1257
1258# Some of these are silly, but they check various combinations
1259
1260/[[:^alpha:][:^cntrl:]]+/B,utf,ucp
1261    123
1262    abc
1263
1264/[[:^cntrl:][:^alpha:]]+/B,utf,ucp
1265    123
1266    abc
1267
1268/[[:alpha:]]+/B,utf,ucp
1269    abc
1270
1271/[[:^alpha:]\S]+/B,utf,ucp
1272    123
1273    abc
1274
1275/[^\d]+/B,utf,ucp
1276    abc123
1277    abc\x{123}
1278    \x{660}abc
1279
1280/\p{Lu}+9\p{Lu}+B\p{Lu}+b/B
1281
1282/\p{^Lu}+9\p{^Lu}+B\p{^Lu}+b/B
1283
1284/\P{Lu}+9\P{Lu}+B\P{Lu}+b/B
1285
1286/\p{Han}+X\p{Greek}+\x{370}/B,utf
1287
1288/\p{Xan}+!\p{Xan}+A/B
1289
1290/\p{Xsp}+!\p{Xsp}\t/B
1291
1292/\p{Xps}+!\p{Xps}\t/B
1293
1294/\p{Xwd}+!\p{Xwd}_/B
1295
1296/A+\p{N}A+\dB+\p{N}*B+\d*/B,ucp
1297
1298# These behaved oddly in Perl, so they are kept in this test
1299
1300/(\x{23a}\x{23a}\x{23a})?\1/i,utf
1301\= Expect no match
1302    \x{23a}\x{23a}\x{23a}\x{2c65}\x{2c65}
1303
1304/(ȺȺȺ)?\1/i,utf
1305\= Expect no match
1306    ȺȺȺⱥⱥ
1307
1308/(\x{23a}\x{23a}\x{23a})?\1/i,utf
1309    \x{23a}\x{23a}\x{23a}\x{2c65}\x{2c65}\x{2c65}
1310
1311/(ȺȺȺ)?\1/i,utf
1312    ȺȺȺⱥⱥⱥ
1313
1314/(\x{23a}\x{23a}\x{23a})\1/i,utf
1315\= Expect no match
1316    \x{23a}\x{23a}\x{23a}\x{2c65}\x{2c65}
1317
1318/(ȺȺȺ)\1/i,utf
1319\= Expect no match
1320    ȺȺȺⱥⱥ
1321
1322/(\x{23a}\x{23a}\x{23a})\1/i,utf
1323    \x{23a}\x{23a}\x{23a}\x{2c65}\x{2c65}\x{2c65}
1324
1325/(ȺȺȺ)\1/i,utf
1326    ȺȺȺⱥⱥⱥ
1327
1328/(\x{2c65}\x{2c65})\1/i,utf
1329    \x{2c65}\x{2c65}\x{23a}\x{23a}
1330
1331/(ⱥⱥ)\1/i,utf
1332    ⱥⱥȺȺ
1333
1334/(\x{23a}\x{23a}\x{23a})\1Y/i,utf
1335    X\x{23a}\x{23a}\x{23a}\x{2c65}\x{2c65}\x{2c65}YZ
1336
1337/(\x{2c65}\x{2c65})\1Y/i,utf
1338    X\x{2c65}\x{2c65}\x{23a}\x{23a}YZ
1339
1340# These scripts weren't yet in Perl when I added Unicode 6.0.0 to PCRE
1341
1342/^[\p{Batak}]/utf
1343    \x{1bc0}
1344    \x{1bff}
1345\= Expect no match
1346    \x{1bf4}
1347
1348/^[\p{Brahmi}]/utf
1349    \x{11000}
1350    \x{1106f}
1351\= Expect no match
1352    \x{1104e}
1353
1354/^[\p{Mandaic}]/utf
1355    \x{840}
1356    \x{85e}
1357\= Expect no match
1358    \x{85c}
1359    \x{85d}
1360
1361/(\X*)(.)/s,utf
1362    A\x{300}
1363
1364/^S(\X*)e(\X*)$/utf
1365    Stéréo
1366
1367/^\X/utf
1368    ́réo
1369
1370/^a\X41z/alt_bsux,allow_empty_class,match_unset_backref,dupnames
1371    aX41z
1372\= Expect no match
1373    aAz
1374
1375/\X/
1376    a\=ps
1377    a\=ph
1378
1379/\Xa/
1380    aa\=ps
1381    aa\=ph
1382
1383/\X{2}/
1384    aa\=ps
1385    aa\=ph
1386
1387/\X+a/
1388    a\=ps
1389    aa\=ps
1390    aa\=ph
1391
1392/\X+?a/
1393    a\=ps
1394    ab\=ps
1395    aa\=ps
1396    aa\=ph
1397    aba\=ps
1398
1399# These Unicode 6.1.0 scripts are not known to Perl.
1400
1401/\p{Chakma}\d/utf,ucp
1402    \x{11100}\x{1113c}
1403
1404/\p{Takri}\d/utf,ucp
1405    \x{11680}\x{116c0}
1406
1407/^\X/utf
1408    A\=ps
1409    A\=ph
1410    A\x{300}\x{301}\=ps
1411    A\x{300}\x{301}\=ph
1412    A\x{301}\=ps
1413    A\x{301}\=ph
1414
1415/^\X{2,3}/utf
1416    A\=ps
1417    A\=ph
1418    AA\=ps
1419    AA\=ph
1420    A\x{300}\x{301}\=ps
1421    A\x{300}\x{301}\=ph
1422    A\x{300}\x{301}A\x{300}\x{301}\=ps
1423    A\x{300}\x{301}A\x{300}\x{301}\=ph
1424
1425/^\X{2}/utf
1426    AA\=ps
1427    AA\=ph
1428    A\x{300}\x{301}A\x{300}\x{301}\=ps
1429    A\x{300}\x{301}A\x{300}\x{301}\=ph
1430
1431/^\X+/utf
1432    AA\=ps
1433    AA\=ph
1434
1435/^\X+?Z/utf
1436    AA\=ps
1437    AA\=ph
1438
1439/A\x{3a3}B/IBi,utf
1440
1441/[\x{3a3}]/Bi,utf
1442
1443/[^\x{3a3}]/Bi,utf
1444
1445/[\x{3a3}]+/Bi,utf
1446
1447/[^\x{3a3}]+/Bi,utf
1448
1449/a*\x{3a3}/Bi,utf
1450
1451/\x{3a3}+a/Bi,utf
1452
1453/\x{3a3}*\x{3c2}/Bi,utf
1454
1455/\x{3a3}{3}/i,utf,aftertext
1456    \x{3a3}\x{3c3}\x{3c2}\x{3a3}\x{3c3}\x{3c2}
1457
1458/\x{3a3}{2,4}/i,utf,aftertext
1459    \x{3a3}\x{3c3}\x{3c2}\x{3a3}\x{3c3}\x{3c2}
1460
1461/\x{3a3}{2,4}?/i,utf,aftertext
1462    \x{3a3}\x{3c3}\x{3c2}\x{3a3}\x{3c3}\x{3c2}
1463
1464/\x{3a3}+./i,utf,aftertext
1465    \x{3a3}\x{3c3}\x{3c2}\x{3a3}\x{3c3}\x{3c2}
1466
1467/\x{3a3}++./i,utf,aftertext
1468\= Expect no match
1469    \x{3a3}\x{3c3}\x{3c2}\x{3a3}\x{3c3}\x{3c2}
1470
1471/\x{3a3}*\x{3c2}/Bi,utf
1472
1473/[^\x{3a3}]*\x{3c2}/Bi,utf
1474
1475/[^a]*\x{3c2}/Bi,utf
1476
1477/ist/Bi,utf
1478\= Expect no match
1479    ikt
1480
1481/is+t/i,utf
1482    iSs\x{17f}t
1483\= Expect no match
1484    ikt
1485
1486/is+?t/i,utf
1487\= Expect no match
1488    ikt
1489
1490/is?t/i,utf
1491\= Expect no match
1492    ikt
1493
1494/is{2}t/i,utf
1495\= Expect no match
1496    iskt
1497
1498# This property is a PCRE special
1499
1500/^\p{Xuc}/utf
1501    $abc
1502    @abc
1503    `abc
1504    \x{1234}abc
1505\= Expect no match
1506    abc
1507
1508/^\p{Xuc}+/utf
1509    $@`\x{a0}\x{1234}\x{e000}**
1510\= Expect no match
1511    \x{9f}
1512
1513/^\p{Xuc}+?/utf
1514    $@`\x{a0}\x{1234}\x{e000}**
1515\= Expect no match
1516    \x{9f}
1517
1518/^\p{Xuc}+?\*/utf
1519    $@`\x{a0}\x{1234}\x{e000}**
1520\= Expect no match
1521    \x{9f}
1522
1523/^\p{Xuc}++/utf
1524    $@`\x{a0}\x{1234}\x{e000}**
1525\= Expect no match
1526    \x{9f}
1527
1528/^\p{Xuc}{3,5}/utf
1529    $@`\x{a0}\x{1234}\x{e000}**
1530\= Expect no match
1531    \x{9f}
1532
1533/^\p{Xuc}{3,5}?/utf
1534    $@`\x{a0}\x{1234}\x{e000}**
1535\= Expect no match
1536    \x{9f}
1537
1538/^[\p{Xuc}]/utf
1539    $@`\x{a0}\x{1234}\x{e000}**
1540\= Expect no match
1541    \x{9f}
1542
1543/^[\p{Xuc}]+/utf
1544    $@`\x{a0}\x{1234}\x{e000}**
1545\= Expect no match
1546    \x{9f}
1547
1548/^\P{Xuc}/utf
1549    abc
1550\= Expect no match
1551    $abc
1552    @abc
1553    `abc
1554    \x{1234}abc
1555
1556/^[\P{Xuc}]/utf
1557    abc
1558\= Expect no match
1559    $abc
1560    @abc
1561    `abc
1562    \x{1234}abc
1563
1564# Some auto-possessification tests
1565
1566/\pN+\z/B
1567
1568/\PN+\z/B
1569
1570/\pN+/B
1571
1572/\PN+/B
1573
1574/\p{Any}+\p{Any} \p{Any}+\P{Any} \p{Any}+\p{L&} \p{Any}+\p{L} \p{Any}+\p{Lu} \p{Any}+\p{Han} \p{Any}+\p{Xan} \p{Any}+\p{Xsp} \p{Any}+\p{Xps} \p{Xwd}+\p{Any} \p{Any}+\p{Xuc}/Bx,ucp
1575
1576/\p{L&}+\p{Any} \p{L&}+\p{L&} \P{L&}+\p{L&} \p{L&}+\p{L} \p{L&}+\p{Lu} \p{L&}+\p{Han} \p{L&}+\p{Xan} \p{L&}+\P{Xan} \p{L&}+\p{Xsp} \p{L&}+\p{Xps} \p{Xwd}+\p{L&} \p{L&}+\p{Xuc}/Bx,ucp
1577
1578/\p{N}+\p{Any} \p{N}+\p{L&} \p{N}+\p{L} \p{N}+\P{L} \p{N}+\P{N} \p{N}+\p{Lu} \p{N}+\p{Han} \p{N}+\p{Xan} \p{N}+\p{Xsp} \p{N}+\p{Xps} \p{Xwd}+\p{N} \p{N}+\p{Xuc}/Bx,ucp
1579
1580/\p{Lu}+\p{Any} \p{Lu}+\p{L&} \p{Lu}+\p{L} \p{Lu}+\p{Lu} \P{Lu}+\p{Lu} \p{Lu}+\p{Nd} \p{Lu}+\P{Nd} \p{Lu}+\p{Han} \p{Lu}+\p{Xan} \p{Lu}+\p{Xsp} \p{Lu}+\p{Xps} \p{Xwd}+\p{Lu} \p{Lu}+\p{Xuc}/Bx,ucp
1581
1582/\p{Han}+\p{Lu} \p{Han}+\p{L&} \p{Han}+\p{L} \p{Han}+\p{Lu} \p{Han}+\p{Arabic} \p{Arabic}+\p{Arabic} \p{Han}+\p{Xan} \p{Han}+\p{Xsp} \p{Han}+\p{Xps} \p{Xwd}+\p{Han} \p{Han}+\p{Xuc}/Bx,ucp
1583
1584/\p{Xan}+\p{Any} \p{Xan}+\p{L&} \P{Xan}+\p{L&} \p{Xan}+\p{L} \p{Xan}+\p{Lu} \p{Xan}+\p{Han} \p{Xan}+\p{Xan} \p{Xan}+\P{Xan} \p{Xan}+\p{Xsp} \p{Xan}+\p{Xps} \p{Xwd}+\p{Xan} \p{Xan}+\p{Xuc}/Bx,ucp
1585
1586/\p{Xsp}+\p{Any} \p{Xsp}+\p{L&} \p{Xsp}+\p{L} \p{Xsp}+\p{Lu} \p{Xsp}+\p{Han} \p{Xsp}+\p{Xan} \p{Xsp}+\p{Xsp} \P{Xsp}+\p{Xsp} \p{Xsp}+\p{Xps} \p{Xwd}+\p{Xsp} \p{Xsp}+\p{Xuc}/Bx,ucp
1587
1588/\p{Xwd}+\p{Any} \p{Xwd}+\p{L&} \p{Xwd}+\p{L} \p{Xwd}+\p{Lu} \p{Xwd}+\p{Han} \p{Xwd}+\p{Xan} \p{Xwd}+\p{Xsp} \p{Xwd}+\p{Xps} \p{Xwd}+\p{Xwd} \p{Xwd}+\P{Xwd} \p{Xwd}+\p{Xuc}/Bx,ucp
1589
1590/\p{Xuc}+\p{Any} \p{Xuc}+\p{L&} \p{Xuc}+\p{L} \p{Xuc}+\p{Lu} \p{Xuc}+\p{Han} \p{Xuc}+\p{Xan} \p{Xuc}+\p{Xsp} \p{Xuc}+\p{Xps} \p{Xwd}+\p{Xuc} \p{Xuc}+\p{Xuc} \p{Xuc}+\P{Xuc}/Bx,ucp
1591
1592/\p{N}+\p{Ll} \p{N}+\p{Nd} \p{N}+\P{Nd}/Bx,ucp
1593
1594/\p{Xan}+\p{L} \p{Xan}+\p{N} \p{Xan}+\p{C} \p{Xan}+\P{L} \P{Xan}+\p{N} \p{Xan}+\P{C}/Bx,ucp
1595
1596/\p{L}+\p{Xan} \p{N}+\p{Xan} \p{C}+\p{Xan} \P{L}+\p{Xan} \p{N}+\p{Xan} \P{C}+\p{Xan} \p{L}+\P{Xan}/Bx,ucp
1597
1598/\p{Xan}+\p{Lu} \p{Xan}+\p{Nd} \p{Xan}+\p{Cc} \p{Xan}+\P{Ll} \P{Xan}+\p{No} \p{Xan}+\P{Cf}/Bx,ucp
1599
1600/\p{Lu}+\p{Xan} \p{Nd}+\p{Xan} \p{Cs}+\p{Xan} \P{Lt}+\p{Xan} \p{Nl}+\p{Xan} \P{Cc}+\p{Xan} \p{Lt}+\P{Xan}/Bx,ucp
1601
1602/\w+\p{P} \w+\p{Po} \w+\s \p{Xan}+\s \s+\p{Xan} \s+\w/Bx,ucp
1603
1604/\w+\P{P} \W+\p{Po} \w+\S \P{Xan}+\s \s+\P{Xan} \s+\W/Bx,ucp
1605
1606/\w+\p{Po} \w+\p{Pc} \W+\p{Po} \W+\p{Pc} \w+\P{Po} \w+\P{Pc}/Bx,ucp
1607
1608/\p{Nl}+\p{Xan} \P{Nl}+\p{Xan} \p{Nl}+\P{Xan} \P{Nl}+\P{Xan}/Bx,ucp
1609
1610/\p{Xan}+\p{Nl} \P{Xan}+\p{Nl} \p{Xan}+\P{Nl} \P{Xan}+\P{Nl}/Bx,ucp
1611
1612/\p{Xan}+\p{Nd} \P{Xan}+\p{Nd} \p{Xan}+\P{Nd} \P{Xan}+\P{Nd}/Bx,ucp
1613
1614# End auto-possessification tests
1615
1616/\w+/B,utf,ucp,auto_callout
1617    abcd
1618
1619/[\p{N}]?+/B,no_auto_possess
1620
1621/[\p{L}ab]{2,3}+/B,no_auto_possess
1622
1623/\D+\X \d+\X \S+\X \s+\X \W+\X \w+\X \R+\X \H+\X \h+\X \V+\X \v+\X a+\X \n+\X .+\X/Bx
1624
1625/.+\X/Bsx
1626
1627/\X+$/Bmx
1628
1629/\X+\D \X+\d \X+\S \X+\s \X+\W \X+\w \X+. \X+\R \X+\H \X+\h \X+\V \X+\v \X+\X \X+\Z \X+\z \X+$/Bx
1630
1631/\d+\s{0,5}=\s*\S?=\w{0,4}\W*/B,utf,ucp
1632
1633/[RST]+/Bi,utf,ucp
1634
1635/[R-T]+/Bi,utf,ucp
1636
1637/[Q-U]+/Bi,utf,ucp
1638
1639/^s?c/Iim,utf
1640    scat
1641
1642/\X?abc/utf,no_start_optimize
1643    \xff\x7f\x00\x00\x03\x00\x41\xcc\x80\x41\x{300}\x61\x62\x63\x00\=no_utf_check,offset=06
1644
1645/\x{100}\x{200}\K\x{300}/utf,startchar
1646    \x{100}\x{200}\x{300}
1647
1648# Test UTF characters in a substitution
1649
1650bc/utf,replace=XሴZ
1651    123ábc123
1652
1653/(?<=abc)(|def)/g,utf,replace=<$0>
1654    123abcáyzabcdef789abcሴqr
1655
1656/[A-`]/iB,utf
1657    abcdefghijklmno
1658
1659/(?<=\K\x{17f})/g,utf,aftertext
1660    \x{17f}\x{17f}\x{17f}\x{17f}\x{17f}
1661
1662/(?<=\K\x{17f})/altglobal,utf,aftertext
1663    \x{17f}\x{17f}\x{17f}\x{17f}\x{17f}
1664
1665"\xa\xf<(.\pZ*\P{Xwd}+^\xa8\3'3yq.::?(?J:()\xd1+!~:3'(8?:)':(?'d'(?'d'^u]!.+.+\\A\Ah(n+?9){7}+\K;(?'X'u'(?'c'(?'z'(?<y>\xb::\xf0'|\xd3(\xae?'w(z\x8?P>l)\x8?P>a)'\H\R\xd1+!!~:3'(?:h$N{26875}\W+?\\=D{2}\x89(?i:Uy0\N({2\xa(\v\x85*){y*\A(()\p{L}+?\P{^Xan}'+?\xff\+pS\?|).{;y*\A(()\p{L}+?\8}\d?1(|)(/1){7}.+[Lp{Me}].\s\xdcC*?(?(<y>))(?<!^)$C((;*?(R))+(\xbf(R))\x8a\X*?\x8a\xb\xd1^9\3*+(\xc1,\k'R'\xb4)\xcc(z\z(?J)(?'X'\x1b(\xb\xd1^9\?'3*+P{^Xan}+?\xff\+(\xc1.]k+\xb'Pm'\xb4)\xcc4f\xa7'\xd1V(?i:U,{2,2})'(?'X'))?-%--\x95$9*\4'|\xd1(\x9c''%\x94$9)#(?'R')3\x7?('P\xed7'\xa8\xb1^u\xeaw\1\0\0\(|(?1){7}.+[\p{Me}].\s\xdcC*^\x14?(?(<y>))(?<!^)$C((;*?(R*?))+(?(R)\x8a\X*?\x8a\xb\xd1^9\3*+|(\xc1,\k'R'\xb4)\xcc! z)\z(?JJ)(?'X';(\xb\xd1^9\?'3*+(\xc1.]k+\xb'Pm'\xb4))':(?'d')(?'RD'(d')|)|$)'|(?<x>\g{d});\g{x}\x11\g{d}\x81\|$((?'X'\'X'(?'W''\x92()'9'\x83*))\xba*\!?^ <){)':;\xcc4'\xd1'(?'X'28))?-%--\x95$9*\4'|\xd1((''e\x94*$9:)*#(?'R')3)\x7?('P\xed')\\x16:;()\x1e\x10*:(?<y>)\xd1+0!~:(?)'d'E:yD!\s(?'R'\x1e;\x10:U))|'\x9g!\xb0*){)\\x16:;()\x1e\x10\x87*:(?<y>)\xd1+!~:(?)'}'\d'E:yD!\s(?'R'\x1e;\x10:U))|'))|)g!\xb0*R+9{29+)#(?'P'})*?pS\{3,}\x85,{0,}l{*UTF)(\xe{7}){3722,{9,}d{2,?|))|{)\(A?&d}}{\xa,}2}){3,}7,l{)22}(,}l:7{2,4}}29\x19+)#?'P'})*v?))\x5"
1666
1667/$(&.+[\p{Me}].\s\xdcC*?(?(<y>))(?<!^)$C((;*?(R))+(?(R)){0,6}?|){12\x8a\X*?\x8a\x0b\xd1^9\3*+(\xc1,\k'P'\xb4)\xcc(z\z(?JJ)(?'X'8};(\x0b\xd1^9\?'3*+(\xc1.]k+\x0b'Pm'\xb4\xcc4'\xd1'(?'X'))?-%--\x95$9*\4'|\xd1(''%\x95*$9)#(?'R')3\x07?('P\xed')\\x16:;()\x1e\x10*:(?<y>)\xd1+!~:(?)''(d'E:yD!\s(?'R'\x1e;\x10:U))|')g!\xb0*){29+))#(?'P'})*?/
1668
1669"(*UTF)(*UCP)(.UTF).+X(\V+;\^(\D|)!999}(?(?C{7(?C')\H*\S*/^\x5\xa\\xd3\x85n?(;\D*(?m).[^mH+((*UCP)(*U:F)})(?!^)(?'"
1670
1671/[\pS#moq]/
1672    =
1673
1674/(*:a\x{12345}b\t(d\)c)xxx/utf,alt_verbnames,mark
1675    cxxxz
1676
1677/abcd/utf,replace=x\x{824}y\o{3333}z(\Q12\$34$$\x34\E5$$),substitute_extended
1678    abcd
1679
1680/a(\x{e0}\x{101})(\x{c0}\x{102})/utf,replace=a\u$1\U$1\E$1\l$2\L$2\Eab\U\x{e0}\x{101}\L\x{d0}\x{160}\EDone,substitute_extended
1681    a\x{e0}\x{101}\x{c0}\x{102}
1682
1683/((?<digit>\d)|(?<letter>\p{L}))/g,substitute_extended,replace=<${digit:+digit; :not digit; }${letter:+letter:not a letter}>
1684    ab12cde
1685
1686/(*UCP)(*UTF)[[:>:]]X/B
1687
1688/abc/utf,replace=xyz
1689    abc\=zero_terminate
1690
1691/a[[:punct:]b]/ucp,bincode
1692
1693/a[[:punct:]b]/utf,ucp,bincode
1694
1695/a[b[:punct:]]/utf,ucp,bincode
1696
1697/[[:^ascii:]]/utf,ucp,bincode
1698
1699/[[:^ascii:]\w]/utf,ucp,bincode
1700
1701/[\w[:^ascii:]]/utf,ucp,bincode
1702
1703/[^[:ascii:]\W]/utf,ucp,bincode
1704    \x{de}
1705    \x{200}
1706\= Expect no match
1707    \x{300}
1708    \x{37e}
1709
1710/[[:^ascii:]a]/utf,ucp,bincode
1711
1712/L(?#(|++<!(2)?/B,utf,no_auto_possess,auto_callout
1713
1714/L(?#(|++<!(2)?/B,utf,ucp,auto_callout
1715
1716/(*UTF)C\x09((?<!'(?x)!*H? #\xcc\x9a[^$]/
1717
1718/[\D]/utf
1719    \x{1d7cf}
1720
1721/[\D\P{Nd}]/utf
1722    \x{1d7cf}
1723
1724/[^\D]/utf
1725    a9b
1726\= Expect no match
1727    \x{1d7cf}
1728
1729/[^\D\P{Nd}]/utf
1730    a9b
1731    \x{1d7cf}
1732\= Expect no match
1733    \x{10000}
1734
1735# Hex uses pattern length, not zero-terminated. This tests for overrunning
1736# the given length of a pattern.
1737
1738/'(*UTF)'/hex
1739
1740/'#('/hex,extended,utf
1741
1742/a(?<=A\XB)/utf
1743
1744/ab(?<=A\RB)/utf
1745
1746/../utf,auto_callout
1747    \n\x{123}\x{123}\x{123}\x{123}
1748
1749# This tests processing wide characters in extended mode.
1750
1751/XȀ/x,utf
1752
1753# These three test a bug fix that was not clearing up after a locale setting
1754# when the test or a subsequent one matched a wide character.
1755
1756//locale=C
1757
1758/[\P{Yi}]/utf
1759\x{2f000}
1760
1761/[\P{Yi}]/utf,locale=C
1762\x{2f000}
1763
1764/^(?<!(?=��))/B,utf
1765
1766# Horizontal and vertical space lists ignore caseless
1767
1768/[\HH]/Bi,utf
1769
1770/[^\HH]/Bi,utf
1771
1772//g,utf
1773    \=zero_terminate
1774
1775/^(?1)\p{Nd}{3}(a)/
1776    a123a
1777
1778/\p{Nd}{0,3}[\pL](*:abc)(?C1)xxx/callout_info
1779
1780# ---------------------------------------------------------------------------
1781
1782# A bunch of tests that hit lines of code that others do not (at least when
1783# these were created).
1784
1785/^[^a]{3,}?x/i,utf,no_start_optimize,no_auto_possess
1786\= Expect no match
1787    bbb
1788    cc
1789
1790/^[ac]{3,}?x/i,utf,no_start_optimize,no_auto_possess
1791\= Expect no match
1792    aaa\x{100}
1793
1794/^X\X/no_start_optimize,no_auto_possess
1795\= Expect no match
1796    X
1797
1798/^X\p{L&}+?/no_start_optimize,no_auto_possess
1799\= Expect no match
1800    X
1801
1802/^X\p{L}+?/no_start_optimize,no_auto_possess
1803\= Expect no match
1804    X
1805
1806/^X\p{Lu}+?/no_start_optimize,no_auto_possess
1807\= Expect no match
1808    X
1809
1810/^X\p{Arabic}+?/no_start_optimize,no_auto_possess
1811\= Expect no match
1812    X
1813
1814/^X\p{Xan}+?/ucp,no_start_optimize,no_auto_possess
1815\= Expect no match
1816    X
1817
1818/^X\s+?/ucp,no_start_optimize,no_auto_possess
1819\= Expect no match
1820    X
1821    XX
1822
1823/^X\S+?/ucp,no_start_optimize,no_auto_possess
1824    XX
1825\= Expect no match
1826    X
1827
1828/^X\w+?/ucp,no_start_optimize,no_auto_possess
1829\= Expect no match
1830    X
1831
1832/^X[^\x{b5}]+?/i,utf,no_start_optimize,no_auto_possess
1833\= Expect no match
1834    X
1835
1836/^X[\x{b5}]+?/i,utf,no_start_optimize,no_auto_possess
1837\= Expect no match
1838    X
1839
1840/^X\p{Xuc}+?/utf,no_start_optimize,no_auto_possess
1841\= Expect no match
1842    X
1843
1844/^X.+?Z/s,utf,no_start_optimize,no_auto_possess
1845\= Expect no match
1846    X
1847
1848/^X\R+?/utf,no_start_optimize,no_auto_possess
1849\= Expect no match
1850    X
1851
1852/^X\H+?/utf,no_start_optimize,no_auto_possess
1853\= Expect no match
1854    X
1855
1856/^X\V+?/utf,no_start_optimize,no_auto_possess
1857\= Expect no match
1858    X
1859
1860/^X\s+?/utf,no_start_optimize,no_auto_possess
1861\= Expect no match
1862    X
1863    XX
1864
1865/^X\S+?/utf,no_start_optimize,no_auto_possess
1866\= Expect no match
1867    X
1868
1869/^X\p{Any}{1,3}?Z/s,no_start_optimize,no_auto_possess
1870    XYYYZ
1871\= Expect no match
1872    XY
1873    XYY
1874    XYYY
1875    XYYYYZ
1876
1877/^X\p{L&}{1,3}?Z/s,no_start_optimize,no_auto_possess
1878\= Expect no match
1879    XY
1880    XY!
1881
1882/^X\p{L}{1,3}?Z/s,no_start_optimize,no_auto_possess
1883\= Expect no match
1884    XY
1885    XY!
1886
1887/^X\p{Lu}{1,3}?Z/s,no_start_optimize,no_auto_possess
1888\= Expect no match
1889    XY
1890    XY!
1891
1892/^X\P{Han}{1,3}?Z/s,utf,no_start_optimize,no_auto_possess
1893\= Expect no match
1894    XY
1895    XY!
1896    XY\x{2f00}!
1897
1898/^X\p{Xan}{1,3}?Z/s,no_start_optimize,no_auto_possess
1899\= Expect no match
1900    XY
1901    XY!
1902
1903/^X\p{Xsp}{1,3}?Z/s,no_start_optimize,no_auto_possess
1904\= Expect no match
1905    X\n
1906    X\n!
1907    X\n\n!
1908
1909/^X\P{Xsp}{1,3}?Z/s,no_start_optimize,no_auto_possess
1910\= Expect no match
1911    XYY\n
1912
1913/^X\p{Xwd}{1,3}?Z/s,no_start_optimize,no_auto_possess
1914\= Expect no match
1915    XY
1916    XY!
1917    XYY!
1918
1919/^X\x{b5}+?Z/i,utf,no_start_optimize,no_auto_possess
1920\= Expect no match
1921    X
1922    X\x{b5}
1923    X\x{b5}\x{b5}Y
1924
1925/^X\p{Xuc}+?Z/utf,no_start_optimize,no_auto_possess
1926\= Expect no match
1927    X
1928    X$
1929    X@@Y
1930
1931/(*CRLF)^X.+?Z/utf,no_start_optimize,no_auto_possess
1932\= Expect partial match
1933    XYY\r\=ph
1934\= Expect no match
1935    X
1936
1937/^X.+?Z/s,utf,no_start_optimize,no_auto_possess
1938\= Expect no match
1939    X
1940    XYY
1941
1942/^X\R+?Z/utf,no_start_optimize,no_auto_possess
1943\= Expect no match
1944    X\nX
1945    X\n\rX
1946    X\n\r\nX
1947    X\n\n
1948    X\n\x{0c}
1949
1950/(*BSR_ANYCRLF)^X\R+?Z/utf,no_start_optimize,no_auto_possess
1951\= Expect no match
1952    X\nX
1953    X\n\rX
1954    X\n\r\nX
1955    X\n\n
1956    X\n\x{0c}
1957
1958/^X\H+?Z/utf,no_start_optimize,no_auto_possess
1959\= Expect no match
1960    XY\t
1961    XYY
1962
1963/^X\h+?Z/utf,no_start_optimize,no_auto_possess
1964\= Expect no match
1965    X\t\t
1966    X\tY
1967
1968/^X\V+?Z/utf,no_start_optimize,no_auto_possess
1969\= Expect no match
1970    XY\n
1971    XYY
1972
1973/^X\v+?Z/utf,no_start_optimize,no_auto_possess
1974\= Expect no match
1975    X\n\n
1976    X\nY
1977
1978/^X\D+?Z/utf,no_start_optimize,no_auto_possess
1979\= Expect no match
1980    XY9
1981    XYY
1982
1983/^X\d+?Z/utf,no_start_optimize,no_auto_possess
1984\= Expect no match
1985    X99
1986    X9Y
1987
1988/^X\S+?Z/utf,no_start_optimize,no_auto_possess
1989\= Expect no match
1990    XY\n
1991    XYY
1992
1993/^X\s+?Z/utf,no_start_optimize,no_auto_possess
1994\= Expect no match
1995    X\n\n
1996    X\nY
1997
1998/^X\W+?Z/utf,no_start_optimize,no_auto_possess
1999\= Expect no match
2000    X.A
2001    X++
2002
2003/^X\p{L&}{1,3}Z/no_start_optimize,no_auto_possess
2004\= Expect no match
2005    XY
2006    XY!
2007
2008/^X\p{L}{1,3}Z/no_start_optimize,no_auto_possess
2009\= Expect no match
2010    XY
2011
2012/^X\p{Xan}{1,3}Z/no_start_optimize,no_auto_possess
2013\= Expect no match
2014    XY
2015
2016/^X\P{Xsp}{1,3}Z/no_start_optimize,no_auto_possess
2017\= Expect no match
2018    XYY
2019
2020/^X\p{Xuc}+Z/utf,no_start_optimize,no_auto_possess
2021\= Expect no match
2022    X$
2023
2024# ----------------------------------------------------------------------
2025# These test the dangerous PCRE2_EXTRA_BAD_ESCAPE_IS_LITERAL option.
2026
2027/\x{d800}/B,utf,bad_escape_is_literal
2028
2029/\ud800/B,utf,alt_bsux,bad_escape_is_literal
2030
2031# ----------------------------------------------------------------------
2032
2033/Aሴ+B/literal,utf,no_utf_check
2034    Aሴ+B
2035
2036# These are here because I upgraded to Unicode 10.0.0 before Perl did, so it
2037# doesn't recognize all these scripts. In time these three tests can be moved
2038# to test 4.
2039
2040/^(\p{Adlam}+)(\p{Bhaiksuki}+)(\p{Marchen}+)(\p{Newa}+)(\p{Osage}+)
2041  (\p{Tangut}+)(\p{Masaram_Gondi}+)(\p{Nushu}+)(\p{Soyombo}+)
2042  (\p{Zanabazar_Square}+)/x,utf
2043    \x{1E900}\x{1E924}\x{1E953}\x{11C00}\x{11C2D}\x{11C3E}\x{11C70}\x{11C77}\x{11CAB}\x{11400}\x{1142F}\x{11455}\x{104B0}\x{104D8}\x{104FB}\x{16FE0}\x{18800}\x{18AF2}\x{11D00}\x{11D3A}\x{11D59}\x{16FE1}\x{1B170}\x{1B2FB}\x{11A50}\x{11A58}\x{11AA2}\x{11A00}\x{11A07}\x{11A47}
2044
2045/^\x{1E900}\x{104B0}/i,utf
2046    \x{1E900}\x{104B0}
2047    \x{1E922}\x{104D8}
2048
2049/^(?:(\X)(?C))+$/utf
2050    \x{1E900}\x{1E924}\x{1E953}\x{11C00}\x{11C2D}\x{11C3E}\x{11C70}\x{11C77}\x{11CAB}\x{11400}\x{1142F}\x{11455}\x{104B0}\x{104D8}\x{104FB}\x{16FE0}\x{18800}\x{18AF2}\x{11D00}\x{11D3A}\x{11D59}\x{16FE1}\x{1B170}\x{1B2FB}\x{11A50}\x{11A58}\x{11AA2}\x{11A00}\x{11A07}\x{11A47}\=callout_capture,callout_no_where
2051
2052# Similarly for Unicode 11.0.0
2053
2054/^(\p{Dogra}+)(\p{Gunjala_Gondi}+)(\p{Hanifi_Rohingya}+)(\p{Makasar}+)
2055  (\p{Medefaidrin}+)(\p{Old_Sogdian}+)(\p{Sogdian}+)/x,utf
2056    \x{11800}\x{11da9}\x{10d27}\x{11ee0}\x{16e48}\x{10f27}\x{10f30}
2057
2058# These two are here because of differences from Perl.
2059
2060/^\X/utf
2061    A\x{200d}B                     A ZWJ
2062    \x{261d}\x{261d}B              Extended_Pictographic Extended_Pictographic
2063    \x{261D}\x{1F3FB}B             Extended_Pictographic Extend
2064    \x{1F1E6}\x{1F1E7}B            RegionalIndicator RegionalIndicator
2065    \x{261D}\x{1F3FB}\x{261d}B     Extended_Pictographic Extend E-P
2066    \x{261D}\x{1F3FB}\x{200d}\x{261d}B     Extended_Pictographic Extend ZWJ E-P
2067
2068# Regional indicators
2069
2070/^(\X)(\X)/utf,aftertext
2071    \x{1F1E6}\x{1F1E7}\x{1F1E7}B
2072    \x{1F1E6}\x{1F1E7}\x{1F1E7}\x{1F1E6}B
2073
2074# More differences from Perl
2075
2076/^[\p{Arabic}]/utf
2077\= Expect no match
2078    \x{650}
2079    \x{651}
2080    \x{652}
2081    \x{653}
2082    \x{654}
2083    \x{655}
2084
2085/^\p{Common}/utf
2086    \x{60c}
2087    \x{61f}
2088    \x{964}
2089    \x{965}
2090
2091/^\p{Inherited}/utf
2092    \x{64b}
2093    \x{654}
2094    \x{655}
2095    \x{1D1AA}
2096
2097/\N{U+}/
2098
2099/\N{U+}/utf
2100
2101/\N{U}/
2102
2103# This tests the non-UTF Unicode NEL pattern whitespace character, only
2104# recognized by PCRE2 with /x when there is Unicode support.
2105
2106/A
2107
2108�B/x
2109    AB
2110
2111# This tests Unicode Pattern White Space characters in verb names when they
2112# are being processed with PCRE2_EXTENDED. Note: there are UTF-8 characters
2113# with code points greater than 255 between A, B, and C in the pattern.
2114
2115/(*: A‎B
C)abc/x,utf,mark,alt_verbnames
2116    abc
2117
2118# Script run tests: auto-possessification
2119
2120/^(*sr:.*)/B,utf
2121    paypаl.com   A classic example of why script run checks are a good thing
2122
2123/^(*sr:.*(*ACCEPT))/utf
2124    paypаl.com   But *ACCEPT breaks things
2125
2126/^(*sr:\x{2e80}*)/B,utf
2127
2128/^(*sr:\x{2e80}*)\x{2e80}/B,utf
2129
2130/(?<!)(*sr:)/B
2131
2132/(?<=abc(?=X(*sr:BXY)CCC)XBXYCCC)./B
2133   abcXBXYCCC!
2134
2135# Some script run patterns are broken in Perl 5.28.0. These can be moved into
2136# test 4 when a mended version of Perl is released.
2137
2138/^(*sr:.{4})/utf
2139    \x{0980}12\x{0993}     Bengali Common-digits Bengali
2140    \x{0780}12\x{07b1}     Thaana Common-digits Thaana
2141    \x{0e01}12\x{0e5b}     Thai Common-digits Thai
2142    \x{1780}12\x{19ff}     Khmer Common-digits Khmer
2143    \x{0904}12\x{0939}     Devanagari Common-digits Devanagari
2144    A\x{ff10}\x{ff19}B     Latin Common-notascii-digits Latin
2145    A\x{1d7ce}\x{1d7cf}B   Latin fancy-common-digits Latin
2146
2147# These ones involve non-ASCII but nevertheless Common digits. As of October
2148# 2018 even blead Perl wasn't handling all of these - but is going to.
2149
2150/^(*sr:.{4})/utf
2151    A\x{ff10}\x{ff19}B     Latin Common-notascii-digits Latin
2152    \x{ff10}\x{ff19}..     Common-notascii-digits Common Common
2153    A\x{ff10}BC            Latin Common-notascii-digit Latin Latin
2154    A\x{1d7ce}\x{1d7cf}B   Latin fancy-common-digits Latin
2155    \x{1d7ce}\x{1d7cf},,   fancy-common-digits Common Common
2156    A\x{1d7ce}BC           Latin fancy-common-digit Latin Latin
2157
2158# Some Unicode 12.1.0 new script characters
2159
2160/\p{Elymaic}\p{Nandinagari}\p{Nyiakeng_Puachue_Hmong}\p{Wancho}/utf
2161    \x{10fe5}\x{119AC}\x{1E10E}\x{1E2D1}
2162
2163# Some Unicode 13.0.0 new script characters
2164
2165/\p{Chorasmian}\p{Dives_Akuru}\p{Khitan_Small_Script}\p{Yezidi}/utf
2166    \x{10FB0}\x{11900}\x{18B00}\x{10E80}
2167
2168# -------
2169
2170# Test reference and errors in non-ASCII characters in group names
2171
2172/(?'��ABC'...)/I,utf
2173   abcde\=copy=��ABC
2174
2175# Bad ones
2176
2177/(?'AB၌C'...)\g{AB၌C}/utf
2178
2179/(?'٠ABC'...)/utf
2180
2181/(?'²ABC'...)/utf
2182
2183/(?'X²ABC'...)/utf
2184
2185# -------
2186
2187/\p{Any}*xyz/I
2188
2189/(|�)7/caseless,ucp
2190
2191/(\xc1)\1/i,ucp
2192    \xc1\xe1\=no_jit
2193
2194# End of testinput5
2195