30
/\x{0041}\x{2262}\x{0391}\x{002e}/D8
31
\x{0041}\x{2262}\x{0391}\x{002e}
33
/\x{D55c}\x{ad6d}\x{C5B4}/D8
34
\x{D55c}\x{ad6d}\x{C5B4}
36
/\x{65e5}\x{672c}\x{8a9e}/D8
37
\x{65e5}\x{672c}\x{8a9e}
50
\x{212ab}\x{212ab}\x{212ab}\x{861}X
54
\x{212ab}\x{212ab}\x{212ab}\x{861}
56
/-- These tests are here rather than in testinput4 because Perl 5.6 has --/
57
/-- some problems with UTF-8 support, in the area of \x{..} where the --/
58
/-- value is < 255. It grumbles about invalid UTF-8 strings. --/
74
/^([a\x{c0}]*)a\x{c0}/8
81
Should produce an error diagnostic
83
/-- This one is here not because it's different to Perl, but because the --/
84
/-- way the captured single-byte is displayed. (In Perl it becomes a --/
85
/-- character, and you can't tell the difference.) --/
115
\x{100}\x{100}\x{100}\x{100\x{100}
121
/(\x{100}{0,2}a|x)/8SD
123
/(\x{100}{1,2}a|x)/8SD
125
/\x{100}*(\d+|"(?1)")/8
194
Ö # Matches without Study
198
Ö <-- Same with Study
202
Ö # Matches without Study
206
Ö <-- Same with Study
229
\xfc\x83\x80\x80\x80\x80
230
\xfe\x80\x80\x80\x80\x80
231
\xff\x80\x80\x80\x80\x80
239
\xfc\x84\x80\x80\x80\x80
240
\xfd\x83\x80\x80\x80\x80
242
/\x{100}abc(xyz(?1))/8D
244
/[^\x{100}]abc(xyz(?1))/8D
246
/[ab\x{100}]abc(xyz(?1))/8D
248
/(\x{100}(b(?2)c))?/D8
250
/(\x{100}(b(?2)c)){0,2}/D8
252
/(\x{100}(b(?1)c))?/D8
254
/(\x{100}(b(?1)c)){0,2}/D8
263
/ End of testinput5 /