[p5sagit/p5-mst-13.2.git] / t / pragma / warn / 7fatal

Check FATAL functionality

__END__

# Check compile time warning
use warnings FATAL => 'syntax' ;
{
    no warnings ;
    $a =+ 1 ;
}
$a =+ 1 ;
print STDERR "The End.\n" ;
EXPECT
Reversed += operator at - line 8.
########

# Check compile time warning
use warnings FATAL => 'all' ;
{
    no warnings ;
    my $a =+ 1 ;
}
my $a =+ 1 ;
print STDERR "The End.\n" ;
EXPECT
Reversed += operator at - line 8.
########

# Check runtime scope of pragma
use warnings FATAL => 'uninitialized' ;
{
    no warnings ;
    my $b ; chop $b ;
}
my $b ; chop $b ;
print STDERR "The End.\n" ;
EXPECT
Use of uninitialized value in scalar chop at - line 8.
########

# Check runtime scope of pragma
use warnings FATAL => 'all' ;
{
    no warnings ;
    my $b ; chop $b ;
}
my $b ; chop $b ;
print STDERR "The End.\n" ;
EXPECT
Use of uninitialized value in scalar chop at - line 8.
########

# Check runtime scope of pragma
no warnings ;
{
    use warnings FATAL => 'uninitialized' ;
    $a = sub { my $b ; chop $b ; }
}
&$a ;
print STDERR "The End.\n" ;
EXPECT
Use of uninitialized value in scalar chop at - line 6.
########

# Check runtime scope of pragma
no warnings ;
{
    use warnings FATAL => 'all' ;
    $a = sub { my $b ; chop $b ; }
}
&$a ;
print STDERR "The End.\n" ;
EXPECT
Use of uninitialized value in scalar chop at - line 6.
########

--FILE-- abc
$a =+ 1 ;
1;
--FILE-- 
use warnings FATAL => 'syntax' ;
require "./abc";
EXPECT

########

--FILE-- abc
use warnings FATAL => 'syntax' ;
1;
--FILE-- 
require "./abc";
$a =+ 1 ;
EXPECT

########

--FILE-- abc
use warnings 'syntax' ;
$a =+ 1 ;
1;
--FILE-- 
use warnings FATAL => 'uninitialized' ;
require "./abc";
my $a ; chop $a ;
print STDERR "The End.\n" ;
EXPECT
Reversed += operator at ./abc line 2.
Use of uninitialized value in scalar chop at - line 3.
########

--FILE-- abc.pm
use warnings 'syntax' ;
$a =+ 1 ;
1;
--FILE-- 
use warnings FATAL => 'uninitialized' ;
use abc;
my $a ; chop $a ;
print STDERR "The End.\n" ;
EXPECT
Reversed += operator at abc.pm line 2.
Use of uninitialized value in scalar chop at - line 3.
########

# Check scope of pragma with eval
no warnings ;
eval {
    use warnings FATAL => 'uninitialized' ;
    my $b ; chop $b ;
}; print STDERR "-- $@" ;
my $b ; chop $b ;
print STDERR "The End.\n" ;
EXPECT
-- Use of uninitialized value in scalar chop at - line 6.
The End.
########

# Check scope of pragma with eval
use warnings FATAL => 'uninitialized' ;
eval {
    my $b ; chop $b ;
}; print STDERR "-- $@" ;
my $b ; chop $b ;
print STDERR "The End.\n" ;
EXPECT
-- Use of uninitialized value in scalar chop at - line 5.
Use of uninitialized value in scalar chop at - line 7.
########

# Check scope of pragma with eval
use warnings FATAL => 'uninitialized' ;
eval {
    no warnings ;
    my $b ; chop $b ;
}; print STDERR $@ ;
my $b ; chop $b ;
print STDERR "The End.\n" ;
EXPECT
Use of uninitialized value in scalar chop at - line 8.
########

# Check scope of pragma with eval
no warnings ;
eval {
    use warnings FATAL => 'syntax' ;
    $a =+ 1 ;
}; print STDERR "-- $@" ;
$a =+ 1 ;
print STDERR "The End.\n" ;
EXPECT
Reversed += operator at - line 6.
########

# Check scope of pragma with eval
use warnings FATAL => 'syntax' ;
eval {
    $a =+ 1 ;
}; print STDERR "-- $@" ;
$a =+ 1 ;
print STDERR "The End.\n" ;
EXPECT
Reversed += operator at - line 5.
########

# Check scope of pragma with eval
use warnings FATAL => 'syntax' ;
eval {
    no warnings ;
    $a =+ 1 ;
}; print STDERR $@ ;
$a =+ 1 ;
print STDERR "The End.\n" ;
EXPECT
Reversed += operator at - line 8.
########

