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

Check anti-lint

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