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 |
ba210ebe |
27 | Malformed UTF-8 character (unexpected non-continuation byte 0x73 after byte 0xf8) at - line 3. |
28 | Malformed UTF-8 character (unexpected non-continuation byte 0x73 after byte 0xf8) at - line 8. |
012bcf8d |
29 | ######## |