[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 warnings" is zapped
use warnings ;
$a = $b = 1 ;
$a = 1 if $a EQ $b ;
close STDIN ; print STDIN "abc" ;
EXPECT
########
-X
# nolint: check "no warnings" is zapped
{
  use warnings ;
  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 warnings 'deprecated' ;
my ($a, $b) = (0,0);
1 if $a EQ $b ;
1;
--FILE-- 
use warnings 'uninitialized' ;
use abc;
my $a ; chop $a ;
EXPECT
########
-X
--FILE-- abc
use warnings 'deprecated' ;
my ($a, $b) = (0,0);
1 if $a EQ $b ;
1;
--FILE-- 
use warnings '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
4438c4b7	27	# nolint: check "no warnings" is zapped
4438c4b7	28	use warnings ;
599cee73	29	$a = $b = 1 ;
	30	$a = 1 if $a EQ $b ;
	31	close STDIN ; print STDIN "abc" ;
	32	EXPECT
	33	########
	34	-X
4438c4b7	35	# nolint: check "no warnings" is zapped
599cee73	36	{
4438c4b7	37	use warnings ;
599cee73	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
4438c4b7	52	use warnings 'deprecated' ;
599cee73	53	my ($a, $b) = (0,0);
	54	1 if $a EQ $b ;
	55	1;
	56	--FILE--
4438c4b7	57	use warnings 'uninitialized' ;
599cee73	58	use abc;
	59	my $a ; chop $a ;
	60	EXPECT
	61	########
	62	-X
	63	--FILE-- abc
4438c4b7	64	use warnings 'deprecated' ;
599cee73	65	my ($a, $b) = (0,0);
	66	1 if $a EQ $b ;
	67	1;
	68	--FILE--
4438c4b7	69	use warnings 'uninitialized' ;
599cee73	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