[p5sagit/p5-mst-13.2.git] / t / pragma / strict-vars

Check strict vars functionality

__END__

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

########

use strict qw(subs refs) ;
$fred ;
EXPECT

########

use strict ;
no strict 'vars' ;
$fred ;
EXPECT

########

# strict vars - no error
use strict 'vars' ;
use vars qw( $freddy) ;
BEGIN { *freddy = \$joe::shmoe; }
$freddy = 2 ;
EXPECT

########

# strict vars - no error
use strict 'vars' ;
use vars qw( $freddy) ;
local $abc::joe ;
my $fred ;
my $b = \$fred ;
$Fred::ABC = 1 ;
$freddy = 2 ;
EXPECT

########

# strict vars - error
use strict ;
$fred ;
EXPECT
Global symbol "$fred" requires explicit package name at - line 4.
Execution of - aborted due to compilation errors.
########

# strict vars - error
use strict 'vars' ;
<$fred> ;
EXPECT
Global symbol "$fred" requires explicit package name at - line 4.
Execution of - aborted due to compilation errors.
########

# strict vars - error
use strict 'vars' ;
local $fred ;
EXPECT
Global symbol "$fred" requires explicit package name at - line 4.
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.
########

--FILE-- abc
$joe = 1 ;
1;
--FILE-- 
use strict 'vars' ;
require "./abc";
EXPECT

########

--FILE-- abc
use strict 'vars' ;
1;
--FILE-- 
require "./abc";
$joe = 1 ;
EXPECT

########

--FILE-- abc
use strict 'vars' ;
$joe = 1 ;
1;
--FILE-- 
$joe = 1 ;
require "./abc";
EXPECT
Variable "$joe" is not imported at ./abc line 2.
Global symbol "$joe" requires explicit package name at ./abc line 2.
Compilation failed in require at - line 2.
########

--FILE-- abc.pm
use strict 'vars' ;
$joe = 1 ;
1;
--FILE-- 
$joe = 1 ;
use abc;
EXPECT
Variable "$joe" is not imported at abc.pm line 2.
Global symbol "$joe" requires explicit package name at abc.pm line 2.
Compilation failed in require at - line 2.
BEGIN failed--compilation aborted at - line 2.
########

--FILE-- abc.pm
package Burp;
use strict;
$a = 1;$f = 1;$k = 1; # just to get beyond the limit...
$b = 1;$g = 1;$l = 1;
$c = 1;$h = 1;$m = 1;
$d = 1;$i = 1;$n = 1;
$e = 1;$j = 1;$o = 1;
$p = 0b12;
--FILE-- 
use abc;
EXPECT
Global symbol "$f" requires explicit package name at abc.pm line 3.
Global symbol "$k" requires explicit package name at abc.pm line 3.
Global symbol "$g" requires explicit package name at abc.pm line 4.
Global symbol "$l" requires explicit package name at abc.pm line 4.
Global symbol "$c" requires explicit package name at abc.pm line 5.
Global symbol "$h" requires explicit package name at abc.pm line 5.
Global symbol "$m" requires explicit package name at abc.pm line 5.
Global symbol "$d" requires explicit package name at abc.pm line 6.
Global symbol "$i" requires explicit package name at abc.pm line 6.
Global symbol "$n" requires explicit package name at abc.pm line 6.
Global symbol "$e" requires explicit package name at abc.pm line 7.
Global symbol "$j" requires explicit package name at abc.pm line 7.
Global symbol "$o" requires explicit package name at abc.pm line 7.
Global symbol "$p" requires explicit package name at abc.pm line 8.
Illegal binary digit '2' at abc.pm line 8, at end of line
abc.pm has too many errors.
Compilation failed in require at - line 1.
BEGIN failed--compilation aborted at - line 1.
########

# Check scope of pragma with eval
no strict ;
eval {
    $joe = 1 ;
};
print STDERR $@;
$joe = 1 ;
EXPECT

########

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

# Check scope of pragma with eval
use strict 'vars' ;
eval {
    $joe = 1 ;
};
print STDERR $@;
$joe = 1 ;
EXPECT
Global symbol "$joe" requires explicit package name at - line 5.
Global symbol "$joe" requires explicit package name at - line 8.
Execution of - aborted due to compilation errors.
########

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

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

