[p5sagit/p5-mst-13.2.git] / t / lib / warnings / 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
BEGIN {
    if (ord('A') == 193) {
        print "SKIPPED\n# ebcdic platforms do not generate Malformed UTF-8 warnings.";
        exit 0;
    }
}
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 (unexpected non-continuation byte 0x73 after start byte 0xf8) at - line 9.
Malformed UTF-8 character (unexpected non-continuation byte 0x73 after start byte 0xf8) at - line 14.
########
Commit	Line	Data
f0df466a	1
	2	utf8.c AOK
	3
	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" ;
	10	<<<<<< this warning can't be easily triggered from perl anymore
	11
	12	[utf16_to_utf8]
	13	Malformed UTF-16 surrogate
	14	<<<<<< Add a test when somethig actually calls utf16_to_utf8
	15
	16	__END__
	17	# utf8.c [utf8_to_uv] -W
	18	BEGIN {
	19	if (ord('A') == 193) {
	20	print "SKIPPED\n# ebcdic platforms do not generate Malformed UTF-8 warnings.";
	21	exit 0;
	22	}
	23	}
	24	use utf8 ;
	25	my $a = "snøstorm" ;
	26	{
	27	no warnings 'utf8' ;
	28	my $a = "snøstorm";
	29	use warnings 'utf8' ;
	30	my $a = "snøstorm";
	31	}
	32	EXPECT
	33	Malformed UTF-8 character (unexpected non-continuation byte 0x73 after start byte 0xf8) at - line 9.
	34	Malformed UTF-8 character (unexpected non-continuation byte 0x73 after start byte 0xf8) at - line 14.
	35	########