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 /