########

# Check scope of pragma with eval
no strict ;
eval q[ 
    use strict 'vars' ;
    $joe = 1 ;
]; print STDERR $@;
EXPECT
Global symbol "$joe" requires explicit package name at (eval 1) line 3.
########

# Check scope of pragma with eval
use strict 'vars' ;
eval '
    $joe = 1 ;
'; print STDERR $@ ;
EXPECT
Global symbol "$joe" requires explicit package name at (eval 1) line 2.
########

# Check scope of pragma with eval
use strict 'vars' ;
eval '
    no strict ;
    $joe = 1 ;
'; print STDERR $@;
$joe = 1 ;
EXPECT
Global symbol "$joe" requires explicit package name at - line 8.
Execution of - aborted due to compilation errors.
########

# Check if multiple evals produce same errors
use strict 'vars';
my $ret = eval q{ print $x; };
print $@;
print "ok 1\n" unless defined $ret;
$ret = eval q{ print $x; };
print $@;
print "ok 2\n" unless defined $ret;
EXPECT
Global symbol "$x" requires explicit package name at (eval 1) line 1.
ok 1
Global symbol "$x" requires explicit package name at (eval 2) line 1.
ok 2
########

# strict vars with outer our - no error
use strict 'vars' ;
our $freddy;
local $abc::joe ;
my $fred ;
my $b = \$fred ;
$Fred::ABC = 1 ;
$freddy = 2 ;
EXPECT

########

# strict vars with inner our - no error
use strict 'vars' ;
sub foo {
    our $fred;
    $fred;
}
EXPECT

########

# strict vars with outer our, inner use - no error
use strict 'vars' ;
our $fred;
sub foo {
    $fred;
}
EXPECT

########

# strict vars with nested our - no error
use strict 'vars' ;
our $fred;
sub foo {
    our $fred;
    $fred;
}
$fred ;
EXPECT

########

# strict vars with elapsed our - error
use strict 'vars' ;
sub foo {
    our $fred;
    $fred;
}
$fred ;
EXPECT
Variable "$fred" is not imported at - line 8.
Global symbol "$fred" requires explicit package name at - line 8.
Execution of - aborted due to compilation errors.
########

# nested our with local - no error
$fred = 1;
use strict 'vars';
{
    local our $fred = 2;
    print $fred,"\n";
}
print our $fred,"\n";
EXPECT
2
1
########

# "nailed" our declaration visibility across package boundaries
use strict 'vars';
our $foo;
$foo = 20;
package Foo;
print $foo, "\n";
EXPECT
20
########

# multiple our declarations in same scope, different packages, no warning
use strict 'vars';
use warnings;
our $foo;
${foo} = 10;
package Foo;
our $foo = 20;
print $foo, "\n";
EXPECT
20
########

# multiple our declarations in same scope, same package, warning
use strict 'vars';
use warnings;
our $foo;
${foo} = 10;
our $foo;
EXPECT
"our" variable $foo masks earlier declaration in same scope at - line 7.
########

# multiple our declarations in same scope, same package, warning
use strict 'vars';
use warnings;
{ our $x = 1 }
{ our $x = 0 }
our $foo;
{
    our $foo;
    package Foo;
    our $foo;
}
EXPECT
"our" variable $foo redeclared at - line 9.
	(Did you mean "local" instead of "our"?)
Name "Foo::foo" used only once: possible typo at - line 11.
########

# Make sure the strict vars failure still occurs
# now that the `@i should be written as \@i' failure does not occur
# 20000522 mjd@plover.com (MJD)
use strict 'vars';
no warnings;
"@i_like_crackers";
EXPECT
Global symbol "@i_like_crackers" requires explicit package name at - line 7.
Execution of - aborted due to compilation errors.
Commit	Line	Data
8ebc5c01	1	Check strict vars 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(subs refs) ;
	15	$fred ;
	16	EXPECT
	17
	18	########
	19
	20	use strict ;
	21	no strict 'vars' ;
	22	$fred ;
	23	EXPECT
	24
	25	########
	26
	27	# strict vars - no error
	28	use strict 'vars' ;
	29	use vars qw( $freddy) ;
