[p5sagit/p5-mst-13.2.git] / t / pragma / warn / utf8


  utf8.c AOK

     [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		
     <<<<<< Add a test when somethig actually calls utf16_to_utf8

__END__
# utf8.c [utf8_to_uv] -W
use utf8 ;
my $a = "snøstorm" ;
{
    no warnings 'utf8' ;
    my $a = "snøstorm";
    use warnings 'utf8' ;
    my $a = "snøstorm";
}
EXPECT
Malformed UTF-8 character at - line 3.
Malformed UTF-8 character at - line 8.
########
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	}
0453d815	26	EXPECT
012bcf8d	27	Malformed UTF-8 character at - line 3.
	28	Malformed UTF-8 character at - line 8.
	29	########