1 |
|
/-- This set of tests is for Unicode property support. It is compatible with |
2 |
|
Perl 5.10, but not 5.8 because it tests some extra properties that are |
3 |
|
not in the earlier release. --/ |
4 |
|
|
5 |
/^\pC\pL\pM\pN\pP\pS\pZ</8 |
/^\pC\pL\pM\pN\pP\pS\pZ</8 |
6 |
\x7f\x{c0}\x{30f}\x{660}\x{66c}\x{f01}\x{1680}< |
\x7f\x{c0}\x{30f}\x{660}\x{66c}\x{f01}\x{1680}< |
7 |
\np\x{300}9!\$ < |
\np\x{300}9!\$ < |
756 |
/[\p{Lu}\x20]+/ |
/[\p{Lu}\x20]+/ |
757 |
\x41\x20\x50\xC2\x54\xC9\x20\x54\x4F\x44\x41\x59 |
\x41\x20\x50\xC2\x54\xC9\x20\x54\x4F\x44\x41\x59 |
758 |
|
|
759 |
/ End of testinput6 / |
/-- End of testinput6 --/ |