1 /-- This set of tests is for UTF-8 support but not Unicode property support,
2 and is relevant only to the 8-bit library. --/
80 \xfd\x7f\x80\x80\x80\x80
81 \xfd\x80\x7f\x80\x80\x80
82 \xfd\x80\x80\x7f\x80\x80
83 \xfd\x80\x80\x80\x7f\x80
84 \xfd\x80\x80\x80\x80\x7f
90 \xfc\x80\x80\x80\x80\x8f
97 \xfd\x80\x80\x80\x80\x80
115 \P\P\xfd\x80\x80\x80\x80
123 \xfc\x83\x80\x80\x80\x80
124 \xfe\x80\x80\x80\x80\x80
125 \xff\x80\x80\x80\x80\x80
133 \xfc\x84\x80\x80\x80\x80
134 \xfd\x83\x80\x80\x80\x80
135 \?\xf8\x88\x80\x80\x80
136 \?\xf9\x87\x80\x80\x80
137 \?\xfc\x84\x80\x80\x80\x80
138 \?\xfd\x83\x80\x80\x80\x80
158 /\x{D55c}\x{ad6d}\x{C5B4}/DZ8
159 \x{D55c}\x{ad6d}\x{C5B4}
161 /\x{65e5}\x{672c}\x{8a9e}/DZ8
162 \x{65e5}\x{672c}\x{8a9e}
174 /-- This one is here not because it's different to Perl, but because the way
175 the captured single-byte is displayed. (In Perl it becomes a character, and you
176 can't tell the difference.) --/
182 /-- This one is here because Perl gives out a grumbly error message (quite
183 correctly, but that messes up comparisons). --/
199 \x{100}\x{100}\x{100}\x{100\x{100}
205 /(\x{100}{0,2}a|x)/8SDZ
207 /(\x{100}{1,2}a|x)/8SDZ
211 /a\x{100}\x{101}*/8DZ
213 /a\x{100}\x{101}+/8DZ
228 /\x{100}abc(xyz(?1))/8DZ
243 /-- This tests the stricter UTF-8 check according to RFC 3629. --/
262 /(*CRLF)(*UTF)(*BSR_UNICODE)a\Rb/I
366 /-- End of testinput15 --/