| 1 |
/\x{100}/8DM
|
| 2 |
|
| 3 |
/\x{1000}/8DM
|
| 4 |
|
| 5 |
/\x{10000}/8DM
|
| 6 |
|
| 7 |
/\x{100000}/8DM
|
| 8 |
|
| 9 |
/\x{1000000}/8DM
|
| 10 |
|
| 11 |
/\x{4000000}/8DM
|
| 12 |
|
| 13 |
/\x{7fffFFFF}/8DM
|
| 14 |
|
| 15 |
/[\x{ff}]/8DM
|
| 16 |
|
| 17 |
/[\x{100}]/8DM
|
| 18 |
|
| 19 |
/\x{ffffffff}/8
|
| 20 |
|
| 21 |
/\x{100000000}/8
|
| 22 |
|
| 23 |
/^\x{100}a\x{1234}/8
|
| 24 |
\x{100}a\x{1234}bcd
|
| 25 |
|
| 26 |
/\x80/8D
|
| 27 |
|
| 28 |
/\xff/8D
|
| 29 |
|
| 30 |
/\x{0041}\x{2262}\x{0391}\x{002e}/D8
|
| 31 |
\x{0041}\x{2262}\x{0391}\x{002e}
|
| 32 |
|
| 33 |
/\x{D55c}\x{ad6d}\x{C5B4}/D8
|
| 34 |
\x{D55c}\x{ad6d}\x{C5B4}
|
| 35 |
|
| 36 |
/\x{65e5}\x{672c}\x{8a9e}/D8
|
| 37 |
\x{65e5}\x{672c}\x{8a9e}
|
| 38 |
|
| 39 |
/\x{80}/D8
|
| 40 |
|
| 41 |
/\x{084}/D8
|
| 42 |
|
| 43 |
/\x{104}/D8
|
| 44 |
|
| 45 |
/\x{861}/D8
|
| 46 |
|
| 47 |
/\x{212ab}/D8
|
| 48 |
|
| 49 |
/.{3,5}X/D8
|
| 50 |
\x{212ab}\x{212ab}\x{212ab}\x{861}X
|
| 51 |
|
| 52 |
|
| 53 |
/.{3,5}?/D8
|
| 54 |
\x{212ab}\x{212ab}\x{212ab}\x{861}
|
| 55 |
|
| 56 |
/-- These tests are here rather than in testinput5 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. --/
|
| 59 |
|
| 60 |
/^[a\x{c0}]b/8
|
| 61 |
\x{c0}b
|
| 62 |
|
| 63 |
/^([a\x{c0}]*?)aa/8
|
| 64 |
a\x{c0}aaaa/
|
| 65 |
|
| 66 |
/^([a\x{c0}]*?)aa/8
|
| 67 |
a\x{c0}aaaa/
|
| 68 |
a\x{c0}a\x{c0}aaa/
|
| 69 |
|
| 70 |
/^([a\x{c0}]*)aa/8
|
| 71 |
a\x{c0}aaaa/
|
| 72 |
a\x{c0}a\x{c0}aaa/
|
| 73 |
|
| 74 |
/^([a\x{c0}]*)a\x{c0}/8
|
| 75 |
a\x{c0}aaaa/
|
| 76 |
a\x{c0}a\x{c0}aaa/
|
| 77 |
|
| 78 |
/ End of testinput6 /
|