[perl5.git] / t / lib / strict / subs

Check strict subs functionality

__END__

# no strict, should build & run ok.
Fred ;
my $fred ;
$b = "fred" ;
$a = $$b ;
EXPECT

########

use strict qw(refs vars);
Fred ;
EXPECT

########

use strict ;
no strict 'subs' ;
Fred ;
EXPECT

########

# strict subs - error
use strict 'subs' ;
my @a = (1..2);
my $b = xyz;
EXPECT
Bareword "xyz" not allowed while "strict subs" in use at - line 5.
Execution of - aborted due to compilation errors.
########

# strict subs - error
use strict 'subs' ;
Fred ;
EXPECT
Bareword "Fred" not allowed while "strict subs" in use at - line 4.
Execution of - aborted due to compilation errors.
########

# strict subs - error
use strict 'subs' ;
my @a = (A..Z);
EXPECT
Bareword "Z" not allowed while "strict subs" in use at - line 4.
Bareword "A" not allowed while "strict subs" in use at - line 4.
Execution of - aborted due to compilation errors.
########

# strict subs - error
use strict 'subs' ;
my $a = (B..Y);
EXPECT
Bareword "Y" not allowed while "strict subs" in use at - line 4.
Bareword "B" not allowed while "strict subs" in use at - line 4.
Execution of - aborted due to compilation errors.
########

# strict subs - error
use strict ;
Fred ;
EXPECT
Bareword "Fred" not allowed while "strict subs" in use at - line 4.
Execution of - aborted due to compilation errors.
########

# strict subs - no error
use strict 'subs' ;
sub Fred {}
Fred ;
EXPECT

########

# Check compile time scope of strict subs pragma
use strict 'subs' ;
{
    no strict ;
    my $a = Fred ;
}
my $a = Fred ;
EXPECT
Bareword "Fred" not allowed while "strict subs" in use at - line 8.
Execution of - aborted due to compilation errors.
########

# Check compile time scope of strict subs pragma
no strict;
{
    use strict 'subs' ;
    my $a = Fred ;
}
my $a = Fred ;
EXPECT
Bareword "Fred" not allowed while "strict subs" in use at - line 6.
Execution of - aborted due to compilation errors.
########

# Check compile time scope of strict vars pragma
use strict 'vars' ;
{
    no strict ;
    $joe = 1 ;
}
$joe = 1 ;
EXPECT
Variable "$joe" is not imported at - line 8.
Global symbol "$joe" requires explicit package name at - line 8.
Execution of - aborted due to compilation errors.
########

# Check compile time scope of strict vars pragma
no strict;
{
    use strict 'vars' ;
    $joe = 1 ;
}
$joe = 1 ;
EXPECT
Global symbol "$joe" requires explicit package name at - line 6.
Execution of - aborted due to compilation errors.
########

# Check runtime scope of strict refs pragma
use strict 'refs';
my $fred ;
my $b = "fred" ;
{
    no strict ;
    my $a = $$b ;
}
my $a = $$b ;
EXPECT
Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 10.
########

# Check runtime scope of strict refs pragma
no strict ;
my $fred ;
my $b = "fred" ;
{
    use strict 'refs' ;
    my $a = $$b ;
}
my $a = $$b ;
EXPECT
Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 8.
########

# Check runtime scope of strict refs pragma
no strict ;
my $fred ;
my $b = "fred" ;
{
    use strict 'refs' ;
    $a = sub { my $c = $$b ; }
}
&$a ;
EXPECT
Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 8.
########

use strict 'subs' ;
my $a = Fred ;
EXPECT
Bareword "Fred" not allowed while "strict subs" in use at - line 3.
Execution of - aborted due to compilation errors.
########

--FILE-- abc
my $a = Fred ;
1;
--FILE-- 
use strict 'subs' ;
require "./abc";
EXPECT

########

--FILE-- abc
use strict 'subs' ;
1;
--FILE-- 
require "./abc";
my $a = Fred ;
EXPECT

########

--FILE-- abc
use strict 'subs' ;
my $a = Fred ;
1;
--FILE-- 
Fred ;
require "./abc";
EXPECT
Bareword "Fred" not allowed while "strict subs" in use at ./abc line 2.
Compilation failed in require at - line 2.
########

--FILE-- abc.pm
use strict 'subs' ;
my $a = Fred ;
1;
--FILE-- 
Fred ;
use abc;
EXPECT
Bareword "Fred" not allowed while "strict subs" in use at abc.pm line 2.
Compilation failed in require at - line 2.
BEGIN failed--compilation aborted at - line 2.
########

