[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.
########
-W
# Check scope of pragma with eval
{
    no warnings ;
    eval '
        my $b ; chop $b ;
    '; print STDERR $@ ;
    my $b ; chop $b ;
}
EXPECT
Use of uninitialized value in scalar chop at (eval 1) line 2.
Use of uninitialized value in scalar chop at - line 8.
########
-W
# Check scope of pragma with eval
use warnings;
{
    no warnings ;
    eval q[ 
        use warnings 'uninitialized' ;
        my $b ; chop $b ;
    ]; print STDERR $@;
    my $b ; chop $b ;
}
EXPECT
Use of uninitialized value in scalar chop at (eval 1) line 3.
Use of uninitialized value in scalar chop at - line 10.
########
-W
# Check scope of pragma with eval
no warnings;
{
    use warnings 'uninitialized' ;
    eval '
        my $b ; chop $b ;
    '; print STDERR $@ ;
    my $b ; chop $b ;
}
EXPECT
Use of uninitialized value in scalar chop at (eval 1) line 2.
Use of uninitialized value in scalar chop at - line 9.
########
-W
# Check scope of pragma with eval
no warnings;
{
    use warnings 'uninitialized' ;
    eval '
        no warnings ;
        my $b ; chop $b ;
    '; print STDERR $@ ;
    my $b ; chop $b ;
}
EXPECT
Use of uninitialized value in scalar chop at (eval 1) line 3.
Use of uninitialized value in scalar chop at - line 10.
########
-W
# Check scope of pragma with eval
use warnings;
{
    my $a = "1"; my $b = "2";
    no warnings ;
    eval q[ 
        use warnings 'deprecated' ;
        1 if $a EQ $b ;
    ]; print STDERR $@;
    1 if $a EQ $b ;
}
EXPECT
Use of EQ is deprecated at - line 11.
Use of EQ is deprecated at (eval 1) line 3.
########
-W
# Check scope of pragma with eval
no warnings;
{
    my $a = "1"; my $b = "2";
    use warnings 'deprecated' ;
    eval '
        1 if $a EQ $b ;
    '; print STDERR $@;
    1 if $a EQ $b ;
}
EXPECT
Use of EQ is deprecated at - line 10.
Use of EQ is deprecated at (eval 1) line 2.
########
-W
# Check scope of pragma with eval
no warnings;
{
    my $a = "1"; my $b = "2";
    use warnings 'deprecated' ;
    eval '
        no warnings ;
        1 if $a EQ $b ;
    '; print STDERR $@;
    1 if $a EQ $b ;
}
EXPECT
Use of EQ is deprecated at - line 11.
Use of EQ is deprecated at (eval 1) 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.
16ff4256	113	########
	114	-W
	115	# Check scope of pragma with eval
	116	{
	117	no warnings ;
	118	eval '
	119	my $b ; chop $b ;
	120	'; print STDERR $@ ;
	121	my $b ; chop $b ;
	122	}
	123	EXPECT
	124	Use of uninitialized value in scalar chop at (eval 1) line 2.
	125	Use of uninitialized value in scalar chop at - line 8.
	126	########
	127	-W
	128	# Check scope of pragma with eval
	129	use warnings;
	130	{
	131	no warnings ;
	132	eval q[
	133	use warnings 'uninitialized' ;
	134	my $b ; chop $b ;
	135	]; print STDERR $@;
	136	my $b ; chop $b ;
	137	}
	138	EXPECT
	139	Use of uninitialized value in scalar chop at (eval 1) line 3.
	140	Use of uninitialized value in scalar chop at - line 10.
	141	########
	142	-W
	143	# Check scope of pragma with eval
	144	no warnings;
	145	{
	146	use warnings 'uninitialized' ;
	147	eval '
	148	my $b ; chop $b ;
	149	'; print STDERR $@ ;
	150	my $b ; chop $b ;
	151	}
	152	EXPECT
	153	Use of uninitialized value in scalar chop at (eval 1) line 2.
	154	Use of uninitialized value in scalar chop at - line 9.
	155	########
	156	-W
	157	# Check scope of pragma with eval
	158	no warnings;
	159	{
	160	use warnings 'uninitialized' ;
	161	eval '
	162	no warnings ;
	163	my $b ; chop $b ;
	164	'; print STDERR $@ ;
	165	my $b ; chop $b ;
	166	}
	167	EXPECT
	168	Use of uninitialized value in scalar chop at (eval 1) line 3.
	169	Use of uninitialized value in scalar chop at - line 10.
	170	########
	171	-W
	172	# Check scope of pragma with eval
	173	use warnings;
	174	{
	175	my $a = "1"; my $b = "2";
	176	no warnings ;
177	eval q[
178	use warnings 'deprecated' ;
179	1 if $a EQ $b ;
180	]; print STDERR $@;
181	1 if $a EQ $b ;
182	}
183	EXPECT
184	Use of EQ is deprecated at - line 11.
185	Use of EQ is deprecated at (eval 1) line 3.
186	########
187	-W
188	# Check scope of pragma with eval
189	no warnings;
190	{
191	my $a = "1"; my $b = "2";
192	use warnings 'deprecated' ;
193	eval '
194	1 if $a EQ $b ;
195	'; print STDERR $@;
196	1 if $a EQ $b ;
197	}
198	EXPECT
199	Use of EQ is deprecated at - line 10.
200	Use of EQ is deprecated at (eval 1) line 2.
201	########
202	-W
203	# Check scope of pragma with eval
204	no warnings;
205	{
206	my $a = "1"; my $b = "2";
207	use warnings 'deprecated' ;
208	eval '
209	no warnings ;
210	1 if $a EQ $b ;
211	'; print STDERR $@;
212	1 if $a EQ $b ;
213	}
214	EXPECT
215	Use of EQ is deprecated at - line 11.
216	Use of EQ is deprecated at (eval 1) line 3.