39bac7f7	30	BEGIN { *freddy = \$joe::shmoe; }
	31	$freddy = 2 ;
	32	EXPECT
	33
	34	########
	35
	36	# strict vars - no error
	37	use strict 'vars' ;
	38	use vars qw( $freddy) ;
8ebc5c01	39	local $abc::joe ;
	40	my $fred ;
	41	my $b = \$fred ;
	42	$Fred::ABC = 1 ;
	43	$freddy = 2 ;
	44	EXPECT
	45
	46	########
	47
	48	# strict vars - error
	49	use strict ;
	50	$fred ;
	51	EXPECT
2c4aebbd	52	Global symbol "$fred" requires explicit package name at - line 4.
8ebc5c01	53	Execution of - aborted due to compilation errors.
	54	########
	55
	56	# strict vars - error
	57	use strict 'vars' ;
f180df80	58	<$fred> ;
8ebc5c01	59	EXPECT
2c4aebbd	60	Global symbol "$fred" requires explicit package name at - line 4.
8ebc5c01	61	Execution of - aborted due to compilation errors.
	62	########
	63
	64	# strict vars - error
	65	use strict 'vars' ;
	66	local $fred ;
	67	EXPECT
2c4aebbd	68	Global symbol "$fred" requires explicit package name at - line 4.
8ebc5c01	69	Execution of - aborted due to compilation errors.
	70	########
	71
	72	# Check compile time scope of strict vars pragma
	73	use strict 'vars' ;
	74	{
	75	no strict ;
	76	$joe = 1 ;
	77	}
	78	$joe = 1 ;
	79	EXPECT
	80	Variable "$joe" is not imported at - line 8.
2c4aebbd	81	Global symbol "$joe" requires explicit package name at - line 8.
8ebc5c01	82	Execution of - aborted due to compilation errors.
	83	########
	84
	85	# Check compile time scope of strict vars pragma
	86	no strict;
	87	{
	88	use strict 'vars' ;
	89	$joe = 1 ;
	90	}
	91	$joe = 1 ;
	92	EXPECT
2c4aebbd	93	Global symbol "$joe" requires explicit package name at - line 6.
8ebc5c01	94	Execution of - aborted due to compilation errors.
	95	########
	96
	97	--FILE-- abc
	98	$joe = 1 ;
	99	1;
	100	--FILE--
	101	use strict 'vars' ;
	102	require "./abc";
	103	EXPECT
	104
	105	########
	106
	107	--FILE-- abc
	108	use strict 'vars' ;
	109	1;
	110	--FILE--
	111	require "./abc";
	112	$joe = 1 ;
	113	EXPECT
	114
	115	########
	116
	117	--FILE-- abc
	118	use strict 'vars' ;
	119	$joe = 1 ;
	120	1;
	121	--FILE--
	122	$joe = 1 ;
	123	require "./abc";
	124	EXPECT
	125	Variable "$joe" is not imported at ./abc line 2.
2c4aebbd	126	Global symbol "$joe" requires explicit package name at ./abc line 2.
7a2e2cd6	127	Compilation failed in require at - line 2.
8ebc5c01	128	########
	129
	130	--FILE-- abc.pm
	131	use strict 'vars' ;
	132	$joe = 1 ;
	133	1;
	134	--FILE--
	135	$joe = 1 ;
	136	use abc;
	137	EXPECT
	138	Variable "$joe" is not imported at abc.pm line 2.
2c4aebbd	139	Global symbol "$joe" requires explicit package name at abc.pm line 2.
7a2e2cd6	140	Compilation failed in require at - line 2.
8ebc5c01	141	BEGIN failed--compilation aborted at - line 2.
	142	########
	143
