This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
runtime now looks at the SVf_UTF8 bit on the SV to decide
[perl5.git]
/
t
/
pragma
/
warn
/
utf8
diff --git
a/t/pragma/warn/utf8
b/t/pragma/warn/utf8
index
19b8d1d
..
cb1f202
100644
(file)
--- a/
t/pragma/warn/utf8
+++ b/
t/pragma/warn/utf8
@@
-1,14
+1,13
@@
utf8.c AOK
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" ;
[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
[utf16_to_utf8]
Malformed UTF-16 surrogate
@@
-19,7
+18,6
@@
__END__
use utf8 ;
my $a = ord "\x80" ;
EXPECT
use utf8 ;
my $a = ord "\x80" ;
EXPECT
-Malformed UTF-8 character at - line 3.
########
# utf8.c [utf8_to_uv]
BEGIN {
########
# utf8.c [utf8_to_uv]
BEGIN {
@@
-37,15
+35,12
@@
my $a = ord "\x80" ;
my $a = ord "\x80" ;
}
EXPECT
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.
\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
########
# 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 {
########
# utf8.c [utf8_to_uv]
BEGIN {
@@
-63,6
+58,4
@@
my $a = ord "\xf080" ;
my $a = ord "\xf080" ;
}
EXPECT
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.
\xf0 will produce malformed UTF-8 character; use \x{f0} for that at - line 12.
-Malformed UTF-8 character at - line 12.