# Check scope of pragma with eval
no strict ;
eval {
    my $a = Fred ;
};
print STDERR $@;
my $a = Fred ;
EXPECT

########

# Check scope of pragma with eval
no strict ;
eval {
    use strict 'subs' ;
    my $a = Fred ;
};
print STDERR $@;
my $a = Fred ;
EXPECT
Bareword "Fred" not allowed while "strict subs" in use at - line 6.
Execution of - aborted due to compilation errors.
########

# Check scope of pragma with eval
use strict 'subs' ;
eval {
    my $a = Fred ;
};
print STDERR $@;
my $a = Fred ;
EXPECT
Bareword "Fred" not allowed while "strict subs" in use at - line 5.
Bareword "Fred" not allowed while "strict subs" in use at - line 8.
Execution of - aborted due to compilation errors.
########

# Check scope of pragma with eval
use strict 'subs' ;
eval {
    no strict ;
    my $a = Fred ;
};
print STDERR $@;
my $a = Fred ;
EXPECT
Bareword "Fred" not allowed while "strict subs" in use at - line 9.
Execution of - aborted due to compilation errors.
########

# Check scope of pragma with eval
no strict ;
eval '
    Fred ;
'; print STDERR $@ ;
Fred ;
EXPECT

########

# Check scope of pragma with eval
no strict ;
eval q[ 
    use strict 'subs' ;
    Fred ;
]; print STDERR $@;
EXPECT
Bareword "Fred" not allowed while "strict subs" in use at (eval 1) line 3.
########

# Check scope of pragma with eval
use strict 'subs' ;
eval '
    Fred ;
'; print STDERR $@ ;
EXPECT
Bareword "Fred" not allowed while "strict subs" in use at (eval 1) line 2.
########

# Check scope of pragma with eval
use strict 'subs' ;
eval '
    no strict ;
    my $a = Fred ;
'; print STDERR $@;
my $a = Fred ;
EXPECT
Bareword "Fred" not allowed while "strict subs" in use at - line 8.
Execution of - aborted due to compilation errors.
########

# see if Foo->Bar(...) etc work under strictures
use strict;
package Foo; sub Bar { print "@_\n" }
Foo->Bar('a',1);
Bar Foo ('b',2);
Foo->Bar(qw/c 3/);
Bar Foo (qw/d 4/);
Foo::->Bar('A',1);
Bar Foo:: ('B',2);
Foo::->Bar(qw/C 3/);
Bar Foo:: (qw/D 4/);
EXPECT
Foo a 1
Foo b 2
Foo c 3
Foo d 4
Foo A 1
Foo B 2
Foo C 3
Foo D 4
########

# Check that barewords on the RHS of a regex match are caught
use strict;
"" =~ foo;
EXPECT
Bareword "foo" not allowed while "strict subs" in use at - line 4.
Execution of - aborted due to compilation errors.

########

# ID 20020703.002
use strict;
use warnings;
my $abc = XYZ ? 1 : 0;
print "$abc\n";
EXPECT
Bareword "XYZ" not allowed while "strict subs" in use at - line 5.
Execution of - aborted due to compilation errors.
########

# [perl #10021]
use strict;
use warnings;
print "" if BAREWORD;
EXPECT
Bareword "BAREWORD" not allowed while "strict subs" in use at - line 5.
Execution of - aborted due to compilation errors.
########
# Ticket: 18927
use strict 'subs';
print 1..1, bad;
EXPECT
Bareword "bad" not allowed while "strict subs" in use at - line 3.
Execution of - aborted due to compilation errors.
########
eval q{ use strict; no strict refs; };
print $@;
EXPECT
Bareword "refs" not allowed while "strict subs" in use at (eval 1) line 1.
########
# [perl #25147] 
use strict;
print "" if BAREWORD;
EXPECT
Bareword "BAREWORD" not allowed while "strict subs" in use at - line 3.
Execution of - aborted due to compilation errors.
########
# [perl #26910] hints not propagated into (?{...})
use strict 'subs';
qr/(?{my $x=foo})/;
EXPECT
Bareword "foo" not allowed while "strict subs" in use at (re_eval 1) line 1.
Compilation failed in regexp at - line 3.
########
#  [perl #27628] strict 'subs' didn't warn on bareword array index
use strict 'subs';
my $x=$a[FOO];
EXPECT
Bareword "FOO" not allowed while "strict subs" in use at - line 3.
Execution of - aborted due to compilation errors.
########
use strict 'subs';
my @a;my $x=$a[FOO];
EXPECT
Bareword "FOO" not allowed while "strict subs" in use at - line 2.
Execution of - aborted due to compilation errors.
########
# TODO: [perl #53806] No complain about bareword
use strict 'subs';
print FOO . "\n";
EXPECT
Bareword "FOO" not allowed while "strict subs" in use at - line 3.
Execution of - aborted due to compilation errors.
########
# TODO: [perl #53806] No complain about bareword
use strict 'subs';
$ENV{PATH} = "";
system(FOO . "\n");
EXPECT
Bareword "FOO" not allowed while "strict subs" in use at - line 4.
Execution of - aborted due to compilation errors.
Commit	Line	Data
8ebc5c01	1	Check strict subs functionality
	2
	3	__END__
	4
	5	# no strict, should build & run ok.
	6	Fred ;
	7	my $fred ;
	8	$b = "fred" ;
	9	$a = $$b ;
	10	EXPECT
	11
	12	########
	13
	14	use strict qw(refs vars);
	15	Fred ;
	16	EXPECT
	17
	18	########
	19
	20	use strict ;
	21	no strict 'subs' ;
	22	Fred ;
	23	EXPECT
	24
	25	########
	26
	27	# strict subs - error
	28	use strict 'subs' ;