c7d6bfb2	144	--FILE-- abc.pm
	145	package Burp;
	146	use strict;
	147	$a = 1;$f = 1;$k = 1; # just to get beyond the limit...
	148	$b = 1;$g = 1;$l = 1;
	149	$c = 1;$h = 1;$m = 1;
	150	$d = 1;$i = 1;$n = 1;
	151	$e = 1;$j = 1;$o = 1;
	152	$p = 0b12;
	153	--FILE--
	154	use abc;
	155	EXPECT
	156	Global symbol "$f" requires explicit package name at abc.pm line 3.
	157	Global symbol "$k" requires explicit package name at abc.pm line 3.
	158	Global symbol "$g" requires explicit package name at abc.pm line 4.
	159	Global symbol "$l" requires explicit package name at abc.pm line 4.
	160	Global symbol "$c" requires explicit package name at abc.pm line 5.
	161	Global symbol "$h" requires explicit package name at abc.pm line 5.
	162	Global symbol "$m" requires explicit package name at abc.pm line 5.
	163	Global symbol "$d" requires explicit package name at abc.pm line 6.
	164	Global symbol "$i" requires explicit package name at abc.pm line 6.
	165	Global symbol "$n" requires explicit package name at abc.pm line 6.
	166	Global symbol "$e" requires explicit package name at abc.pm line 7.
	167	Global symbol "$j" requires explicit package name at abc.pm line 7.
	168	Global symbol "$o" requires explicit package name at abc.pm line 7.
	169	Global symbol "$p" requires explicit package name at abc.pm line 8.
	170	Illegal binary digit '2' at abc.pm line 8, at end of line
	171	abc.pm has too many errors.
7f01dc7a	172	Compilation failed in require at - line 1.
7f01dc7a	173	BEGIN failed--compilation aborted at - line 1.
c7d6bfb2	174	########
c7d6bfb2	175
8ebc5c01	176	# Check scope of pragma with eval
	177	no strict ;
	178	eval {
	179	$joe = 1 ;
	180	};
	181	print STDERR $@;
	182	$joe = 1 ;
	183	EXPECT
	184
	185	########
	186
	187	# Check scope of pragma with eval
	188	no strict ;
	189	eval {
	190	use strict 'vars' ;
	191	$joe = 1 ;
	192	};
	193	print STDERR $@;
	194	$joe = 1 ;
	195	EXPECT
2c4aebbd	196	Global symbol "$joe" requires explicit package name at - line 6.
8ebc5c01	197	Execution of - aborted due to compilation errors.
	198	########
	199
	200	# Check scope of pragma with eval
	201	use strict 'vars' ;
	202	eval {
	203	$joe = 1 ;
	204	};
	205	print STDERR $@;
	206	$joe = 1 ;
	207	EXPECT
2c4aebbd	208	Global symbol "$joe" requires explicit package name at - line 5.
5a844595	209	Global symbol "$joe" requires explicit package name at - line 8.
8ebc5c01	210	Execution of - aborted due to compilation errors.
	211	########
	212
	213	# Check scope of pragma with eval
	214	use strict 'vars' ;
	215	eval {
	216	no strict ;
	217	$joe = 1 ;
	218	};
	219	print STDERR $@;
	220	$joe = 1 ;
	221	EXPECT
	222	Variable "$joe" is not imported at - line 9.
2c4aebbd	223	Global symbol "$joe" requires explicit package name at - line 9.
8ebc5c01	224	Execution of - aborted due to compilation errors.
	225	########
	226
	227	# Check scope of pragma with eval
	228	no strict ;
	229	eval '
	230	$joe = 1 ;
	231	'; print STDERR $@ ;
	232	$joe = 1 ;
	233	EXPECT
	234
	235	########
	236
	237	# Check scope of pragma with eval
	238	no strict ;
	239	eval q[
	240	use strict 'vars' ;
	241	$joe = 1 ;
	242	]; print STDERR $@;
	243	EXPECT
2c4aebbd	244	Global symbol "$joe" requires explicit package name at (eval 1) line 3.
8ebc5c01	245	########
	246
	247	# Check scope of pragma with eval
	248	use strict 'vars' ;
	249	eval '
	250	$joe = 1 ;
	251	'; print STDERR $@ ;
	252	EXPECT
2c4aebbd	253	Global symbol "$joe" requires explicit package name at (eval 1) line 2.
8ebc5c01	254	########
	255
	256	# Check scope of pragma with eval
	257	use strict 'vars' ;
	258	eval '
	259	no strict ;
	260	$joe = 1 ;
	261	'; print STDERR $@;
	262	$joe = 1 ;
	263	EXPECT