# Check scope of pragma with eval
no warnings ;
eval {
    use warnings FATAL => 'syntax' ;
}; print STDERR $@ ;
$a =+ 1 ;
print STDERR "The End.\n" ;
EXPECT
The End.
########

# Check scope of pragma with eval
no warnings ;
eval q[ 
    use warnings FATAL => 'uninitialized' ;
    my $b ; chop $b ;
]; print STDERR "-- $@";
my $b ; chop $b ;
print STDERR "The End.\n" ;
EXPECT
-- Use of uninitialized value in scalar chop at (eval 1) line 3.
The End.
########

# Check scope of pragma with eval
use warnings FATAL => 'uninitialized' ;
eval '
    my $b ; chop $b ;
'; print STDERR "-- $@" ;
my $b ; chop $b ;
print STDERR "The End.\n" ;
EXPECT
-- Use of uninitialized value in scalar chop at (eval 1) line 2.
Use of uninitialized value in scalar chop at - line 7.
########

# Check scope of pragma with eval
use warnings FATAL => 'uninitialized' ;
eval '
    no warnings ;
    my $b ; chop $b ;
'; print STDERR $@ ;
my $b ; chop $b ;
print STDERR "The End.\n" ;
EXPECT
Use of uninitialized value in scalar chop at - line 8.
########

# Check scope of pragma with eval
no warnings ;
eval q[ 
    use warnings FATAL => 'syntax' ;
    $a =+ 1 ;
]; print STDERR "-- $@";
$a =+ 1 ;
print STDERR "The End.\n" ;
EXPECT
-- Reversed += operator at (eval 1) line 3.
The End.
########

# Check scope of pragma with eval
use warnings FATAL => 'syntax' ;
eval '
    $a =+ 1 ;
'; print STDERR "-- $@";
print STDERR "The End.\n" ;
EXPECT
-- Reversed += operator at (eval 1) line 2.
The End.
########

# Check scope of pragma with eval
use warnings FATAL => 'syntax' ;
eval '
    no warnings ;
    $a =+ 1 ;
'; print STDERR "-- $@";
$a =+ 1 ;
print STDERR "The End.\n" ;
EXPECT
Reversed += operator at - line 8.
########

use warnings 'void' ;

time ;

{
    use warnings FATAL => qw(void) ;
    length "abc" ;
}

join "", 1,2,3 ;

print "done\n" ;
EXPECT
Useless use of time in void context at - line 4.
Useless use of length in void context at - line 8.
########

use warnings ;

time ;

{
    use warnings FATAL => qw(void) ;
    length "abc" ;
}

join "", 1,2,3 ;

print "done\n" ;
EXPECT
Useless use of time in void context at - line 4.
Useless use of length in void context at - line 8.
Commit	Line	Data
4438c4b7	1	Check FATAL functionality
	2
	3	__END__
	4
	5	# Check compile time warning
4b19af01	6	use warnings FATAL => 'syntax' ;
4438c4b7	7	{
4438c4b7	8	no warnings ;
4b19af01	9	$a =+ 1 ;
4438c4b7	10	}
4b19af01	11	$a =+ 1 ;
4438c4b7	12	print STDERR "The End.\n" ;
4438c4b7	13	EXPECT
4b19af01	14	Reversed += operator at - line 8.
4438c4b7	15	########
4438c4b7	16
ee8c7f54	17	# Check compile time warning
	18	use warnings FATAL => 'all' ;
	19	{
	20	no warnings ;
4b19af01	21	my $a =+ 1 ;
ee8c7f54	22	}
4b19af01	23	my $a =+ 1 ;
ee8c7f54	24	print STDERR "The End.\n" ;
ee8c7f54	25	EXPECT
4b19af01	26	Reversed += operator at - line 8.
ee8c7f54	27	########
ee8c7f54	28
4438c4b7	29	# Check runtime scope of pragma
	30	use warnings FATAL => 'uninitialized' ;
	31	{
	32	no warnings ;
	33	my $b ; chop $b ;
	34	}
	35	my $b ; chop $b ;
	36	print STDERR "The End.\n" ;
	37	EXPECT
146174a9	38	Use of uninitialized value in scalar chop at - line 8.
4438c4b7	39	########
	40
	41	# Check runtime scope of pragma
ee8c7f54	42	use warnings FATAL => 'all' ;
	43	{
	44	no warnings ;
	45	my $b ; chop $b ;
	46	}
	47	my $b ; chop $b ;
	48	print STDERR "The End.\n" ;
	49	EXPECT
	50	Use of uninitialized value in scalar chop at - line 8.
	51	########
	52
	53	# Check runtime scope of pragma
