summaryrefslogtreecommitdiff
path: root/t/pragma/warn/utf8
diff options
context:
space:
mode:
Diffstat (limited to 't/pragma/warn/utf8')
-rw-r--r--t/pragma/warn/utf89
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.