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

Check default warnings

__END__
# default warnings should be displayed if you don't add anything
# optional shouldn't
my $a = oct "7777777777777777777777777777777777779" ;
EXPECT
Integer overflow in octal number at - line 3.
########
# no warnings should be displayed 
no warnings ;
my $a = oct "7777777777777777777777777777777777778" ;
EXPECT
########
# all warnings should be displayed 
use warnings ;
my $a = oct "7777777777777777777777777777777777778" ;
EXPECT
Integer overflow in octal number at - line 3.
Illegal octal digit '8' ignored at - line 3.
Octal number > 037777777777 non-portable at - line 3.
########
# check scope
use warnings ;
my $a = oct "7777777777777777777777777777777777778" ;
{
    no warnings ;
    my $a = oct "7777777777777777777777777777777777778" ;
}    
my $c = oct "7777777777777777777777777777777777778" ;
EXPECT
Integer overflow in octal number at - line 3.
Illegal octal digit '8' ignored at - line 3.
Octal number > 037777777777 non-portable at - line 3.
Integer overflow in octal number at - line 8.
Illegal octal digit '8' ignored at - line 8.
Octal number > 037777777777 non-portable at - line 8.
########
# all warnings should be displayed 
use warnings ;
my $a = oct "0xfffffffffffffffffg" ;
EXPECT
Integer overflow in hexadecimal number at - line 3.
Illegal hexadecimal digit 'g' ignored at - line 3.
Hexadecimal number > 0xffffffff non-portable at - line 3.
########
# all warnings should be displayed 
use warnings ;
my $a = oct "0b111111111111111111111111111111111111111111111111111111111111111112";
EXPECT
Integer overflow in binary number at - line 3.
Illegal binary digit '2' ignored at - line 3.
Binary number > 0b11111111111111111111111111111111 non-portable at - line 3.
Commit	Line	Data
0453d815	1	Check default warnings
	2
	3	__END__
4438c4b7	4	# default warnings should be displayed if you don't add anything
0453d815	5	# optional shouldn't
	6	my $a = oct "7777777777777777777777777777777777779" ;
	7	EXPECT
	8	Integer overflow in octal number at - line 3.
	9	########
4438c4b7	10	# no warnings should be displayed
4438c4b7	11	no warnings ;
9e24b6e2	12	my $a = oct "7777777777777777777777777777777777778" ;
0453d815	13	EXPECT
0453d815	14	########
4438c4b7	15	# all warnings should be displayed
4438c4b7	16	use warnings ;
9e24b6e2	17	my $a = oct "7777777777777777777777777777777777778" ;
0453d815	18	EXPECT
9e24b6e2	19	Integer overflow in octal number at - line 3.
	20	Illegal octal digit '8' ignored at - line 3.
	21	Octal number > 037777777777 non-portable at - line 3.
0453d815	22	########
0453d815	23	# check scope
4438c4b7	24	use warnings ;
9e24b6e2	25	my $a = oct "7777777777777777777777777777777777778" ;
0453d815	26	{
4438c4b7	27	no warnings ;
9e24b6e2	28	my $a = oct "7777777777777777777777777777777777778" ;
0453d815	29	}
9e24b6e2	30	my $c = oct "7777777777777777777777777777777777778" ;
0453d815	31	EXPECT
9e24b6e2	32	Integer overflow in octal number at - line 3.
	33	Illegal octal digit '8' ignored at - line 3.
	34	Octal number > 037777777777 non-portable at - line 3.
0453d815	35	Integer overflow in octal number at - line 8.
9e24b6e2	36	Illegal octal digit '8' ignored at - line 8.
	37	Octal number > 037777777777 non-portable at - line 8.
	38	########
4438c4b7	39	# all warnings should be displayed
4438c4b7	40	use warnings ;
9e24b6e2	41	my $a = oct "0xfffffffffffffffffg" ;
	42	EXPECT
	43	Integer overflow in hexadecimal number at - line 3.
	44	Illegal hexadecimal digit 'g' ignored at - line 3.
	45	Hexadecimal number > 0xffffffff non-portable at - line 3.
	46	########
4438c4b7	47	# all warnings should be displayed
4438c4b7	48	use warnings ;
9e24b6e2	49	my $a = oct "0b111111111111111111111111111111111111111111111111111111111111111112";
	50	EXPECT
	51	Integer overflow in binary number at - line 3.
	52	Illegal binary digit '2' ignored at - line 3.
	53	Binary number > 0b11111111111111111111111111111111 non-portable at - line 3.