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


  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" ;

     [utf16_to_utf8]
     Malformed UTF-16 surrogate		
     <<<<<< Add a test when somethig actually calls utf16_to_utf8

__END__
# utf8.c [utf8_to_uv]
use utf8 ;
my $a = ord "\x80" ;
EXPECT
Malformed UTF-8 character at - line 3.
########
# utf8.c [utf8_to_uv]
use utf8 ;
my $a = ord "\x80" ;
{
    use warnings 'utf8' ;
    my $a = ord "\x80" ;
    no warnings 'utf8' ;
    my $a = ord "\x80" ;
}
EXPECT
Malformed UTF-8 character at - line 3.
\x80 will produce malformed UTF-8 character; use \x{80} for that at - line 6.
Malformed UTF-8 character at - line 6.
########
# utf8.c [utf8_to_uv]
use utf8 ;
my $a = ord "\xf080" ;
EXPECT
Malformed UTF-8 character at - line 3.
########
# utf8.c [utf8_to_uv]
use utf8 ;
my $a = ord "\xf080" ;
{
    use warnings 'utf8' ;
    my $a = ord "\xf080" ;
    no warnings 'utf8' ;
    my $a = ord "\xf080" ;
}
EXPECT
Malformed UTF-8 character at - line 3.
\xf0 will produce malformed UTF-8 character; use \x{f0} for that at - line 6.
Malformed UTF-8 character at - line 6.
Commit	Line	Data
0453d815	1
	2	utf8.c AOK
	3
	4	All Mandatory warnings
	5
	6	[utf8_to_uv]
	7	Malformed UTF-8 character
	8	my $a = ord "\x80" ;
	9
	10	Malformed UTF-8 character
	11	my $a = ord "\xf080" ;
	12
	13	[utf16_to_utf8]
	14	Malformed UTF-16 surrogate
	15	<<<<<< Add a test when somethig actually calls utf16_to_utf8
	16
	17	__END__
767a6a26	18	# utf8.c [utf8_to_uv]
0453d815	19	use utf8 ;
	20	my $a = ord "\x80" ;
	21	EXPECT
	22	Malformed UTF-8 character at - line 3.
	23	########
767a6a26	24	# utf8.c [utf8_to_uv]
0453d815	25	use utf8 ;
	26	my $a = ord "\x80" ;
	27	{
4438c4b7	28	use warnings 'utf8' ;
0453d815	29	my $a = ord "\x80" ;
4438c4b7	30	no warnings 'utf8' ;
0453d815	31	my $a = ord "\x80" ;
	32	}
	33	EXPECT
	34	Malformed UTF-8 character at - line 3.
	35	\x80 will produce malformed UTF-8 character; use \x{80} for that at - line 6.
	36	Malformed UTF-8 character at - line 6.
	37	########
767a6a26	38	# utf8.c [utf8_to_uv]
0453d815	39	use utf8 ;
	40	my $a = ord "\xf080" ;
	41	EXPECT
	42	Malformed UTF-8 character at - line 3.
	43	########
767a6a26	44	# utf8.c [utf8_to_uv]
0453d815	45	use utf8 ;
	46	my $a = ord "\xf080" ;
	47	{
4438c4b7	48	use warnings 'utf8' ;
0453d815	49	my $a = ord "\xf080" ;
4438c4b7	50	no warnings 'utf8' ;
0453d815	51	my $a = ord "\xf080" ;
	52	}
	53	EXPECT
	54	Malformed UTF-8 character at - line 3.
	55	\xf0 will produce malformed UTF-8 character; use \x{f0} for that at - line 6.
	56	Malformed UTF-8 character at - line 6.