c13f253a JH	29	my @a = (1..2);
	30	my $b = xyz;
	31	EXPECT
	32	Bareword "xyz" not allowed while "strict subs" in use at - line 5.
	33	Execution of - aborted due to compilation errors.
	34	########
	35
	36	# strict subs - error
	37	use strict 'subs' ;
8ebc5c01	38	Fred ;
	39	EXPECT
	40	Bareword "Fred" not allowed while "strict subs" in use at - line 4.
	41	Execution of - aborted due to compilation errors.
	42	########
	43
	44	# strict subs - error
7d4045d4 GS	45	use strict 'subs' ;
	46	my @a = (A..Z);
	47	EXPECT
	48	Bareword "Z" not allowed while "strict subs" in use at - line 4.
	49	Bareword "A" not allowed while "strict subs" in use at - line 4.
	50	Execution of - aborted due to compilation errors.
	51	########
	52
	53	# strict subs - error
	54	use strict 'subs' ;
	55	my $a = (B..Y);
	56	EXPECT
	57	Bareword "Y" not allowed while "strict subs" in use at - line 4.
	58	Bareword "B" not allowed while "strict subs" in use at - line 4.
	59	Execution of - aborted due to compilation errors.
	60	########
	61
	62	# strict subs - error
8ebc5c01	63	use strict ;
	64	Fred ;
	65	EXPECT
	66	Bareword "Fred" not allowed while "strict subs" in use at - line 4.
	67	Execution of - aborted due to compilation errors.
	68	########
	69
	70	# strict subs - no error
	71	use strict 'subs' ;
	72	sub Fred {}
	73	Fred ;
	74	EXPECT
	75
	76	########
	77
	78	# Check compile time scope of strict subs pragma
	79	use strict 'subs' ;
	80	{
	81	no strict ;
	82	my $a = Fred ;
	83	}
	84	my $a = Fred ;
	85	EXPECT
	86	Bareword "Fred" not allowed while "strict subs" in use at - line 8.
	87	Execution of - aborted due to compilation errors.
	88	########
	89
	90	# Check compile time scope of strict subs pragma
	91	no strict;
	92	{
	93	use strict 'subs' ;
	94	my $a = Fred ;
	95	}
	96	my $a = Fred ;
	97	EXPECT
	98	Bareword "Fred" not allowed while "strict subs" in use at - line 6.
	99	Execution of - aborted due to compilation errors.
	100	########
	101
	102	# Check compile time scope of strict vars pragma
	103	use strict 'vars' ;
	104	{
	105	no strict ;
	106	$joe = 1 ;
	107	}
	108	$joe = 1 ;
	109	EXPECT
	110	Variable "$joe" is not imported at - line 8.
2c4aebbd	111	Global symbol "$joe" requires explicit package name at - line 8.
8ebc5c01	112	Execution of - aborted due to compilation errors.
	113	########
	114
	115	# Check compile time scope of strict vars pragma
	116	no strict;
	117	{
	118	use strict 'vars' ;
	119	$joe = 1 ;
	120	}
	121	$joe = 1 ;
	122	EXPECT