2c4aebbd	264	Global symbol "$joe" requires explicit package name at - line 8.
8ebc5c01	265	Execution of - aborted due to compilation errors.
5a844595	266	########
	267
	268	# Check if multiple evals produce same errors
	269	use strict 'vars';
	270	my $ret = eval q{ print $x; };
	271	print $@;
	272	print "ok 1\n" unless defined $ret;
	273	$ret = eval q{ print $x; };
	274	print $@;
	275	print "ok 2\n" unless defined $ret;
	276	EXPECT
	277	Global symbol "$x" requires explicit package name at (eval 1) line 1.
	278	ok 1
	279	Global symbol "$x" requires explicit package name at (eval 2) line 1.
	280	ok 2
77ca0c92	281	########
	282
	283	# strict vars with outer our - no error
	284	use strict 'vars' ;
	285	our $freddy;
	286	local $abc::joe ;
	287	my $fred ;
	288	my $b = \$fred ;
	289	$Fred::ABC = 1 ;
	290	$freddy = 2 ;
	291	EXPECT
	292
	293	########
	294
	295	# strict vars with inner our - no error
	296	use strict 'vars' ;
	297	sub foo {
	298	our $fred;
	299	$fred;
	300	}
	301	EXPECT
	302
	303	########
	304
	305	# strict vars with outer our, inner use - no error
	306	use strict 'vars' ;
	307	our $fred;
	308	sub foo {
	309	$fred;
	310	}
	311	EXPECT
	312
	313	########
	314
	315	# strict vars with nested our - no error
	316	use strict 'vars' ;
	317	our $fred;
	318	sub foo {
	319	our $fred;
	320	$fred;
	321	}
	322	$fred ;
	323	EXPECT
	324
	325	########
	326
	327	# strict vars with elapsed our - error
	328	use strict 'vars' ;
	329	sub foo {
	330	our $fred;
	331	$fred;
	332	}
	333	$fred ;
	334	EXPECT
	335	Variable "$fred" is not imported at - line 8.
	336	Global symbol "$fred" requires explicit package name at - line 8.
	337	Execution of - aborted due to compilation errors.
	338	########
	339
	340	# nested our with local - no error
	341	$fred = 1;
	342	use strict 'vars';
	343	{
	344	local our $fred = 2;
345	print $fred,"\n";
346	}
347	print our $fred,"\n";
348	EXPECT
349	2
350	1
f472eb5c	351	########
	352
	353	# "nailed" our declaration visibility across package boundaries
	354	use strict 'vars';
	355	our $foo;
	356	$foo = 20;
	357	package Foo;
	358	print $foo, "\n";
	359	EXPECT
	360	20
	361	########
	362
	363	# multiple our declarations in same scope, different packages, no warning
	364	use strict 'vars';
	365	use warnings;
	366	our $foo;
	367	${foo} = 10;
	368	package Foo;
	369	our $foo = 20;
	370	print $foo, "\n";
	371	EXPECT
	372	20
	373	########
	374
	375	# multiple our declarations in same scope, same package, warning
	376	use strict 'vars';
	377	use warnings;
	378	our $foo;
	379	${foo} = 10;
	380	our $foo;
	381	EXPECT
	382	"our" variable $foo masks earlier declaration in same scope at - line 7.
33633739	383	########
	384
	385	# multiple our declarations in same scope, same package, warning
	386	use strict 'vars';
	387	use warnings;
5ce0178e	388	{ our $x = 1 }
5ce0178e	389	{ our $x = 0 }
33633739	390	our $foo;
	391	{
	392	our $foo;
	393	package Foo;
	394	our $foo;
	395	}
	396	EXPECT
5ce0178e	397	"our" variable $foo redeclared at - line 9.
cc507455	398	(Did you mean "local" instead of "our"?)
5ce0178e	399	Name "Foo::foo" used only once: possible typo at - line 11.
8593bda5	400	########
	401
	402	# Make sure the strict vars failure still occurs
	403	# now that the `@i should be written as \@i' failure does not occur
	404	# 20000522 mjd@plover.com (MJD)
	405	use strict 'vars';
	406	no warnings;
	407	"@i_like_crackers";
	408	EXPECT
	409	Global symbol "@i_like_crackers" requires explicit package name at - line 7.
	410	Execution of - aborted due to compilation errors.