Commit | Line | Data |
8d93267c |
1 | Check warnings::enabled & warnings::warn |
2 | |
3 | __END__ |
4 | |
5 | --FILE-- abc.pm |
6 | package abc ; |
7 | use warnings "io" ; |
8 | print "ok1\n" if ! warnings::enabled() ; |
9 | print "ok2\n" if ! warnings::enabled("io") ; |
10 | 1; |
11 | --FILE-- |
12 | no warnings; |
13 | use abc ; |
14 | EXPECT |
15 | ok1 |
16 | ok2 |
17 | ######## |
18 | |
19 | --FILE-- abc.pm |
20 | package abc ; |
21 | no warnings ; |
22 | print "ok1\n" if warnings::enabled() ; |
23 | print "ok2\n" if warnings::enabled("syntax") ; |
24 | 1; |
25 | --FILE-- |
26 | use warnings 'syntax' ; |
27 | use abc ; |
28 | EXPECT |
29 | ok1 |
30 | ok2 |
31 | ######## |
32 | |
33 | --FILE-- abc.pm |
34 | package abc ; |
35 | use warnings 'syntax' ; |
36 | print "ok1\n" if warnings::enabled() ; |
37 | print "ok2\n" if ! warnings::enabled("syntax") ; |
38 | 1; |
39 | --FILE-- |
40 | use warnings 'io' ; |
41 | use abc ; |
42 | EXPECT |
43 | ok1 |
44 | ok2 |
45 | ######## |
46 | |
47 | --FILE-- abc |
48 | no warnings ; |
49 | print "ok1\n" if warnings::enabled() ; |
50 | print "ok2\n" if warnings::enabled("syntax") ; |
51 | 1; |
52 | --FILE-- |
53 | use warnings 'syntax' ; |
54 | require "abc" ; |
55 | EXPECT |
56 | ok1 |
57 | ok2 |
58 | ######## |
59 | |
60 | --FILE-- abc |
61 | use warnings 'syntax' ; |
62 | print "ok1\n" if warnings::enabled ; |
63 | print "ok2\n" if ! warnings::enabled("syntax") ; |
64 | print "ok3\n" if warnings::enabled("io") ; |
65 | 1; |
66 | --FILE-- |
67 | use warnings 'io' ; |
68 | require "abc" ; |
69 | EXPECT |
70 | ok1 |
71 | ok2 |
72 | ok3 |
73 | ######## |
74 | |
75 | --FILE-- abc.pm |
76 | package abc ; |
77 | no warnings ; |
78 | sub check { |
79 | print "ok1\n" if warnings::enabled ; |
80 | print "ok2\n" if warnings::enabled("syntax") ; |
81 | } |
82 | 1; |
83 | --FILE-- |
84 | use warnings 'syntax' ; |
85 | use abc ; |
86 | abc::check() ; |
87 | EXPECT |
88 | ok1 |
89 | ok2 |
90 | ######## |
91 | |
92 | --FILE-- abc.pm |
93 | package abc ; |
94 | use warnings 'io' ; |
95 | sub check { |
96 | print "ok1\n" if warnings::enabled ; |
97 | print "ok2\n" if warnings::enabled("syntax") ; |
98 | print "ok3\n" if ! warnings::enabled("io") ; |
99 | } |
100 | 1; |
101 | --FILE-- |
102 | use warnings 'syntax' ; |
103 | use abc ; |
104 | abc::check() ; |
105 | EXPECT |
106 | ok1 |
107 | ok2 |
108 | ok3 |
109 | ######## |
110 | |
111 | --FILE-- abc |
112 | package abc ; |
113 | no warnings ; |
114 | sub check { |
115 | print "ok1\n" if warnings::enabled ; |
116 | print "ok2\n" if warnings::enabled("syntax") ; |
117 | } |
118 | 1; |
119 | --FILE-- |
120 | use warnings 'syntax' ; |
121 | require "abc" ; |
122 | abc::check() ; |
123 | EXPECT |
124 | ok1 |
125 | ok2 |
126 | ######## |
127 | |
128 | --FILE-- abc |
129 | package abc ; |
130 | use warnings 'io' ; |
131 | sub check { |
132 | print "ok1\n" if warnings::enabled ; |
133 | print "ok2\n" if warnings::enabled("syntax") ; |
134 | print "ok3\n" if ! warnings::enabled("io") ; |
135 | } |
136 | 1; |
137 | --FILE-- |
138 | use warnings 'syntax' ; |
139 | require "abc" ; |
140 | abc::check() ; |
141 | EXPECT |
142 | ok1 |
143 | ok2 |
144 | ok3 |
145 | ######## |
146 | |
147 | --FILE-- abc.pm |
148 | package abc ; |
149 | use warnings "io" ; |
150 | print "ok1\n" if ! warnings::enabled() ; |
151 | print "ok2\n" if ! warnings::enabled("io") ; |
152 | 1; |
153 | --FILE-- def.pm |
154 | no warnings; |
155 | use abc ; |
156 | 1; |
157 | --FILE-- |
158 | use warnings; |
159 | use def ; |
160 | EXPECT |
161 | ok1 |
162 | ok2 |
163 | ######## |
164 | |
165 | --FILE-- abc.pm |
166 | package abc ; |
167 | no warnings ; |
168 | print "ok1\n" if warnings::enabled() ; |
169 | print "ok2\n" if warnings::enabled("syntax") ; |
170 | print "ok3\n" if !warnings::enabled("io") ; |
171 | 1; |
172 | --FILE-- def.pm |
173 | use warnings 'syntax' ; |
174 | print "ok4\n" if warnings::enabled() ; |
175 | print "ok5\n" if warnings::enabled("io") ; |
176 | use abc ; |
177 | 1; |
178 | --FILE-- |
179 | use warnings 'io' ; |
180 | use def ; |
181 | EXPECT |
182 | ok1 |
183 | ok2 |
184 | ok3 |
185 | ok4 |
186 | ok5 |
187 | ######## |
188 | |
189 | --FILE-- abc.pm |
190 | package abc ; |
191 | no warnings ; |
192 | sub check { |
193 | print "ok1\n" if warnings::enabled ; |
194 | print "ok2\n" if warnings::enabled("syntax") ; |
195 | } |
196 | 1; |
197 | --FILE-- |
198 | use warnings 'syntax' ; |
199 | use abc ; |
200 | eval { abc::check() ; }; |
201 | print $@ ; |
202 | EXPECT |
203 | ok1 |
204 | ok2 |
205 | ######## |
206 | |
207 | --FILE-- abc.pm |
208 | package abc ; |
209 | use warnings 'io' ; |
210 | sub check { |
211 | print "ok1\n" if warnings::enabled ; |
212 | print "ok2\n" if warnings::enabled("syntax") ; |
213 | print "ok3\n" if ! warnings::enabled("io") ; |
214 | } |
215 | 1; |
216 | --FILE-- |
217 | use warnings 'syntax' ; |
218 | use abc ; |
219 | eval { abc::check() ; } ; |
220 | print $@ ; |
221 | EXPECT |
222 | ok1 |
223 | ok2 |
224 | ok3 |
225 | ######## |
226 | |
227 | --FILE-- abc |
228 | package abc ; |
229 | no warnings ; |
230 | sub check { |
231 | print "ok1\n" if warnings::enabled ; |
232 | print "ok2\n" if warnings::enabled("syntax") ; |
233 | } |
234 | 1; |
235 | --FILE-- |
236 | use warnings 'syntax' ; |
237 | require "abc" ; |
238 | eval { abc::check() ; } ; |
239 | print $@ ; |
240 | EXPECT |
241 | ok1 |
242 | ok2 |
243 | ######## |
244 | |
245 | --FILE-- abc |
246 | package abc ; |
247 | use warnings 'io' ; |
248 | sub check { |
249 | print "ok1\n" if warnings::enabled ; |
250 | print "ok2\n" if warnings::enabled("syntax") ; |
251 | print "ok3\n" if warnings::enabled("io") ; |
252 | } |
253 | 1; |
254 | --FILE-- |
255 | use warnings 'syntax' ; |
256 | require "abc" ; |
257 | eval { use warnings 'io' ; abc::check() ; }; |
258 | abc::check() ; |
259 | print $@ ; |
260 | EXPECT |
261 | ok1 |
262 | ok2 |
263 | ok3 |
264 | ok1 |
265 | ok2 |
266 | ######## |
267 | |
268 | --FILE-- abc.pm |
269 | package abc ; |
270 | use warnings 'io' ; |
271 | sub check { |
272 | print "ok1\n" if warnings::enabled ; |
273 | print "ok2\n" if warnings::enabled("syntax") ; |
274 | print "ok3\n" if ! warnings::enabled("io") ; |
275 | } |
276 | 1; |
277 | --FILE-- |
278 | use warnings 'syntax' ; |
279 | use abc ; |
280 | sub fred { abc::check() } |
281 | fred() ; |
282 | EXPECT |
283 | ok1 |
284 | ok2 |
285 | ok3 |
286 | ######## |
287 | |
288 | --FILE-- abc.pm |
289 | package abc ; |
290 | use warnings 'io' ; |
291 | sub check { |
292 | print "ok1\n" if ! warnings::enabled ; |
293 | } |
294 | 1; |
295 | --FILE-- |
296 | use warnings 'syntax' ; |
297 | use abc ; |
298 | sub fred { no warnings ; abc::check() } |
299 | fred() ; |
300 | EXPECT |
301 | ok1 |
302 | ######## |
303 | |
304 | --FILE-- abc.pm |
305 | package abc ; |
306 | use warnings 'misc' ; |
307 | sub check { |
308 | print "ok1\n" if warnings::enabled ; |
309 | print "ok2\n" if warnings::enabled("syntax") ; |
310 | print "ok3\n" if warnings::enabled("io") ; |
311 | print "ok4\n" if ! warnings::enabled("misc") ; |
312 | } |
313 | 1; |
314 | --FILE-- |
315 | use warnings 'syntax' ; |
316 | use abc ; |
317 | sub fred { use warnings 'io' ; abc::check() } |
318 | fred() ; |
319 | EXPECT |
320 | ok1 |
321 | ok2 |
322 | ok3 |
323 | ok4 |
324 | ######## |
325 | |
326 | # check warnings::warn |
327 | use warnings ; |
328 | eval { warnings::warn() } ; |
329 | print $@ ; |
330 | eval { warnings::warn("fred") } ; |
331 | print $@ ; |
332 | EXPECT |
333 | Usage: warnings::warn('category', 'message') at - line 4 |
334 | Usage: warnings::warn('category', 'message') at - line 6 |
335 | ######## |
336 | |
337 | --FILE-- abc.pm |
338 | package abc ; |
339 | use warnings 'misc' ; |
340 | sub check { warnings::warn("io", "hello") } |
341 | 1; |
342 | --FILE-- |
343 | use warnings "io" ; |
344 | use abc; |
345 | abc::check() ; |
346 | EXPECT |
347 | hello at - line 3 |
348 | ######## |
349 | |
350 | --FILE-- abc.pm |
351 | package abc ; |
352 | use warnings 'misc' ; |
353 | sub check { warnings::warn("misc", "hello") } |
354 | 1; |
355 | --FILE-- |
356 | use warnings "io" ; |
357 | use abc; |
358 | abc::check() ; |
359 | EXPECT |
360 | hello at - line 3 |
361 | ######## |
362 | |
363 | --FILE-- abc.pm |
364 | package abc ; |
365 | use warnings 'misc' ; |
366 | sub check { warnings::warn("io", "hello") } |
367 | 1; |
368 | --FILE-- |
369 | use warnings qw( FATAL deprecated ) ; |
370 | use abc; |
371 | eval { abc::check() ; } ; |
372 | print "[[$@]]\n"; |
373 | EXPECT |
374 | hello at - line 3 |
375 | [[]] |
376 | ######## |
377 | |
378 | --FILE-- abc.pm |
379 | package abc ; |
380 | use warnings 'misc' ; |
381 | sub check { warnings::warn("io", "hello") } |
382 | 1; |
383 | --FILE-- |
384 | use warnings qw( FATAL io ) ; |
385 | use abc; |
386 | eval { abc::check() ; } ; |
387 | print "[[$@]]\n"; |
388 | EXPECT |
389 | [[hello at - line 3 |
390 | ]] |