This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
e8f75660b80969de04d90d069e94b6106c12a166
[perl5.git] / t / lib / strict / refs
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"} ;
14 $c = def->[0];
15 $c = def->{xyz};
16 EXPECT
17
18 ########
19
20 # strict refs - error
21 use strict ;
22 my $str="A::Really::Big::Package::Name::To::Use"; 
23 $str->{foo}= 1;
24 EXPECT
25 Can't use string ("A::Really::Big::Package::Name::T"...) as a HASH ref while "strict refs" in use at - line 5.
26 ########
27
28 # strict refs - error
29 use strict ;
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 $a = ${"fred"} ;
40 EXPECT
41 Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 5.
42 ########
43
44 # strict refs - error
45 use strict 'refs' ;
46 my $fred ;
47 my $b = "fred" ;
48 my $a = $$b ;
49 EXPECT
50 Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 6.
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 a SCALAR 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 an ARRAY 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 HASH reference at - line 5.
75 ########
76
77 # strict refs - error
78 use strict 'refs' ;
79 my $b ;
80 my $a = *$b ;
81 EXPECT
82 Can't use an undefined value as a symbol reference at - line 5.
83 ########
84
85 # strict refs - error
86 use strict 'refs' ;
87 my $a = fred->[0] ;
88 EXPECT
89 Can't use bareword ("fred") as an ARRAY ref while "strict refs" in use at - line 4.
90 ########
91
92 # strict refs - error
93 use strict 'refs' ;
94 my $a = fred->{barney} ;
95 EXPECT
96 Can't use bareword ("fred") as a HASH ref while "strict refs" in use at - line 4.
97 ########
98
99 # strict refs - no error
100 use strict ;
101 no strict 'refs' ;
102 my $fred ;
103 my $b = "fred" ;
104 my $a = $$b ;
105 use strict 'refs' ;
106 EXPECT
107
108 ########
109
110 # strict refs - no error
111 use strict qw(subs vars) ;
112 my $fred ;
113 my $b = "fred" ;
114 my $a = $$b ;
115 use strict 'refs' ;
116 EXPECT
117
118 ########
119
120 # strict refs - no error
121 my $fred ;
122 my $b = "fred" ;
123 my $a = $$b ;
124 use strict 'refs' ;
125 EXPECT
126
127 ########
128
129 # strict refs - no error
130 use strict 'refs' ;
131 my $fred ;
132 my $b = \$fred ;
133 my $a = $$b ;
134 EXPECT
135
136 ########
137
138 # Check runtime scope of strict refs pragma
139 use strict 'refs';
140 my $fred ;
141 my $b = "fred" ;
142 {
143     no strict ;
144     my $a = $$b ;
145 }
146 my $a = $$b ;
147 EXPECT
148 Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 10.
149 ########
150
151 # Check runtime scope of strict refs pragma
152 no strict ;
153 my $fred ;
154 my $b = "fred" ;
155 {
156     use strict 'refs' ;
157     my $a = $$b ;
158 }
159 my $a = $$b ;
160 EXPECT
161 Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 8.
162 ########
163
164 # Check runtime scope of strict refs pragma
165 no strict ;
166 my $fred ;
167 my $b = "fred" ;
168 {
169     use strict 'refs' ;
170     $a = sub { my $c = $$b ; }
171 }
172 &$a ;
173 EXPECT
174 Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 8.
175 ########
176
177
178 --FILE-- abc
179 my $a = ${"Fred"} ;
180 1;
181 --FILE-- 
182 use strict 'refs' ;
183 require "./abc";
184 EXPECT
185
186 ########
187
188 --FILE-- abc
189 use strict 'refs' ;
190 1;
191 --FILE-- 
192 require "./abc";
193 my $a = ${"Fred"} ;
194 EXPECT
195
196 ########
197
198 --FILE-- abc
199 use strict 'refs' ;
200 my $a = ${"Fred"} ;
201 1;
202 --FILE-- 
203 ${"Fred"} ;
204 require "./abc";
205 EXPECT
206 Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at ./abc line 2.
207 Compilation failed in require at - line 2.
208 ########
209
210 --FILE-- abc.pm
211 use strict 'refs' ;
212 my $a = ${"Fred"} ;
213 1;
214 --FILE-- 
215 my $a = ${"Fred"} ;
216 use abc;
217 EXPECT
218 Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at abc.pm line 2.
219 Compilation failed in require at - line 2.
220 BEGIN failed--compilation aborted at - line 2.
221 ########
222
223 # Check scope of pragma with eval
224 no strict ;
225 eval {
226     my $a = ${"Fred"} ;
227 };
228 print STDERR $@ ;
229 my $a = ${"Fred"} ;
230 EXPECT
231
232 ########
233
234 # Check scope of pragma with eval
235 no strict ;
236 eval {
237     use strict 'refs' ;
238     my $a = ${"Fred"} ;
239 };
240 print STDERR $@ ;
241 my $a = ${"Fred"} ;
242 EXPECT
243 Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at - line 6.
244 ########
245
246 # Check scope of pragma with eval
247 use strict 'refs' ;
248 eval {
249     my $a = ${"Fred"} ;
250 };
251 print STDERR $@ ;
252 EXPECT
253 Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at - line 5.
254 ########
255
256 # Check scope of pragma with eval
257 use strict 'refs' ;
258 eval {
259     no strict ;
260     my $a = ${"Fred"} ;
261 };
262 print STDERR $@ ;
263 my $a = ${"Fred"} ;
264 EXPECT
265 Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at - line 9.
266 ########
267
268 # Check scope of pragma with eval
269 no strict ;
270 eval '
271     my $a = ${"Fred"} ;
272 '; print STDERR $@ ;
273 my $a = ${"Fred"} ;
274 EXPECT
275
276 ########
277
278 # Check scope of pragma with eval
279 no strict ;
280 eval q[ 
281     use strict 'refs' ;
282     my $a = ${"Fred"} ;
283 ]; print STDERR $@;
284 EXPECT
285 Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at (eval 1) line 3.
286 ########
287
288 # Check scope of pragma with eval
289 use strict 'refs' ;
290 eval '
291     my $a = ${"Fred"} ;
292 '; print STDERR $@ ;
293 EXPECT
294 Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at (eval 1) line 2.
295 ########
296
297 # Check scope of pragma with eval
298 use strict 'refs' ;
299 eval '
300     no strict ;
301     my $a = ${"Fred"} ;
302 '; print STDERR $@;
303 my $a = ${"Fred"} ;
304 EXPECT
305 Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at - line 8.
306 ########
307 # [perl #26910] hints not propagated into (?{...})
308 use strict 'refs';
309 /(?{${"foo"}++})/;
310 EXPECT
311 Can't use string ("foo") as a SCALAR ref while "strict refs" in use at (re_eval 1) line 1.
312 ########
313 # [perl #37886] strict 'refs' doesn't apply inside defined
314 use strict 'refs';
315 my $x = "foo";
316 defined $$x;
317 EXPECT
318 Can't use string ("foo") as a SCALAR ref while "strict refs" in use at - line 4.
319 ########
320 # [perl #37886] strict 'refs' doesn't apply inside defined
321 use strict 'refs';
322 my $x = "foo";
323 defined @$x;
324 EXPECT
325 Can't use string ("foo") as an ARRAY ref while "strict refs" in use at - line 4.
326 ########
327 # [perl #37886] strict 'refs' doesn't apply inside defined
328 use strict 'refs';
329 my $x = "foo";
330 defined %$x;
331 EXPECT
332 defined(%hash) is deprecated at - line 4.
333         (Maybe you should just omit the defined()?)
334 Can't use string ("foo") as a HASH ref while "strict refs" in use at - line 4.