Lines Matching full:warnings
1 Check warnings::enabled, warnings::warn and other functionality of
2 warnings.pm.
8 use warnings "io" ;
9 print "ok1\n" if ! warnings::enabled('all') ;
10 print "ok2\n" if ! warnings::enabled("io") ;
13 no warnings;
22 no warnings ;
23 print "ok1\n" if !warnings::enabled('all') ;
24 print "ok2\n" if warnings::enabled("syntax") ;
27 use warnings 'syntax' ;
36 use warnings 'syntax' ;
37 print "ok1\n" if warnings::enabled('io') ;
38 print "ok2\n" if ! warnings::enabled("syntax") ;
41 use warnings 'io' ;
49 no warnings ;
50 print "ok1\n" if !warnings::enabled('all') ;
51 print "ok2\n" if !warnings::enabled("syntax") ;
54 use warnings 'syntax' ;
62 use warnings 'syntax' ;
63 print "ok1\n" if ! warnings::enabled('all') ;
64 print "ok2\n" if ! warnings::enabled("syntax") ;
65 print "ok3\n" if ! warnings::enabled("io") ;
68 use warnings 'io' ;
78 no warnings ;
80 print "ok1\n" if !warnings::enabled('all') ;
81 print "ok2\n" if warnings::enabled("syntax") ;
85 use warnings 'syntax' ;
95 use warnings 'io' ;
97 print "ok1\n" if ! warnings::enabled('all') ;
98 print "ok2\n" if warnings::enabled("syntax") ;
99 print "ok3\n" if ! warnings::enabled("io") ;
103 use warnings 'syntax' ;
114 no warnings ;
116 print "ok1\n" if !warnings::enabled('all') ;
117 print "ok2\n" if warnings::enabled("syntax") ;
121 use warnings 'syntax' ;
131 use warnings 'io' ;
133 print "ok1\n" if ! warnings::enabled('all') ;
134 print "ok2\n" if warnings::enabled("syntax") ;
135 print "ok3\n" if ! warnings::enabled("io") ;
139 use warnings 'syntax' ;
150 use warnings "io" ;
151 print "ok1\n" if ! warnings::enabled('all') ;
152 print "ok2\n" if ! warnings::enabled("io") ;
156 no warnings;
160 use warnings;
169 no warnings ;
170 print "ok1\n" if ! warnings::enabled('all') ;
171 print "ok2\n" if warnings::enabled("syntax") ;
172 print "ok3\n" if !warnings::enabled("io") ;
175 use warnings 'syntax' ;
176 print "ok4\n" if !warnings::enabled('all') ;
177 print "ok5\n" if !warnings::enabled("io") ;
181 use warnings 'io' ;
193 no warnings ;
195 print "ok1\n" if !warnings::enabled('all') ;
196 print "ok2\n" if warnings::enabled("syntax") ;
200 use warnings 'syntax' ;
213 use warnings 'io' ;
215 print "ok1\n" if ! warnings::enabled('all') ;
216 print "ok2\n" if warnings::enabled("syntax") ;
217 print "ok3\n" if ! warnings::enabled("io") ;
221 use warnings 'syntax' ;
235 no warnings ;
237 print "ok1\n" if !warnings::enabled('all') ;
238 print "ok2\n" if warnings::enabled("syntax") ;
242 use warnings 'syntax' ;
255 use warnings 'io' ;
257 print "ok1\n" if !warnings::enabled('all') ;
258 print "ok2\n" if warnings::enabled("syntax") ;
259 print "ok3\n" if warnings::enabled("io") ;
263 use warnings 'syntax' ;
266 use warnings 'io' ;
281 use warnings 'io' ;
283 print "ok1\n" if ! warnings::enabled('all') ;
284 print "ok2\n" if warnings::enabled("syntax") ;
285 print "ok3\n" if ! warnings::enabled("io") ;
289 use warnings 'syntax' ;
301 use warnings 'io' ;
303 print "ok1\n" if ! warnings::enabled('all') ;
307 use warnings 'syntax' ;
309 sub fred { no warnings ; abc16::check() }
317 use warnings 'misc' ;
319 print "ok1\n" if ! warnings::enabled('all') ;
320 print "ok2\n" if warnings::enabled("syntax") ;
321 print "ok3\n" if warnings::enabled("io") ;
322 print "ok4\n" if ! warnings::enabled("misc") ;
326 use warnings 'syntax' ;
328 sub fred { use warnings 'io' ; abc17::check() }
337 # check warnings::warn
338 use warnings ;
340 warnings::warn()
344 warnings::warn("fred", "joe")
348 Usage: warnings::warn([category,] 'message') at - line 5.
349 Unknown warnings category 'fred' at - line 9.
352 # check warnings::warnif
353 use warnings ;
355 warnings::warnif()
359 warnings::warnif("fred", "joe")
363 Usage: warnings::warnif([category,] 'message') at - line 5.
364 Unknown warnings category 'fred' at - line 9.
369 use warnings 'misc' ;
370 sub check { warnings::warn("io", "hello") }
373 use warnings "io" ;
382 use warnings 'misc' ;
383 sub check { warnings::warn("misc", "hello") }
386 use warnings "io" ;
395 use warnings 'misc' ;
396 sub check { warnings::warn("io", "hello") }
399 use warnings qw( FATAL deprecated ) ;
412 use warnings 'misc' ;
413 sub check { warnings::warn("io", "hello") }
416 use warnings qw( FATAL io ) ;
429 use warnings "io" ;
430 print "ok1\n" if warnings::enabled("io") ;
431 print "ok2\n" if warnings::enabled("all") ;
434 no warnings;
443 use warnings "io" ;
444 print "ok1\n" if !warnings::enabled("io") ;
445 print "ok2\n" if !warnings::enabled("all") ;
448 use warnings;
457 no warnings ;
459 print "ok\n" if ! warnings::enabled() ;
463 use warnings 'syntax' ;
467 package 'abc24' not registered for warnings at abc24.pm line 4.
472 no warnings ;
474 warnings::warn("fred") ;
478 use warnings 'syntax' ;
482 package 'abc25' not registered for warnings at abc25.pm line 4.
487 no warnings ;
489 warnings::warnif("fred") ;
493 use warnings 'syntax' ;
497 package 'abc26' not registered for warnings at abc26.pm line 4.
502 use warnings 'io' ;
503 use warnings::register ;
505 print "ok1\n" if warnings::enabled ;
506 print "ok2\n" if warnings::enabled("syntax") ;
507 print "ok3\n" if !warnings::enabled("io") ;
511 use warnings 'syntax' ;
513 use warnings 'abc27' ;
523 use warnings 'io' ;
524 use warnings::register ;
526 print "ok1\n" if !warnings::enabled ;
527 print "ok2\n" if warnings::enabled("syntax") ;
528 print "ok3\n" if !warnings::enabled("io") ;
532 use warnings 'syntax' ;
543 no warnings ;
544 use warnings::register ;
546 print "ok1\n" if warnings::enabled ;
547 print "ok2\n" if warnings::enabled("syntax") ;
551 use warnings 'syntax' ;
553 use warnings 'abc29' ;
563 use warnings 'io' ;
564 use warnings::register ;
566 print "ok1\n" if !warnings::enabled ;
567 print "ok2\n" if warnings::enabled("syntax") ;
568 print "ok3\n" if !warnings::enabled("io") ;
572 use warnings 'syntax' ;
584 use warnings 'io' ;
585 use warnings::register ;
587 print "ok1\n" if warnings::enabled ;
588 print "ok2\n" if warnings::enabled("syntax") ;
589 print "ok3\n" if !warnings::enabled("io") ;
593 use warnings 'syntax' ;
595 use warnings 'abc31' ;
606 use warnings 'io' ;
607 use warnings::register ;
609 print "ok1\n" if ! warnings::enabled ;
613 use warnings 'syntax' ;
615 sub fred { no warnings ; abc32::check() }
623 use warnings 'misc' ;
624 use warnings::register;
626 print "ok1\n" if warnings::enabled ;
627 print "ok2\n" if warnings::enabled("syntax") ;
628 print "ok3\n" if warnings::enabled("io") ;
629 print "ok4\n" if ! warnings::enabled("misc") ;
633 use warnings 'syntax' ;
635 use warnings 'abc33' ;
636 sub fred { use warnings 'io' ; abc33::check() }
647 use warnings 'misc' ;
648 use warnings::register;
649 sub check { warnings::warn("hello") }
653 use warnings "abc34" ;
661 use warnings::register;
662 sub check { warnings::warn("hello") }
673 use warnings::register ;
674 sub check { warnings::warn("hello") }
678 use warnings qw( FATAL deprecated ) ;
690 use warnings::register ;
691 sub check { warnings::warn("hello") }
695 use warnings qw( FATAL abc37 ) ;
707 use warnings "io" ;
708 use warnings::register ;
710 print "ok1\n" if warnings::enabled() ;
711 print "ok2\n" if warnings::enabled("io") ;
712 print "ok3\n" if warnings::enabled("all") ;
716 no warnings;
727 use warnings "io" ;
728 use warnings::register ;
730 print "ok1\n" if !warnings::enabled() ;
731 print "ok2\n" if !warnings::enabled("io") ;
732 print "ok3\n" if !warnings::enabled("all") ;
736 no warnings;
747 use warnings "io" ;
748 use warnings::register ;
750 print "ok1\n" if warnings::enabled() ;
751 print "ok2\n" if warnings::enabled("io") ;
752 print "ok3\n" if warnings::enabled("all") ;
756 use warnings 'all';
767 use warnings "io" ;
768 use warnings::register ;
770 print "ok1\n" if !warnings::enabled() ;
771 print "ok2\n" if !warnings::enabled("io") ;
772 print "ok3\n" if !warnings::enabled("all") ;
777 no warnings ;
787 use warnings "io" ;
788 use warnings::register ;
790 print "ok1\n" if !warnings::enabled() ;
791 print "ok2\n" if !warnings::enabled("io") ;
792 print "ok3\n" if !warnings::enabled("all") ;
793 warnings::warnif("my message 1") ;
794 warnings::warnif('abc42', "my message 2") ;
795 warnings::warnif('io', "my message 3") ;
796 warnings::warnif('all', "my message 4") ;
801 use warnings 'abc42';
802 no warnings ;
812 use warnings "io" ;
813 use warnings::register ;
815 print "abc43 self" . (warnings::enabled() ? "" : " not") . " enabled\n" ;
816 print "abc43 def" . (warnings::enabled('def') ? "" : " not") . " enabled\n" ;
817 print "abc43 all" . (warnings::enabled('all') ? "" : " not") . " enabled\n" ;
822 use warnings "io" ;
823 use warnings::register ;
825 print "def self" . (warnings::enabled() ? "" : " not") . " enabled\n" ;
826 print "def abc43" . (warnings::enabled('abc43') ? "" : " not") . " enabled\n" ;
827 print "def all" . (warnings::enabled('all') ? "" : " not") . " enabled\n" ;
833 use warnings 'abc43';
836 no warnings 'abc43' ;
837 use warnings 'def' ;
840 use warnings 'abc43' ;
841 use warnings 'def' ;
844 no warnings 'abc43' ;
845 no warnings 'def' ;
848 use warnings;
851 no warnings 'abc43' ;
895 no warnings ;
896 use warnings::register ;
898 print "ok1\n" if warnings::enabled() ;
899 print "ok2\n" if warnings::enabled("io") ;
900 print "ok3\n" if warnings::enabled("all") ;
914 no warnings ;
915 use warnings::register ;
917 print "ok1\n" if !warnings::enabled() ;
918 print "ok2\n" if !warnings::enabled("io") ;
919 print "ok3\n" if !warnings::enabled("all") ;
924 use warnings 'abc45';
925 no warnings ;
935 no warnings ;
936 use warnings::register ;
938 print "ok1\n" if !warnings::enabled() ;
939 print "ok2\n" if !warnings::enabled("io") ;
940 print "ok3\n" if !warnings::enabled("all") ;
941 warnings::warnif("my message 1") ;
942 warnings::warnif('abc46', "my message 2") ;
943 warnings::warnif('io', "my message 3") ;
944 warnings::warnif('all', "my message 4") ;
949 use warnings 'abc46';
950 no warnings ;
961 no warnings ;
962 use warnings::register ;
964 print "ok1\n" if !warnings::enabled() ;
965 print "ok2\n" if !warnings::enabled("io") ;
966 print "ok3\n" if !warnings::enabled("all") ;
971 use warnings 'abc47';
972 no warnings ;
984 no warnings ;
985 use warnings::register ;
987 print "ok1\n" if warnings::enabled() ;
988 print "ok2\n" if !warnings::enabled("io") ;
989 print "ok3\n" if !warnings::enabled("all") ;
990 print "ok4\n" if warnings::enabled("abc48") ;
991 warnings::warn("my message 1") ;
992 warnings::warnif("my message 2") ;
993 warnings::warnif('abc48', "my message 3") ;
994 warnings::warnif('io', "my message 4") ;
995 warnings::warnif('all', "my message 5") ;
997 sub in2 { no warnings ; check() }
998 sub in1 { no warnings ; in2() }
1002 use warnings 'abc48';
1016 no warnings ;
1017 use warnings::register ;
1019 print "ok1\n" if warnings::enabled() ;
1020 print "ok2\n" if !warnings::enabled("io") ;
1021 print "ok3\n" if !warnings::enabled("all") ;
1022 print "ok4\n" if warnings::enabled("def") ;
1023 warnings::warn("my message 1") ;
1024 warnings::warnif("my message 2") ;
1025 warnings::warnif('def', "my message 3") ;
1026 warnings::warnif('io', "my message 4") ;
1027 warnings::warnif('all', "my message 5") ;
1029 sub in2 { no warnings ; check() }
1030 sub in1 { no warnings ; in2() }
1036 use warnings 'def';
1041 no warnings;
1056 no warnings ;
1057 use warnings::register ;
1062 print "ok1\n" if warnings::enabled() ;
1063 print "ok2\n" if !warnings::enabled("io") ;
1064 print "ok3\n" if !warnings::enabled("all") ;
1065 print "ok4\n" if warnings::enabled("abc50") ;
1066 print "ok5\n" if !warnings::enabled("def") ;
1067 warnings::warn("my message 1") ;
1068 warnings::warnif("my message 2") ;
1069 warnings::warnif('abc50', "my message 3") ;
1070 warnings::warnif('def', "my message 4") ;
1071 warnings::warnif('io', "my message 5") ;
1072 warnings::warnif('all', "my message 6") ;
1074 sub in2 { no warnings ; check() }
1075 sub in1 { no warnings ; in2() }
1079 use warnings::register ;
1085 no warnings;
1086 use warnings 'abc50';
1099 no warnings ;
1100 use warnings::register ;
1111 print "ok1\n" if !warnings::enabled() ;
1112 print "ok2\n" if !warnings::enabled("io") ;
1113 print "ok3\n" if !warnings::enabled("all") ;
1114 print "ok4\n" if warnings::enabled("abc51") ;
1115 print "ok5\n" if !warnings::enabled("def") ;
1116 print "ok6\n" if warnings::enabled($self) ;
1118 warnings::warn("my message 1") ;
1119 warnings::warn($self, "my message 2") ;
1121 warnings::warnif("my message 3") ;
1122 warnings::warnif('abc51', "my message 4") ;
1123 warnings::warnif('def', "my message 5") ;
1124 warnings::warnif('io', "my message 6") ;
1125 warnings::warnif('all', "my message 7") ;
1126 warnings::warnif($self, "my message 8") ;
1130 no warnings ;
1136 no warnings ;
1144 use warnings::register ;
1156 no warnings;
1157 use warnings 'abc51';
1187 use warnings::register ('foo', 'bar');
1189 warnings::warnif('abc52', "hello");
1190 warnings::warnif('abc52::foo', "hello foo");
1191 warnings::warnif('abc52::bar', "hello bar");
1196 use warnings("abc52", "abc52::bar");
1210 use warnings::register;
1219 warnings::warnif( $warn_msg );
1224 our @CARP_NOT = ( $warn_cat ); # deliver warnings to *our* client
1237 use warnings FATAL => $warn_cat; # we want to know if this works
1253 no warnings ;
1254 print "ok1\n" if !warnings::fatal_enabled('all') ;
1255 print "ok2\n" if !warnings::fatal_enabled("syntax") ;
1266 no warnings ;
1267 print "ok1\n" if !warnings::fatal_enabled('all') ;
1268 print "ok2\n" if warnings::fatal_enabled("syntax") ;
1271 use warnings FATAL => 'syntax' ;
1280 no warnings ;
1281 print "ok1\n" if warnings::fatal_enabled('all') ;
1282 print "ok2\n" if warnings::fatal_enabled("syntax") ;
1285 use warnings FATAL => 'all' ;
1294 no warnings ;
1295 print "ok1\n" if warnings::fatal_enabled('all') ;
1296 print "ok2\n" if warnings::fatal_enabled("void") ;
1297 print "ok3\n" if !warnings::fatal_enabled("syntax") ;
1300 use warnings FATAL => 'all', NONFATAL => 'syntax' ;
1308 { no warnings; Quux::quux(); }
1309 { no warnings; use warnings "void"; Quux::quux(); }
1310 { use warnings; Quux::quux(); }
1311 { use warnings; no warnings "void"; Quux::quux(); }
1312 use warnings ();
1313 BEGIN { warnings::register_categories(qw(wibble wobble wabble wubble webble)); }
1316 warnings::warnif($_, "My $_ is flanged")
1322 { no warnings; Quux::quux(); }
1323 { no warnings; use warnings "void"; Quux::quux(); }
1324 { use warnings; Quux::quux(); }
1325 { use warnings; no warnings "void"; Quux::quux(); }
1326 { no warnings; use warnings qw(wibble wabble webble); Quux::quux(); }
1327 { no warnings; use warnings qw(wobble wubble); Quux::quux(); }
1328 { use warnings; no warnings qw(wibble wabble webble); Quux::quux(); }
1329 { use warnings; no warnings qw(wobble wubble); Quux::quux(); }
1330 { use warnings qw(wubble NONFATAL void); Quux::quux(); }
1331 { use warnings qw(wubble); no warnings "void"; Quux::quux(); }
1332 { no warnings "webble"; Quux::quux(); }
1333 { use warnings qw(NONFATAL webble); Quux::quux(); }
1373 { use warnings "utf8"; foo() }
1374 sub foo { use warnings "syntax"; bar() }
1376 use warnings "unpack";
1378 print "1. ", warnings::enabled_at_level("unpack", 0)||0;
1379 print "2. ", warnings::enabled_at_level("unpack", 1)||0;
1380 print "3. ", warnings::enabled_at_level("unpack", 2)||0;
1381 print "4. ", warnings::enabled_at_level("syntax", 0)||0;
1382 print "5. ", warnings::enabled_at_level("syntax", 1)||0;
1383 print "6. ", warnings::enabled_at_level("syntax", 2)||0;
1384 print "7. ", warnings::enabled_at_level("utf8", 0)||0;
1385 print "8. ", warnings::enabled_at_level("utf8", 1)||0;
1386 print "9. ", warnings::enabled_at_level("utf8", 2)||0;
1387 warnings::warn_at_level ("misc",0,"A mandatory foo warning");
1388 warnings::warn_at_level ("misc",1,"A mandatory top-level warning");
1389 warnings::warnif_at_level("syntax",0,"A conditional syntax warning");
1390 warnings::warnif_at_level("syntax",1,"A conditional syntax warning");
1391 warnings::warnif_at_level("utf8",0,"A conditional utf8 warning");
1392 warnings::warnif_at_level("utf8",1,"A conditional utf8 warning");
1394 { use warnings "syntax"; use warnings FATAL => "utf8"; foo2() }
1396 use warnings FATAL => "syntax"; use warnings "utf8"; bar2()
1400 print "10. ", warnings::fatal_enabled_at_level("syntax", 0)||0;
1401 print "11. ", warnings::fatal_enabled_at_level("syntax", 1)||0;
1402 print "12. ", warnings::fatal_enabled_at_level("utf8", 0)||0;
1403 print "13. ", warnings::fatal_enabled_at_level("utf8", 1)||0;
1405 eval { warnings::warn_at_level ("syntax",1,"A fatal warning") };
1407 eval { warnings::warnif_at_level("syntax",1,"A fatal syntax warning") };
1409 eval { warnings::warnif_at_level("syntax",2,"A syntax warning") };
1411 eval { warnings::warnif_at_level("utf8",1,"A utf8 warning") };
1413 eval { warnings::warnif_at_level("utf8",2,"A fatal utf8 warning") };
1441 use warnings;
1449 warnings::warn_at_level("syntax", 0, "Foo warning");
1451 warnings::warn_at_level("syntax", 0, "Bar warning");
1459 use warnings;
1468 warnings::warn_at_level("syntax", 0, "Foo warning");
1470 warnings::warn_at_level("syntax", 0, "Bar warning");