1 |
|
/-- This set of tests checks the API, internals, and non-Perl stuff for UTF-8 |
2 |
|
support, excluding Unicode properties. --/ |
3 |
|
|
4 |
/\x{100}/8DZ |
/\x{100}/8DZ |
5 |
------------------------------------------------------------------ |
------------------------------------------------------------------ |
6 |
Bra |
Bra |
277 |
\x{212ab}\x{212ab}\x{212ab}\x{861} |
\x{212ab}\x{212ab}\x{212ab}\x{861} |
278 |
0: \x{212ab}\x{212ab}\x{212ab} |
0: \x{212ab}\x{212ab}\x{212ab} |
279 |
|
|
|
/-- These tests are here rather than in testinput4 because Perl 5.6 has some |
|
|
problems with UTF-8 support, in the area of \x{..} where the value is < 255. |
|
|
It grumbles about invalid UTF-8 strings. --/ |
|
|
|
|
|
/^[a\x{c0}]b/8 |
|
|
\x{c0}b |
|
|
0: \x{c0}b |
|
|
|
|
|
/^([a\x{c0}]*?)aa/8 |
|
|
a\x{c0}aaaa/ |
|
|
0: a\x{c0}aa |
|
|
1: a\x{c0} |
|
|
|
|
|
/^([a\x{c0}]*?)aa/8 |
|
|
a\x{c0}aaaa/ |
|
|
0: a\x{c0}aa |
|
|
1: a\x{c0} |
|
|
a\x{c0}a\x{c0}aaa/ |
|
|
0: a\x{c0}a\x{c0}aa |
|
|
1: a\x{c0}a\x{c0} |
|
|
|
|
|
/^([a\x{c0}]*)aa/8 |
|
|
a\x{c0}aaaa/ |
|
|
0: a\x{c0}aaaa |
|
|
1: a\x{c0}aa |
|
|
a\x{c0}a\x{c0}aaa/ |
|
|
0: a\x{c0}a\x{c0}aaa |
|
|
1: a\x{c0}a\x{c0}a |
|
|
|
|
|
/^([a\x{c0}]*)a\x{c0}/8 |
|
|
a\x{c0}aaaa/ |
|
|
0: a\x{c0} |
|
|
1: |
|
|
a\x{c0}a\x{c0}aaa/ |
|
|
0: a\x{c0}a\x{c0} |
|
|
1: a\x{c0} |
|
|
|
|
|
/-- --/ |
|
|
|
|
280 |
/(?<=\C)X/8 |
/(?<=\C)X/8 |
281 |
Failed: \C not allowed in lookbehind assertion at offset 6 |
Failed: \C not allowed in lookbehind assertion at offset 6 |
282 |
|
|
2031 |
the cat\P\P |
the cat\P\P |
2032 |
Partial match: the cat |
Partial match: the cat |
2033 |
|
|
2034 |
/ End of testinput5 / |
/-- End of testinput5 --/ |