4438c4b7	54	no warnings ;
	55	{
	56	use warnings FATAL => 'uninitialized' ;
	57	$a = sub { my $b ; chop $b ; }
	58	}
	59	&$a ;
	60	print STDERR "The End.\n" ;
	61	EXPECT
146174a9	62	Use of uninitialized value in scalar chop at - line 6.
4438c4b7	63	########
ee8c7f54	64
	65	# Check runtime scope of pragma
	66	no warnings ;
	67	{
	68	use warnings FATAL => 'all' ;
	69	$a = sub { my $b ; chop $b ; }
	70	}
	71	&$a ;
	72	print STDERR "The End.\n" ;
	73	EXPECT
	74	Use of uninitialized value in scalar chop at - line 6.
	75	########
4438c4b7	76
4438c4b7	77	--FILE-- abc
4b19af01	78	$a =+ 1 ;
4438c4b7	79	1;
4438c4b7	80	--FILE--
4b19af01	81	use warnings FATAL => 'syntax' ;
4438c4b7	82	require "./abc";
	83	EXPECT
	84
	85	########
	86
	87	--FILE-- abc
4b19af01	88	use warnings FATAL => 'syntax' ;
4438c4b7	89	1;
	90	--FILE--
	91	require "./abc";
4b19af01	92	$a =+ 1 ;
4438c4b7	93	EXPECT
	94
	95	########
	96
	97	--FILE-- abc
4b19af01	98	use warnings 'syntax' ;
4b19af01	99	$a =+ 1 ;
4438c4b7	100	1;
	101	--FILE--
	102	use warnings FATAL => 'uninitialized' ;
	103	require "./abc";
	104	my $a ; chop $a ;
	105	print STDERR "The End.\n" ;
	106	EXPECT
4b19af01	107	Reversed += operator at ./abc line 2.
146174a9	108	Use of uninitialized value in scalar chop at - line 3.
4438c4b7	109	########
	110
	111	--FILE-- abc.pm
4b19af01	112	use warnings 'syntax' ;
4b19af01	113	$a =+ 1 ;
4438c4b7	114	1;
	115	--FILE--
	116	use warnings FATAL => 'uninitialized' ;
	117	use abc;
	118	my $a ; chop $a ;
	119	print STDERR "The End.\n" ;
	120	EXPECT
4b19af01	121	Reversed += operator at abc.pm line 2.
146174a9	122	Use of uninitialized value in scalar chop at - line 3.
4438c4b7	123	########
	124
	125	# Check scope of pragma with eval
	126	no warnings ;
	127	eval {
	128	use warnings FATAL => 'uninitialized' ;
	129	my $b ; chop $b ;
	130	}; print STDERR "-- $@" ;
	131	my $b ; chop $b ;
	132	print STDERR "The End.\n" ;
	133	EXPECT
146174a9	134	-- Use of uninitialized value in scalar chop at - line 6.
4438c4b7	135	The End.
	136	########
	137
	138	# Check scope of pragma with eval
	139	use warnings FATAL => 'uninitialized' ;
	140	eval {
	141	my $b ; chop $b ;
	142	}; print STDERR "-- $@" ;
	143	my $b ; chop $b ;
	144	print STDERR "The End.\n" ;
	145	EXPECT
146174a9	146	-- Use of uninitialized value in scalar chop at - line 5.
146174a9	147	Use of uninitialized value in scalar chop at - line 7.
4438c4b7	148	########
	149
	150	# Check scope of pragma with eval
	151	use warnings FATAL => 'uninitialized' ;
	152	eval {
	153	no warnings ;
	154	my $b ; chop $b ;
	155	}; print STDERR $@ ;
	156	my $b ; chop $b ;
	157	print STDERR "The End.\n" ;
	158	EXPECT
146174a9	159	Use of uninitialized value in scalar chop at - line 8.
4438c4b7	160	########
	161
	162	# Check scope of pragma with eval
	163	no warnings ;
	164	eval {
4b19af01	165	use warnings FATAL => 'syntax' ;
4b19af01	166	$a =+ 1 ;
4438c4b7	167	}; print STDERR "-- $@" ;
4b19af01	168	$a =+ 1 ;
4438c4b7	169	print STDERR "The End.\n" ;
4438c4b7	170	EXPECT
4b19af01	171	Reversed += operator at - line 6.
4438c4b7	172	########
	173
	174	# Check scope of pragma with eval
4b19af01	175	use warnings FATAL => 'syntax' ;
4438c4b7	176	eval {
4b19af01	177	$a =+ 1 ;
4438c4b7	178	}; print STDERR "-- $@" ;
4b19af01	179	$a =+ 1 ;
4438c4b7	180	print STDERR "The End.\n" ;
4438c4b7	181	EXPECT
4b19af01	182	Reversed += operator at - line 5.
4438c4b7	183	########
	184
	185	# Check scope of pragma with eval