2c4aebbd	123	Global symbol "$joe" requires explicit package name at - line 6.
8ebc5c01	124	Execution of - aborted due to compilation errors.
	125	########
	126
	127	# Check runtime scope of strict refs pragma
	128	use strict 'refs';
	129	my $fred ;
	130	my $b = "fred" ;
	131	{
	132	no strict ;
	133	my $a = $$b ;
	134	}
	135	my $a = $$b ;
	136	EXPECT
	137	Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 10.
	138	########
	139
	140	# Check runtime scope of strict refs pragma
	141	no strict ;
	142	my $fred ;
	143	my $b = "fred" ;
	144	{
	145	use strict 'refs' ;
	146	my $a = $$b ;
	147	}
	148	my $a = $$b ;
	149	EXPECT
	150	Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 8.
	151	########
	152
	153	# Check runtime scope of strict refs pragma
	154	no strict ;
	155	my $fred ;
	156	my $b = "fred" ;
	157	{
	158	use strict 'refs' ;
	159	$a = sub { my $c = $$b ; }
	160	}
	161	&$a ;
	162	EXPECT
	163	Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 8.
	164	########
	165
	166	use strict 'subs' ;
	167	my $a = Fred ;
	168	EXPECT
	169	Bareword "Fred" not allowed while "strict subs" in use at - line 3.
	170	Execution of - aborted due to compilation errors.
	171	########
	172
	173	--FILE-- abc
	174	my $a = Fred ;
	175	1;
	176	--FILE--
	177	use strict 'subs' ;
	178	require "./abc";
	179	EXPECT
	180
	181	########
	182
	183	--FILE-- abc
	184	use strict 'subs' ;
	185	1;
	186	--FILE--
	187	require "./abc";
188	my $a = Fred ;
189	EXPECT
190
191	########
192
193	--FILE-- abc
194	use strict 'subs' ;
195	my $a = Fred ;
196	1;
197	--FILE--
198	Fred ;
199	require "./abc";
200	EXPECT
201	Bareword "Fred" not allowed while "strict subs" in use at ./abc line 2.
7a2e2cd6	202	Compilation failed in require at - line 2.
8ebc5c01	203	########
	204
	205	--FILE-- abc.pm
	206	use strict 'subs' ;
	207	my $a = Fred ;
	208	1;
	209	--FILE--
	210	Fred ;
	211	use abc;
	212	EXPECT
	213	Bareword "Fred" not allowed while "strict subs" in use at abc.pm line 2.
7a2e2cd6	214	Compilation failed in require at - line 2.
8ebc5c01	215	BEGIN failed--compilation aborted at - line 2.
	216	########
	217
	218	# Check scope of pragma with eval
	219	no strict ;
	220	eval {
	221	my $a = Fred ;
	222	};
	223	print STDERR $@;
	224	my $a = Fred ;
	225	EXPECT
	226
	227	########
	228
	229	# Check scope of pragma with eval
	230	no strict ;
	231	eval {
	232	use strict 'subs' ;
	233	my $a = Fred ;
	234	};
	235	print STDERR $@;
	236	my $a = Fred ;
	237	EXPECT
	238	Bareword "Fred" not allowed while "strict subs" in use at - line 6.
	239	Execution of - aborted due to compilation errors.
	240	########
	241
	242	# Check scope of pragma with eval
	243	use strict 'subs' ;
	244	eval {
	245	my $a = Fred ;
	246	};
	247	print STDERR $@;
	248	my $a = Fred ;
	249	EXPECT
	250	Bareword "Fred" not allowed while "strict subs" in use at - line 5.
	251	Bareword "Fred" not allowed while "strict subs" in use at - line 8.
	252	Execution of - aborted due to compilation errors.
	253	########
	254
	255	# Check scope of pragma with eval
	256	use strict 'subs' ;
	257	eval {
	258	no strict ;
	259	my $a = Fred ;
	260	};
	261	print STDERR $@;
	262	my $a = Fred ;
	263	EXPECT
	264	Bareword "Fred" not allowed while "strict subs" in use at - line 9.
	265	Execution of - aborted due to compilation errors.
	266	########
	267
	268	# Check scope of pragma with eval
	269	no strict ;
	270	eval '
	271	Fred ;
	272	'; print STDERR $@ ;
	273	Fred ;
	274	EXPECT
	275
	276	########
	277
	278	# Check scope of pragma with eval
