[p5sagit/p5-mst-13.2.git] / t / lib / strict / refs

Check strict refs functionality

__END__

# no strict, should build & run ok.
my $fred ;
$b = "fred" ;
$a = $$b ;
$c = ${"def"} ;
$c = @{"def"} ;
$c = %{"def"} ;
$c = *{"def"} ;
$c = \&{"def"} ;
$c = def->[0];
$c = def->{xyz};
EXPECT

########

# strict refs - error
use strict ;
my $fred ;
my $a = ${"fred"} ;
EXPECT
Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 5.
########

# strict refs - error
use strict 'refs' ;
my $fred ;
my $a = ${"fred"} ;
EXPECT
Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 5.
########

# strict refs - error
use strict 'refs' ;
my $fred ;
my $b = "fred" ;
my $a = $$b ;
EXPECT
Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 6.
########

# strict refs - error
use strict 'refs' ;
my $b ;
my $a = $$b ;
EXPECT
Can't use an undefined value as a SCALAR reference at - line 5.
########

# strict refs - error
use strict 'refs' ;
my $b ;
my $a = @$b ;
EXPECT
Can't use an undefined value as an ARRAY reference at - line 5.
########

# strict refs - error
use strict 'refs' ;
my $b ;
my $a = %$b ;
EXPECT
Can't use an undefined value as a HASH reference at - line 5.
########

# strict refs - error
use strict 'refs' ;
my $b ;
my $a = *$b ;
EXPECT
Can't use an undefined value as a symbol reference at - line 5.
########

# strict refs - error
use strict 'refs' ;
my $a = fred->[0] ;
EXPECT
Can't use bareword ("fred") as an ARRAY ref while "strict refs" in use at - line 4.
########

# strict refs - error
use strict 'refs' ;
my $a = fred->{barney} ;
EXPECT
Can't use bareword ("fred") as a HASH ref while "strict refs" in use at - line 4.
########

# strict refs - no error
use strict ;
no strict 'refs' ;
my $fred ;
my $b = "fred" ;
my $a = $$b ;
use strict 'refs' ;
EXPECT

########

# strict refs - no error
use strict qw(subs vars) ;
my $fred ;
my $b = "fred" ;
my $a = $$b ;
use strict 'refs' ;
EXPECT

########

# strict refs - no error
my $fred ;
my $b = "fred" ;
my $a = $$b ;
use strict 'refs' ;
EXPECT

########

# strict refs - no error
use strict 'refs' ;
my $fred ;
my $b = \$fred ;
my $a = $$b ;
EXPECT

########

# 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.
########


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

########

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

########

--FILE-- abc
use strict 'refs' ;
my $a = ${"Fred"} ;
1;
--FILE-- 
${"Fred"} ;
require "./abc";
EXPECT
Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at ./abc line 2.
Compilation failed in require at - line 2.
########

--FILE-- abc.pm
use strict 'refs' ;
my $a = ${"Fred"} ;
1;
--FILE-- 
my $a = ${"Fred"} ;
use abc;
EXPECT
Can't use string ("Fred") as a SCALAR ref while "strict refs" 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 'refs' ;
    my $a = ${"Fred"} ;
};
print STDERR $@ ;
my $a = ${"Fred"} ;
EXPECT
Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at - line 6.
########

# Check scope of pragma with eval
use strict 'refs' ;
eval {
    my $a = ${"Fred"} ;
};
print STDERR $@ ;
EXPECT
Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at - line 5.
########

# Check scope of pragma with eval
use strict 'refs' ;
eval {
    no strict ;
    my $a = ${"Fred"} ;
};
print STDERR $@ ;
my $a = ${"Fred"} ;
EXPECT
Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at - line 9.
########

# 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 q[ 
    use strict 'refs' ;
    my $a = ${"Fred"} ;
]; print STDERR $@;
EXPECT
Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at (eval 1) line 3.
########

# Check scope of pragma with eval
use strict 'refs' ;
eval '
    my $a = ${"Fred"} ;
'; print STDERR $@ ;
EXPECT
Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at (eval 1) line 2.
########

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