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

Check lint

__END__
-W
# lint: check compile time $^W is zapped
BEGIN { $^W = 0 ;}
$a = $b = 1 ;
$a = 1 if $a EQ $b ;
close STDIN ; print STDIN "abc" ;
EXPECT
Use of EQ is deprecated at - line 5.
print() on closed filehandle main::STDIN at - line 6.
########
-W
# lint: check runtime $^W is zapped
$^W = 0 ;
close STDIN ; print STDIN "abc" ;
EXPECT
print() on closed filehandle main::STDIN at - line 4.
########
-W
# lint: check runtime $^W is zapped
{
  $^W = 0 ;
  close STDIN ; print STDIN "abc" ;
}
EXPECT
print() on closed filehandle main::STDIN at - line 5.
########
-W
# lint: check "no warnings" is zapped
no warnings ;
$a = $b = 1 ;
$a = 1 if $a EQ $b ;
close STDIN ; print STDIN "abc" ;
EXPECT
Use of EQ is deprecated at - line 5.
print() on closed filehandle main::STDIN at - line 6.
########
-W
# lint: check "no warnings" is zapped
{
  no warnings ;
  close STDIN ; print STDIN "abc" ;
}
EXPECT
print() on closed filehandle main::STDIN at - line 5.
########
-Ww
# lint: check combination of -w and -W
{
  $^W = 0 ;
  close STDIN ; print STDIN "abc" ;
}
EXPECT
print() on closed filehandle main::STDIN at - line 5.
########
-W
--FILE-- abc.pm
no warnings 'deprecated' ;
my ($a, $b) = (0,0);
1 if $a EQ $b ;
1;
--FILE-- 
no warnings 'uninitialized' ;
use abc;
my $a ; chop $a ;
EXPECT
Use of EQ is deprecated at abc.pm line 3.
Use of uninitialized value in scalar chop at - line 3.
########
-W
--FILE-- abc
no warnings 'deprecated' ;
my ($a, $b) = (0,0);
1 if $a EQ $b ;
1;
--FILE-- 
no warnings 'uninitialized' ;
require "./abc";
my $a ; chop $a ;
EXPECT
Use of EQ is deprecated at ./abc line 3.
Use of uninitialized value in scalar chop at - line 3.
########
-W
--FILE-- abc.pm
BEGIN {$^W = 0}
my ($a, $b) = (0,0);
1 if $a EQ $b ;
1;
--FILE-- 
$^W = 0 ;
use abc;
my $a ; chop $a ;
EXPECT
Use of EQ is deprecated at abc.pm line 3.
Use of uninitialized value in scalar chop at - line 3.
########
-W
--FILE-- abc
BEGIN {$^W = 0}
my ($a, $b) = (0,0);
1 if $a EQ $b ;
1;
--FILE-- 
$^W = 0 ;
require "./abc";
my $a ; chop $a ;
EXPECT
Use of EQ is deprecated at ./abc line 3.
Use of uninitialized value in scalar chop at - line 3.
Commit	Line	Data
599cee73	1	Check lint
	2
	3	__END__
	4	-W
	5	# lint: check compile time $^W is zapped
	6	BEGIN { $^W = 0 ;}
	7	$a = $b = 1 ;
	8	$a = 1 if $a EQ $b ;
	9	close STDIN ; print STDIN "abc" ;
	10	EXPECT
	11	Use of EQ is deprecated at - line 5.
9a7dcd9c	12	print() on closed filehandle main::STDIN at - line 6.
599cee73	13	########
	14	-W
	15	# lint: check runtime $^W is zapped
	16	$^W = 0 ;
	17	close STDIN ; print STDIN "abc" ;
	18	EXPECT
9a7dcd9c	19	print() on closed filehandle main::STDIN at - line 4.
599cee73	20	########
	21	-W
	22	# lint: check runtime $^W is zapped
	23	{
	24	$^W = 0 ;
	25	close STDIN ; print STDIN "abc" ;
	26	}
	27	EXPECT
9a7dcd9c	28	print() on closed filehandle main::STDIN at - line 5.
599cee73	29	########
599cee73	30	-W
4438c4b7	31	# lint: check "no warnings" is zapped
4438c4b7	32	no warnings ;
599cee73	33	$a = $b = 1 ;
	34	$a = 1 if $a EQ $b ;
	35	close STDIN ; print STDIN "abc" ;
	36	EXPECT
	37	Use of EQ is deprecated at - line 5.
9a7dcd9c	38	print() on closed filehandle main::STDIN at - line 6.
599cee73	39	########
599cee73	40	-W
4438c4b7	41	# lint: check "no warnings" is zapped
599cee73	42	{
4438c4b7	43	no warnings ;
599cee73	44	close STDIN ; print STDIN "abc" ;
	45	}
	46	EXPECT
9a7dcd9c	47	print() on closed filehandle main::STDIN at - line 5.
599cee73	48	########
	49	-Ww
	50	# lint: check combination of -w and -W
	51	{
	52	$^W = 0 ;
	53	close STDIN ; print STDIN "abc" ;
	54	}
	55	EXPECT
9a7dcd9c	56	print() on closed filehandle main::STDIN at - line 5.
599cee73	57	########
	58	-W
	59	--FILE-- abc.pm
4438c4b7	60	no warnings 'deprecated' ;
599cee73	61	my ($a, $b) = (0,0);
	62	1 if $a EQ $b ;
	63	1;
	64	--FILE--
4438c4b7	65	no warnings 'uninitialized' ;
599cee73	66	use abc;
	67	my $a ; chop $a ;
	68	EXPECT
	69	Use of EQ is deprecated at abc.pm line 3.
b89fed5f	70	Use of uninitialized value in scalar chop at - line 3.
599cee73	71	########
	72	-W
	73	--FILE-- abc
4438c4b7	74	no warnings 'deprecated' ;
599cee73	75	my ($a, $b) = (0,0);
	76	1 if $a EQ $b ;
	77	1;
	78	--FILE--
4438c4b7	79	no warnings 'uninitialized' ;
599cee73	80	require "./abc";
	81	my $a ; chop $a ;
	82	EXPECT
	83	Use of EQ is deprecated at ./abc line 3.
b89fed5f	84	Use of uninitialized value in scalar chop at - line 3.
599cee73	85	########
	86	-W
	87	--FILE-- abc.pm
	88	BEGIN {$^W = 0}
	89	my ($a, $b) = (0,0);
	90	1 if $a EQ $b ;
	91	1;
	92	--FILE--
	93	$^W = 0 ;
	94	use abc;
	95	my $a ; chop $a ;
	96	EXPECT
	97	Use of EQ is deprecated at abc.pm line 3.
b89fed5f	98	Use of uninitialized value in scalar chop at - line 3.
599cee73	99	########
	100	-W
	101	--FILE-- abc
	102	BEGIN {$^W = 0}
	103	my ($a, $b) = (0,0);
	104	1 if $a EQ $b ;
	105	1;
	106	--FILE--
	107	$^W = 0 ;
	108	require "./abc";
	109	my $a ; chop $a ;
	110	EXPECT
	111	Use of EQ is deprecated at ./abc line 3.
b89fed5f	112	Use of uninitialized value in scalar chop at - line 3.