279	no strict ;
280	eval q[
281	use strict 'subs' ;
282	Fred ;
283	]; print STDERR $@;
284	EXPECT
285	Bareword "Fred" not allowed while "strict subs" in use at (eval 1) line 3.
286	########
287
288	# Check scope of pragma with eval
289	use strict 'subs' ;
290	eval '
291	Fred ;
292	'; print STDERR $@ ;
293	EXPECT
294	Bareword "Fred" not allowed while "strict subs" in use at (eval 1) line 2.
295	########
296
297	# Check scope of pragma with eval
298	use strict 'subs' ;
299	eval '
300	no strict ;
301	my $a = Fred ;
302	'; print STDERR $@;
303	my $a = Fred ;
304	EXPECT
305	Bareword "Fred" not allowed while "strict subs" in use at - line 8.
306	Execution of - aborted due to compilation errors.
58a40671 GS	307	########
	308
	309	# see if Foo->Bar(...) etc work under strictures
	310	use strict;
	311	package Foo; sub Bar { print "@_\n" }
	312	Foo->Bar('a',1);
	313	Bar Foo ('b',2);
	314	Foo->Bar(qw/c 3/);
	315	Bar Foo (qw/d 4/);
	316	Foo::->Bar('A',1);
	317	Bar Foo:: ('B',2);
	318	Foo::->Bar(qw/C 3/);
	319	Bar Foo:: (qw/D 4/);
	320	EXPECT
	321	Foo a 1
	322	Foo b 2
	323	Foo c 3
	324	Foo d 4
	325	Foo A 1
	326	Foo B 2
	327	Foo C 3
	328	Foo D 4
5cc9e5c9 RH	329	########
	330
	331	# Check that barewords on the RHS of a regex match are caught
	332	use strict;
	333	"" =~ foo;
	334	EXPECT
	335	Bareword "foo" not allowed while "strict subs" in use at - line 4.
	336	Execution of - aborted due to compilation errors.
2bc6235c K	337
	338	########
	339
	340	# ID 20020703.002
	341	use strict;
	342	use warnings;
	343	my $abc = XYZ ? 1 : 0;
	344	print "$abc\n";
	345	EXPECT
	346	Bareword "XYZ" not allowed while "strict subs" in use at - line 5.
	347	Execution of - aborted due to compilation errors.
989dfb19 K	348	########
	349
	350	# [perl #10021]
	351	use strict;
	352	use warnings;
	353	print "" if BAREWORD;
	354	EXPECT
4a06f842	355	Bareword "BAREWORD" not allowed while "strict subs" in use at - line 5.
989dfb19	356	Execution of - aborted due to compilation errors.
3b9d2129 AT	357	########
	358	# Ticket: 18927
	359	use strict 'subs';
	360	print 1..1, bad;
	361	EXPECT
	362	Bareword "bad" not allowed while "strict subs" in use at - line 3.
	363	Execution of - aborted due to compilation errors.
7678c486 AE	364	########
	365	eval q{ use strict; no strict refs; };
	366	print $@;
	367	EXPECT
	368	Bareword "refs" not allowed while "strict subs" in use at (eval 1) line 1.
687305a0 DM	369	########
	370	# [perl #25147]
	371	use strict;
	372	print "" if BAREWORD;
	373	EXPECT
	374	Bareword "BAREWORD" not allowed while "strict subs" in use at - line 3.
	375	Execution of - aborted due to compilation errors.
35d90494 RGS	376	########
	377	# [perl #26910] hints not propagated into (?{...})
	378	use strict 'subs';
	379	qr/(?{my $x=foo})/;
	380	EXPECT
	381	Bareword "foo" not allowed while "strict subs" in use at (re_eval 1) line 1.
	382	Compilation failed in regexp at - line 3.
af5acbb4 DM	383	########
	384	# [perl #27628] strict 'subs' didn't warn on bareword array index
	385	use strict 'subs';
	386	my $x=$a[FOO];
	387	EXPECT
	388	Bareword "FOO" not allowed while "strict subs" in use at - line 3.
	389	Execution of - aborted due to compilation errors.
	390	########
	391	use strict 'subs';
	392	my @a;my $x=$a[FOO];
	393	EXPECT
	394	Bareword "FOO" not allowed while "strict subs" in use at - line 2.
	395	Execution of - aborted due to compilation errors.
ace56ae5 RGS	396	########
	397	# TODO: [perl #53806] No complain about bareword
	398	use strict 'subs';
	399	print FOO . "\n";
	400	EXPECT
	401	Bareword "FOO" not allowed while "strict subs" in use at - line 3.
	402	Execution of - aborted due to compilation errors.
	403	########
	404	# TODO: [perl #53806] No complain about bareword
	405	use strict 'subs';
	406	$ENV{PATH} = "";
	407	system(FOO . "\n");
	408	EXPECT
	409	Bareword "FOO" not allowed while "strict subs" in use at - line 4.
	410	Execution of - aborted due to compilation errors.