1 Check warnings::enabled & warnings::warn
8 print "ok1\n" if ! warnings::enabled('all') ;
9 print "ok2\n" if ! warnings::enabled("io") ;
22 print "ok1\n" if !warnings::enabled('all') ;
23 print "ok2\n" if warnings::enabled("syntax") ;
26 use warnings 'syntax' ;
35 use warnings 'syntax' ;
36 print "ok1\n" if warnings::enabled('io') ;
37 print "ok2\n" if ! warnings::enabled("syntax") ;
49 print "ok1\n" if !warnings::enabled('all') ;
50 print "ok2\n" if warnings::enabled("syntax") ;
53 use warnings 'syntax' ;
61 use warnings 'syntax' ;
62 print "ok1\n" if ! warnings::enabled('all') ;
63 print "ok2\n" if ! warnings::enabled("syntax") ;
64 print "ok3\n" if warnings::enabled("io") ;
79 print "ok1\n" if !warnings::enabled('all') ;
80 print "ok2\n" if warnings::enabled("syntax") ;
84 use warnings 'syntax' ;
96 print "ok1\n" if ! warnings::enabled('all') ;
97 print "ok2\n" if warnings::enabled("syntax") ;
98 print "ok3\n" if ! warnings::enabled("io") ;
102 use warnings 'syntax' ;
115 print "ok1\n" if !warnings::enabled('all') ;
116 print "ok2\n" if warnings::enabled("syntax") ;
120 use warnings 'syntax' ;
132 print "ok1\n" if ! warnings::enabled('all') ;
133 print "ok2\n" if warnings::enabled("syntax") ;
134 print "ok3\n" if ! warnings::enabled("io") ;
138 use warnings 'syntax' ;
150 print "ok1\n" if ! warnings::enabled('all') ;
151 print "ok2\n" if ! warnings::enabled("io") ;
168 print "ok1\n" if ! warnings::enabled('all') ;
169 print "ok2\n" if warnings::enabled("syntax") ;
170 print "ok3\n" if !warnings::enabled("io") ;
173 use warnings 'syntax' ;
174 print "ok4\n" if !warnings::enabled('all') ;
175 print "ok5\n" if warnings::enabled("io") ;
193 print "ok1\n" if !warnings::enabled('all') ;
194 print "ok2\n" if warnings::enabled("syntax") ;
198 use warnings 'syntax' ;
200 eval { abc::check() ; };
211 print "ok1\n" if ! warnings::enabled('all') ;
212 print "ok2\n" if warnings::enabled("syntax") ;
213 print "ok3\n" if ! warnings::enabled("io") ;
217 use warnings 'syntax' ;
219 eval { abc::check() ; } ;
231 print "ok1\n" if !warnings::enabled('all') ;
232 print "ok2\n" if warnings::enabled("syntax") ;
236 use warnings 'syntax' ;
238 eval { abc::check() ; } ;
249 print "ok1\n" if !warnings::enabled('all') ;
250 print "ok2\n" if warnings::enabled("syntax") ;
251 print "ok3\n" if warnings::enabled("io") ;
255 use warnings 'syntax' ;
257 eval { use warnings 'io' ; abc::check() ; };
272 print "ok1\n" if ! warnings::enabled('all') ;
273 print "ok2\n" if warnings::enabled("syntax") ;
274 print "ok3\n" if ! warnings::enabled("io") ;
278 use warnings 'syntax' ;
280 sub fred { abc::check() }
292 print "ok1\n" if ! warnings::enabled('all') ;
296 use warnings 'syntax' ;
298 sub fred { no warnings ; abc::check() }
306 use warnings 'misc' ;
308 print "ok1\n" if ! warnings::enabled('all') ;
309 print "ok2\n" if warnings::enabled("syntax") ;
310 print "ok3\n" if warnings::enabled("io") ;
311 print "ok4\n" if ! warnings::enabled("misc") ;
315 use warnings 'syntax' ;
317 sub fred { use warnings 'io' ; abc::check() }
326 # check warnings::warn
328 eval { warnings::warn() } ;
330 eval { warnings::warn("fred", "joe") } ;
333 Usage: warnings::warn([category,] 'message') at - line 4
334 unknown warnings category 'fred' at - line 6
335 eval {...} called at - line 6
340 use warnings 'misc' ;
341 sub check { warnings::warn("io", "hello") }
353 use warnings 'misc' ;
354 sub check { warnings::warn("misc", "hello") }
366 use warnings 'misc' ;
367 sub check { warnings::warn("io", "hello") }
370 use warnings qw( FATAL deprecated ) ;
372 eval { abc::check() ; } ;
381 use warnings 'misc' ;
382 sub check { warnings::warn("io", "hello") }
385 use warnings qw( FATAL io ) ;
387 eval { abc::check() ; } ;
397 print "ok1\n" if warnings::enabled("io") ;
398 print "ok2\n" if warnings::enabled("all") ;
411 print "ok1\n" if !warnings::enabled("io") ;
412 print "ok2\n" if !warnings::enabled("all") ;
426 print "ok\n" if ! warnings::enabled() ;
430 use warnings 'syntax' ;
434 package 'abc' not registered for warnings at - line 3
440 use warnings::register ;
442 print "ok1\n" if warnings::enabled ;
443 print "ok2\n" if warnings::enabled("syntax") ;
444 print "ok3\n" if !warnings::enabled("io") ;
448 use warnings 'syntax' ;
461 use warnings::register ;
463 print "ok1\n" if !warnings::enabled ;
464 print "ok2\n" if warnings::enabled("syntax") ;
465 print "ok3\n" if !warnings::enabled("io") ;
469 use warnings 'syntax' ;
481 use warnings::register ;
483 print "ok1\n" if warnings::enabled ;
484 print "ok2\n" if warnings::enabled("syntax") ;
488 use warnings 'syntax' ;
491 eval { abc::check() ; };
501 use warnings::register ;
503 print "ok1\n" if !warnings::enabled ;
504 print "ok2\n" if warnings::enabled("syntax") ;
505 print "ok3\n" if !warnings::enabled("io") ;
509 use warnings 'syntax' ;
511 eval { abc::check() ; } ;
522 use warnings::register ;
524 print "ok1\n" if warnings::enabled ;
525 print "ok2\n" if warnings::enabled("syntax") ;
526 print "ok3\n" if !warnings::enabled("io") ;
530 use warnings 'syntax' ;
533 sub fred { abc::check() }
544 use warnings::register ;
546 print "ok1\n" if ! warnings::enabled ;
550 use warnings 'syntax' ;
552 sub fred { no warnings ; abc::check() }
560 use warnings 'misc' ;
561 use warnings::register;
563 print "ok1\n" if warnings::enabled ;
564 print "ok2\n" if warnings::enabled("syntax") ;
565 print "ok3\n" if warnings::enabled("io") ;
566 print "ok4\n" if ! warnings::enabled("misc") ;
570 use warnings 'syntax' ;
573 sub fred { use warnings 'io' ; abc::check() }
584 use warnings 'misc' ;
585 use warnings::register;
586 sub check { warnings::warn("hello") }
598 use warnings::register;
599 sub check { warnings::warn("hello") }
610 use warnings::register ;
611 sub check { warnings::warn("hello") }
615 use warnings qw( FATAL deprecated ) ;
616 eval { abc::check() ; } ;
625 use warnings::register ;
626 sub check { warnings::warn("hello") }
630 use warnings qw( FATAL abc ) ;
631 eval { abc::check() ; } ;
641 use warnings::register ;
643 print "ok1\n" if warnings::enabled() ;
644 print "ok2\n" if warnings::enabled("io") ;
645 print "ok3\n" if warnings::enabled("all") ;
661 use warnings::register ;
663 print "ok1\n" if !warnings::enabled() ;
664 print "ok2\n" if !warnings::enabled("io") ;
665 print "ok3\n" if !warnings::enabled("all") ;
681 use warnings::register ;
683 print "ok1\n" if warnings::enabled() ;
684 print "ok2\n" if warnings::enabled("io") ;
685 print "ok3\n" if warnings::enabled("all") ;
701 use warnings::register ;
703 print "ok1\n" if !warnings::enabled() ;
704 print "ok2\n" if !warnings::enabled("io") ;
705 print "ok3\n" if !warnings::enabled("all") ;
721 use warnings::register ;
723 print "ok1\n" if !warnings::enabled() ;
724 print "ok2\n" if !warnings::enabled("io") ;
725 print "ok3\n" if !warnings::enabled("all") ;
742 use warnings::register ;
744 print "abc self" . (warnings::enabled() ? "" : " not") . " enabled\n" ;
745 print "abc def" . (warnings::enabled('def') ? "" : " not") . " enabled\n" ;
746 print "abc all" . (warnings::enabled('all') ? "" : " not") . " enabled\n" ;
752 use warnings::register ;
754 print "def self" . (warnings::enabled() ? "" : " not") . " enabled\n" ;
755 print "def abc" . (warnings::enabled('abc') ? "" : " not") . " enabled\n" ;
756 print "def all" . (warnings::enabled('all') ? "" : " not") . " enabled\n" ;
825 use warnings::register ;
827 print "ok1\n" if warnings::enabled() ;
828 print "ok2\n" if warnings::enabled("io") ;
829 print "ok3\n" if warnings::enabled("all") ;
844 use warnings::register ;
846 print "ok1\n" if !warnings::enabled() ;
847 print "ok2\n" if !warnings::enabled("io") ;
848 print "ok3\n" if !warnings::enabled("all") ;
865 use warnings::register ;
867 print "ok1\n" if !warnings::enabled() ;
868 print "ok2\n" if !warnings::enabled("io") ;
869 print "ok3\n" if !warnings::enabled("all") ;
887 use warnings::register ;
889 print "ok1\n" if !warnings::enabled() ;
890 print "ok2\n" if !warnings::enabled("io") ;
891 print "ok3\n" if !warnings::enabled("all") ;