Context Navigation

subs

Visit:

Last change on this file was 3181, checked in by bird, 19 years ago
perl 5.8.8
File size: 7.6 KB

Line
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' ;
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' ;
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
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
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.
111	Global symbol "$joe" requires explicit package name at - line 8.
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
123	Global symbol "$joe" requires explicit package name at - line 6.
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.
202	Compilation failed in require at - line 2.
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.
214	Compilation failed in require at - line 2.
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.
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
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.
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.
348	########
349
350	# [perl #10021]
351	use strict;
352	use warnings;
353	print "" if BAREWORD;
354	EXPECT
355	Bareword "BAREWORD" not allowed while "strict subs" in use at - line 5.
356	Execution of - aborted due to compilation errors.
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.
364	########
365	# [perl #25147]
366	use strict;
367	print "" if BAREWORD;
368	EXPECT
369	Bareword "BAREWORD" not allowed while "strict subs" in use at - line 3.
370	Execution of - aborted due to compilation errors.
371	########
372	# [perl #26910] hints not propagated into (?{...})
373	use strict 'subs';
374	qr/(?{my $x=foo})/;
375	EXPECT
376	Bareword "foo" not allowed while "strict subs" in use at (re_eval 1) line 1.
377	Compilation failed in regexp at - line 3.
378	########
379	# [perl #27628] strict 'subs' didn't warn on bareword array index
380	use strict 'subs';
381	my $x=$a[FOO];
382	EXPECT
383	Bareword "FOO" not allowed while "strict subs" in use at - line 3.
384	Execution of - aborted due to compilation errors.
385	########
386	use strict 'subs';
387	my @a;my $x=$a[FOO];
388	EXPECT
389	Bareword "FOO" not allowed while "strict subs" in use at - line 2.
390	Execution of - aborted due to compilation errors.

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format