Commit | Line | Data |
---|---|---|
0453d815 | 1 | |
2 | utf8.c AOK | |
3 | ||
0453d815 | 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" ; | |
7e2040f0 | 10 | <<<<<< this warning can't be easily triggered from perl anymore |
0453d815 | 11 | |
12 | [utf16_to_utf8] | |
13 | Malformed UTF-16 surrogate | |
14 | <<<<<< Add a test when somethig actually calls utf16_to_utf8 | |
15 | ||
16 | __END__ | |
012bcf8d | 17 | # utf8.c [utf8_to_uv] -W |
0453d815 | 18 | use utf8 ; |
012bcf8d | 19 | my $a = "snøstorm" ; |
0453d815 | 20 | { |
4438c4b7 | 21 | no warnings 'utf8' ; |
012bcf8d | 22 | my $a = "snøstorm"; |
4438c4b7 | 23 | use warnings 'utf8' ; |
012bcf8d | 24 | my $a = "snøstorm"; |
0453d815 | 25 | } |
26 | EXPECT | |
012bcf8d | 27 | Malformed UTF-8 character at - line 3. |
28 | Malformed UTF-8 character at - line 8. | |
29 | ######## |