4b19af01	186	use warnings FATAL => 'syntax' ;
4438c4b7	187	eval {
4438c4b7	188	no warnings ;
4b19af01	189	$a =+ 1 ;
4438c4b7	190	}; print STDERR $@ ;
4b19af01	191	$a =+ 1 ;
4438c4b7	192	print STDERR "The End.\n" ;
4438c4b7	193	EXPECT
4b19af01	194	Reversed += operator at - line 8.
4438c4b7	195	########
	196
	197	# Check scope of pragma with eval
	198	no warnings ;
	199	eval {
4b19af01	200	use warnings FATAL => 'syntax' ;
4438c4b7	201	}; print STDERR $@ ;
4b19af01	202	$a =+ 1 ;
4438c4b7	203	print STDERR "The End.\n" ;
	204	EXPECT
	205	The End.
	206	########
	207
	208	# Check scope of pragma with eval
	209	no warnings ;
	210	eval q[
	211	use warnings FATAL => 'uninitialized' ;
	212	my $b ; chop $b ;
	213	]; print STDERR "-- $@";
	214	my $b ; chop $b ;
	215	print STDERR "The End.\n" ;
	216	EXPECT
146174a9	217	-- Use of uninitialized value in scalar chop at (eval 1) line 3.
4438c4b7	218	The End.
	219	########
	220
	221	# Check scope of pragma with eval
	222	use warnings FATAL => 'uninitialized' ;
	223	eval '
	224	my $b ; chop $b ;
	225	'; print STDERR "-- $@" ;
	226	my $b ; chop $b ;
	227	print STDERR "The End.\n" ;
	228	EXPECT
146174a9	229	-- Use of uninitialized value in scalar chop at (eval 1) line 2.
146174a9	230	Use of uninitialized value in scalar chop at - line 7.
4438c4b7	231	########
	232
	233	# Check scope of pragma with eval
	234	use warnings FATAL => 'uninitialized' ;
	235	eval '
	236	no warnings ;
	237	my $b ; chop $b ;
	238	'; print STDERR $@ ;
	239	my $b ; chop $b ;
	240	print STDERR "The End.\n" ;
	241	EXPECT
146174a9	242	Use of uninitialized value in scalar chop at - line 8.
4438c4b7	243	########
	244
	245	# Check scope of pragma with eval
	246	no warnings ;
	247	eval q[
4b19af01	248	use warnings FATAL => 'syntax' ;
4b19af01	249	$a =+ 1 ;
4438c4b7	250	]; print STDERR "-- $@";
4b19af01	251	$a =+ 1 ;
4438c4b7	252	print STDERR "The End.\n" ;
4438c4b7	253	EXPECT
4b19af01	254	-- Reversed += operator at (eval 1) line 3.
4438c4b7	255	The End.
	256	########
	257
	258	# Check scope of pragma with eval
4b19af01	259	use warnings FATAL => 'syntax' ;
4438c4b7	260	eval '
4b19af01	261	$a =+ 1 ;
4438c4b7	262	'; print STDERR "-- $@";
	263	print STDERR "The End.\n" ;
	264	EXPECT
4b19af01	265	-- Reversed += operator at (eval 1) line 2.
4438c4b7	266	The End.
	267	########
	268
	269	# Check scope of pragma with eval
4b19af01	270	use warnings FATAL => 'syntax' ;
4438c4b7	271	eval '
4438c4b7	272	no warnings ;
4b19af01	273	$a =+ 1 ;
4438c4b7	274	'; print STDERR "-- $@";
4b19af01	275	$a =+ 1 ;
4438c4b7	276	print STDERR "The End.\n" ;
4438c4b7	277	EXPECT
4b19af01	278	Reversed += operator at - line 8.
22d4bb9c	279	########
	280
	281	use warnings 'void' ;
	282
	283	time ;
	284
	285	{
	286	use warnings FATAL => qw(void) ;
	287	length "abc" ;
	288	}
	289
	290	join "", 1,2,3 ;
	291
	292	print "done\n" ;
	293	EXPECT
	294	Useless use of time in void context at - line 4.
	295	Useless use of length in void context at - line 8.
	296	########
	297
	298	use warnings ;
	299
	300	time ;
	301
	302	{
	303	use warnings FATAL => qw(void) ;
	304	length "abc" ;
	305	}
	306
	307	join "", 1,2,3 ;
	308
	309	print "done\n" ;
	310	EXPECT
	311	Useless use of time in void context at - line 4.
	312	Useless use of length in void context at - line 8.