Commit | Line | Data |
f0df466a |
1 | |
2 | utf8.c AOK |
3 | |
4 | [utf8_to_uv] |
5 | Malformed UTF-8 character |
6 | my $a = ord "\x80" ; |
7 | |
8 | Malformed UTF-8 character |
9 | my $a = ord "\xf080" ; |
10 | <<<<<< this warning can't be easily triggered from perl anymore |
11 | |
12 | [utf16_to_utf8] |
13 | Malformed UTF-16 surrogate |
14 | <<<<<< Add a test when somethig actually calls utf16_to_utf8 |
15 | |
16 | __END__ |
17 | # utf8.c [utf8_to_uv] -W |
18 | BEGIN { |
19 | if (ord('A') == 193) { |
20 | print "SKIPPED\n# ebcdic platforms do not generate Malformed UTF-8 warnings."; |
21 | exit 0; |
22 | } |
23 | } |
24 | use utf8 ; |
25 | my $a = "snøstorm" ; |
26 | { |
27 | no warnings 'utf8' ; |
28 | my $a = "snøstorm"; |
29 | use warnings 'utf8' ; |
30 | my $a = "snøstorm"; |
31 | } |
32 | EXPECT |
33 | Malformed UTF-8 character (unexpected non-continuation byte 0x73 after start byte 0xf8) at - line 9. |
34 | Malformed UTF-8 character (unexpected non-continuation byte 0x73 after start byte 0xf8) at - line 14. |
35 | ######## |
507b9800 |
36 | use warnings 'utf8'; |
37 | my $surr = chr(0xD800); |
38 | my $fff3 = chr(0xFFFE); |
39 | my $ffff = chr(0xFFFF); |
40 | no warnings 'utf8'; |
41 | $surr = chr(0xD800); |
42 | $fffe = chr(0xFFFE); |
43 | $ffff = chr(0xFFFF); |
44 | EXPECT |
45 | UTF-16 surrogate 0xd800 at - line 2. |
46 | Unicode character 0xfffe is illegal at - line 3. |
47 | Unicode character 0xffff is illegal at - line 4. |
48 | ######## |