diff options
Diffstat (limited to 't/pragma/warn/utf8')
-rw-r--r-- | t/pragma/warn/utf8 | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/t/pragma/warn/utf8 b/t/pragma/warn/utf8 index 19b8d1db3a..cb1f202b8d 100644 --- a/t/pragma/warn/utf8 +++ b/t/pragma/warn/utf8 @@ -1,14 +1,13 @@ utf8.c AOK - All Mandatory warnings - [utf8_to_uv] Malformed UTF-8 character my $a = ord "\x80" ; Malformed UTF-8 character my $a = ord "\xf080" ; + <<<<<< this warning can't be easily triggered from perl anymore [utf16_to_utf8] Malformed UTF-16 surrogate @@ -19,7 +18,6 @@ __END__ use utf8 ; my $a = ord "\x80" ; EXPECT -Malformed UTF-8 character at - line 3. ######## # utf8.c [utf8_to_uv] BEGIN { @@ -37,15 +35,12 @@ my $a = ord "\x80" ; my $a = ord "\x80" ; } EXPECT -Malformed UTF-8 character at - line 9. \x80 will produce malformed UTF-8 character; use \x{80} for that at - line 12. -Malformed UTF-8 character at - line 12. ######## # utf8.c [utf8_to_uv] use utf8 ; my $a = ord "\xf080" ; EXPECT -Malformed UTF-8 character at - line 3. ######## # utf8.c [utf8_to_uv] BEGIN { @@ -63,6 +58,4 @@ my $a = ord "\xf080" ; my $a = ord "\xf080" ; } EXPECT -Malformed UTF-8 character at - line 9. \xf0 will produce malformed UTF-8 character; use \x{f0} for that at - line 12. -Malformed UTF-8 character at - line 12. |