1 /-- This set of tests checks the API, internals, and non-Perl stuff for UTF-8
2 support, excluding Unicode properties. --/
33 /\x{0041}\x{2262}\x{0391}\x{002e}/DZ8
34 \x{0041}\x{2262}\x{0391}\x{002e}
36 /\x{D55c}\x{ad6d}\x{C5B4}/DZ8
37 \x{D55c}\x{ad6d}\x{C5B4}
39 /\x{65e5}\x{672c}\x{8a9e}/DZ8
40 \x{65e5}\x{672c}\x{8a9e}
53 \x{212ab}\x{212ab}\x{212ab}\x{861}X
57 \x{212ab}\x{212ab}\x{212ab}\x{861}
60 Should produce an error diagnostic
62 /-- This one is here not because it's different to Perl, but because the way
63 the captured single-byte is displayed. (In Perl it becomes a character, and you
64 can't tell the difference.) --/
70 /-- This one is here because Perl gives out a grumbly error message (quite
71 correctly, but that messes up comparisons). --/
101 \x{100}\x{100}\x{100}\x{100\x{100}
107 /(\x{100}{0,2}a|x)/8SDZ
109 /(\x{100}{1,2}a|x)/8SDZ
111 /\x{100}*(\d+|"(?1)")/8
129 /a\x{100}\x{101}*/8DZ
131 /a\x{100}\x{101}+/8DZ
180 Ö # Matches without Study
184 Ö <-- Same with Study
188 Ö # Matches without Study
192 Ö <-- Same with Study
218 \xfc\x83\x80\x80\x80\x80
219 \xfe\x80\x80\x80\x80\x80
220 \xff\x80\x80\x80\x80\x80
228 \xfc\x84\x80\x80\x80\x80
229 \xfd\x83\x80\x80\x80\x80
230 \?\xf8\x88\x80\x80\x80
231 \?\xf9\x87\x80\x80\x80
232 \?\xfc\x84\x80\x80\x80\x80
233 \?\xfd\x83\x80\x80\x80\x80
235 /\x{100}abc(xyz(?1))/8DZ
237 /[^\x{100}]abc(xyz(?1))/8DZ
239 /[ab\x{100}]abc(xyz(?1))/8DZ
241 /(\x{100}(b(?2)c))?/DZ8
243 /(\x{100}(b(?2)c)){0,2}/DZ8
245 /(\x{100}(b(?1)c))?/DZ8
247 /(\x{100}(b(?1)c)){0,2}/DZ8
285 /()()()()()()()()()()
292 /^[\x{100}\E-\Q\E\x{150}]/BZ8
299 abc1 \x0aabc2 \x0babc3xx \x0cabc4 \x0dabc5xx \x0d\x0aabc6 \x{0085}abc7 \x{2028}abc8 \x{2029}abc9 JUNK
302 abc1\x0a abc2\x0b abc3\x0c abc4\x0d abc5\x0d\x0a abc6\x{0085} abc7\x{2028} abc8\x{2029} abc9
304 /^a\Rb/8<bsr_unicode>
316 /^a\R*b/8<bsr_unicode>
322 a\x0c\x{2028}\x{2029}b
327 /^a\R+b/8<bsr_unicode>
332 a\x0c\x{2028}\x{2029}b
339 /^a\R{1,3}b/8<bsr_unicode>
358 \x09\x20\x{a0}X\x0a\x0b\x0c\x0d\x0a
359 \x09\x20\x{a0}\x0a\x0b\x0c\x0d\x0a
360 \x09\x20\x{a0}\x0a\x0b\x0c
362 \x09\x20\x{a0}\x0a\x0b
365 \x{3001}\x{3000}\x{2030}\x{2028}
371 \x{1680}\x{180e}\x{2007}X\x{2028}\x{2029}\x0c\x0d\x0a
372 \x09\x{205f}\x{a0}\x0a\x{2029}\x0c\x{2028}\x0a
373 \x09\x20\x{202f}\x0a\x0b\x0c
375 \x09\x{200a}\x{a0}\x{2028}\x0b
381 >\x{1680}\x{180e}\x{2000}\x{2003}\x{200a}\x{202f}\x{205f}\x{3000}<
392 /-- This tests the stricter UTF-8 check according to RFC 3629. --/
395 \x{0}\x{d7ff}\x{e000}\x{10ffff}
409 /a\Rb/I8<bsr_anycrlf>
417 /a\Rb/I8<bsr_unicode>
424 a\x{85}b\<bsr_anycrlf>
427 /a\R?b/I8<bsr_anycrlf>
435 /a\R?b/I8<bsr_unicode>
442 a\x{85}b\<bsr_anycrlf>
446 QQQ\x{2029}ABCaXYZ=!bPQR
475 /(*CRLF)(*UTF8)(*BSR_UNICODE)a\Rb/I
502 X\x{123}\x{123}\x{123}\P
503 X\x{123}\x{123}\x{123}\x{123}\P
509 X\x{123}\x{123}\x{123}\P
510 X\x{123}\x{123}\x{123}\x{123}\P
516 X\x{123}\x{123}\x{123}\P
517 X\x{123}\x{123}\x{123}\x{123}\P
523 X\x{123}\x{123}\x{123}x\P
524 X\x{123}\x{123}\x{123}\x{123}x\P
530 X\x{123}\x{123}\x{123}x\P
531 X\x{123}\x{123}\x{123}\x{123}x\P
537 X\x{123}\x{123}\x{123}x\P
538 X\x{123}\x{123}\x{123}\x{123}x\P
586 X\x{123}\x{123}\x{123}\P
587 X\x{123}\x{123}\x{123}\x{123}\P
593 X\x{123}\x{123}\x{123}\P
594 X\x{123}\x{123}\x{123}\x{123}\P
600 X\x{123}\x{123}\x{123}\P
601 X\x{123}\x{123}\x{123}\x{123}\P
624 /X[abc\x{123}]{2,4}b/8
628 X\x{123}\x{123}\x{123}\P
629 X\x{123}\x{123}\x{123}\x{123}\P
631 /X[abc\x{123}]{2,4}?b/8
635 X\x{123}\x{123}\x{123}\P
636 X\x{123}\x{123}\x{123}\x{123}\P
638 /X[abc\x{123}]{2,4}+b/8
642 X\x{123}\x{123}\x{123}\P
643 X\x{123}\x{123}\x{123}\x{123}\P
670 X\x{123}\x{123}\x{123}\P
671 X\x{123}\x{123}\x{123}\x{123}\P
677 X\x{123}\x{123}\x{123}\P
678 X\x{123}\x{123}\x{123}\x{123}\P
684 X\x{123}\x{123}\x{123}\P
685 X\x{123}\x{123}\x{123}\x{123}\P
708 /(\x{123})X\1{2,4}b/8
711 \x{123}X\x{123}\x{123}\P
712 \x{123}X\x{123}\x{123}\x{123}\P
713 \x{123}X\x{123}\x{123}\x{123}\x{123}\P
715 /(\x{123})X\1{2,4}?b/8
718 \x{123}X\x{123}\x{123}\P
719 \x{123}X\x{123}\x{123}\x{123}\P
720 \x{123}X\x{123}\x{123}\x{123}\x{123}\P
722 /(\x{123})X\1{2,4}+b/8
725 \x{123}X\x{123}\x{123}\P
726 \x{123}X\x{123}\x{123}\x{123}\P
727 \x{123}X\x{123}\x{123}\x{123}\x{123}\P
818 /\g{A}xxx#bXX(?'A'123)
\r(?'A'456)/8x<any>BZ
820 /\g{A}xxx#bх(?'A'123)
\r(?'A'456)/8x<any>BZ
832 /-- End of testinput5 --/