This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Move the locale/strict/warnings helper files back
[perl5.git] / t / lib / warnings / 9enabled
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('all') ;
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('all') ;
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('io') ;
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('all') ;
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('all') ;
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('all') ;
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('all') ;
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('all') ;
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('all') ;
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('all') ;
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('all') ;
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('all') ;
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('all') ;
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('all') ;
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('all') ;
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('all') ;
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('all') ;
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('all') ;
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('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") ;
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", "joe") } ;
331 print $@ ;
332 EXPECT
333 Usage: warnings::warn([category,] 'message') at - line 4
334 unknown warnings category 'fred' at - line 6
335 ########
336
337 # check warnings::warnif
338 use warnings ;
339 eval { warnings::warnif() } ;
340 print $@ ;
341 eval { warnings::warnif("fred", "joe") } ;
342 print $@ ;
343 EXPECT
344 Usage: warnings::warnif([category,] 'message') at - line 4
345 unknown warnings category 'fred' at - line 6
346 ########
347
348 --FILE-- abc.pm
349 package abc ;
350 use warnings 'misc' ;
351 sub check { warnings::warn("io", "hello") }
352 1;
353 --FILE--
354 use warnings "io" ;
355 use abc;
356 abc::check() ;
357 EXPECT
358 hello at - line 3
359 ########
360
361 --FILE-- abc.pm
362 package abc ;
363 use warnings 'misc' ;
364 sub check { warnings::warn("misc", "hello") }
365 1;
366 --FILE--
367 use warnings "io" ;
368 use abc;
369 abc::check() ;
370 EXPECT
371 hello at - line 3
372 ########
373
374 --FILE-- abc.pm
375 package abc ;
376 use warnings 'misc' ;
377 sub check { warnings::warn("io", "hello") }
378 1;
379 --FILE--
380 use warnings qw( FATAL deprecated ) ;
381 use abc;
382 eval { abc::check() ; } ;
383 print "[[$@]]\n";
384 EXPECT
385 hello at - line 3
386         eval {...} called at - line 3
387 [[]]
388 ########
389
390 --FILE-- abc.pm
391 package abc ;
392 use warnings 'misc' ;
393 sub check { warnings::warn("io", "hello") }
394 1;
395 --FILE--
396 use warnings qw( FATAL io ) ;
397 use abc;
398 eval { abc::check() ; } ;
399 print "[[$@]]\n";
400 EXPECT
401 [[hello at - line 3
402         eval {...} called at - line 3
403 ]]
404 ########
405 -W
406 --FILE-- abc.pm
407 package abc ;
408 use warnings "io" ;
409 print "ok1\n" if warnings::enabled("io") ;
410 print "ok2\n" if warnings::enabled("all") ;
411 1;
412 --FILE-- 
413 no warnings;
414 use abc ;
415 EXPECT
416 ok1
417 ok2
418 ########
419 -X
420 --FILE-- abc.pm
421 package abc ;
422 use warnings "io" ;
423 print "ok1\n" if !warnings::enabled("io") ;
424 print "ok2\n" if !warnings::enabled("all") ;
425 1;
426 --FILE-- 
427 use warnings;
428 use abc ;
429 EXPECT
430 ok1
431 ok2
432 ########
433
434 --FILE-- abc.pm
435 package abc ;
436 no warnings ;
437 sub check {
438   print "ok\n" if ! warnings::enabled() ;
439 }
440 1;
441 --FILE-- 
442 use warnings 'syntax' ;
443 use abc ;
444 abc::check() ;
445 EXPECT
446 package 'abc' not registered for warnings at abc.pm line 4
447 ########
448
449 --FILE-- abc.pm
450 package abc ;
451 no warnings ;
452 sub check {
453   warnings::warn("fred") ;
454 }
455 1;
456 --FILE-- 
457 use warnings 'syntax' ;
458 use abc ;
459 abc::check() ;
460 EXPECT
461 package 'abc' not registered for warnings at abc.pm line 4
462 ########
463
464 --FILE-- abc.pm
465 package abc ;
466 no warnings ;
467 sub check {
468   warnings::warnif("fred") ;
469 }
470 1;
471 --FILE-- 
472 use warnings 'syntax' ;
473 use abc ;
474 abc::check() ;
475 EXPECT
476 package 'abc' not registered for warnings at abc.pm line 4
477 ########
478
479 --FILE-- abc.pm
480 package abc ;
481 use warnings 'io' ;
482 use warnings::register ;
483 sub check {
484   print "ok1\n" if  warnings::enabled ;
485   print "ok2\n" if  warnings::enabled("syntax") ;
486   print "ok3\n" if !warnings::enabled("io") ;
487 }
488 1;
489 --FILE-- 
490 use warnings 'syntax' ;
491 use abc ;
492 use warnings 'abc' ;
493 abc::check() ;
494 EXPECT
495 ok1
496 ok2
497 ok3
498 ########
499
500 --FILE-- abc.pm
501 package abc ;
502 use warnings 'io' ;
503 use warnings::register ;
504 sub check {
505   print "ok1\n" if !warnings::enabled ;
506   print "ok2\n" if  warnings::enabled("syntax") ;
507   print "ok3\n" if !warnings::enabled("io") ;
508 }
509 1;
510 --FILE-- 
511 use warnings 'syntax' ;
512 use abc ;
513 abc::check() ;
514 EXPECT
515 ok1
516 ok2
517 ok3
518 ########
519
520 --FILE-- abc.pm
521 package abc ;
522 no warnings ;
523 use warnings::register ;
524 sub check {
525   print "ok1\n" if warnings::enabled ;
526   print "ok2\n" if warnings::enabled("syntax") ;
527 }
528 1;
529 --FILE-- 
530 use warnings 'syntax' ;
531 use abc ;
532 use warnings 'abc' ;
533 eval { abc::check() ; };
534 print $@ ;
535 EXPECT
536 ok1
537 ok2
538 ########
539
540 --FILE-- abc.pm
541 package abc ;
542 use warnings 'io' ;
543 use warnings::register ;
544 sub check {
545   print "ok1\n" if !warnings::enabled ;
546   print "ok2\n" if  warnings::enabled("syntax") ;
547   print "ok3\n" if !warnings::enabled("io") ;
548 }
549 1;
550 --FILE-- 
551 use warnings 'syntax' ;
552 use abc ;
553 eval { abc::check() ; } ;
554 print $@ ;
555 EXPECT
556 ok1
557 ok2
558 ok3
559 ########
560
561 --FILE-- abc.pm
562 package abc ;
563 use warnings 'io' ;
564 use warnings::register ;
565 sub check {
566   print "ok1\n" if  warnings::enabled ;
567   print "ok2\n" if  warnings::enabled("syntax") ;
568   print "ok3\n" if !warnings::enabled("io") ;
569 }
570 1;
571 --FILE-- 
572 use warnings 'syntax' ;
573 use abc ;
574 use warnings 'abc' ;
575 sub fred { abc::check() }
576 fred() ;
577 EXPECT
578 ok1
579 ok2
580 ok3
581 ########
582
583 --FILE-- abc.pm
584 package abc ;
585 use warnings 'io' ;
586 use warnings::register ;
587 sub check {
588   print "ok1\n" if  ! warnings::enabled ;
589 }
590 1;
591 --FILE-- 
592 use warnings 'syntax' ;
593 use abc ;
594 sub fred { no warnings ; abc::check() }
595 fred() ;
596 EXPECT
597 ok1
598 ########
599
600 --FILE-- abc.pm
601 package abc ;
602 use warnings 'misc' ;
603 use warnings::register;
604 sub check {
605   print "ok1\n" if  warnings::enabled ;
606   print "ok2\n" if  warnings::enabled("syntax") ;
607   print "ok3\n" if  warnings::enabled("io") ;
608   print "ok4\n" if  ! warnings::enabled("misc") ;
609 }
610 1;
611 --FILE-- 
612 use warnings 'syntax' ;
613 use abc ;
614 use warnings 'abc' ;
615 sub fred { use warnings 'io'  ; abc::check() }
616 fred() ;
617 EXPECT
618 ok1
619 ok2
620 ok3
621 ok4
622 ########
623
624 --FILE-- abc.pm
625 package abc ;
626 use warnings 'misc' ;
627 use warnings::register;
628 sub check { warnings::warn("hello") }
629 1;
630 --FILE--
631 use abc;
632 use warnings "abc" ;
633 abc::check() ;
634 EXPECT
635 hello at - line 3
636 ########
637
638 --FILE-- abc.pm
639 package abc ;
640 use warnings::register;
641 sub check { warnings::warn("hello") }
642 1;
643 --FILE--
644 use abc;
645 abc::check() ;
646 EXPECT
647 hello at - line 2
648 ########
649
650 --FILE-- abc.pm
651 package abc ;
652 use warnings::register ;
653 sub check { warnings::warn("hello") }
654 1;
655 --FILE--
656 use abc;
657 use warnings qw( FATAL deprecated ) ;
658 eval { abc::check() ; } ;
659 print "[[$@]]\n";
660 EXPECT
661 hello at - line 3
662         eval {...} called at - line 3
663 [[]]
664 ########
665
666 --FILE-- abc.pm
667 package abc ;
668 use warnings::register ;
669 sub check { warnings::warn("hello") }
670 1;
671 --FILE--
672 use abc;
673 use warnings qw( FATAL abc ) ;
674 eval { abc::check() ; } ;
675 print "[[$@]]\n";
676 EXPECT
677 [[hello at - line 3
678         eval {...} called at - line 3
679 ]]
680 ########
681 -W
682 --FILE-- abc.pm
683 package abc ;
684 use warnings "io" ;
685 use warnings::register ;
686 sub check { 
687   print "ok1\n" if warnings::enabled() ;
688   print "ok2\n" if warnings::enabled("io") ;
689   print "ok3\n" if warnings::enabled("all") ;
690 }
691 1;
692 --FILE-- 
693 no warnings;
694 use abc ;
695 abc::check() ;
696 EXPECT
697 ok1
698 ok2
699 ok3
700 ########
701 -X
702 --FILE-- abc.pm
703 package abc ;
704 use warnings "io" ;
705 use warnings::register ;
706 sub check { 
707   print "ok1\n" if !warnings::enabled() ;
708   print "ok2\n" if !warnings::enabled("io") ;
709   print "ok3\n" if !warnings::enabled("all") ;
710 }
711 1;
712 --FILE-- 
713 no warnings;
714 use abc ;
715 abc::check() ;
716 EXPECT
717 ok1
718 ok2
719 ok3
720 ########
721
722 --FILE-- abc.pm
723 package abc ;
724 use warnings "io" ;
725 use warnings::register ;
726 sub check { 
727   print "ok1\n" if warnings::enabled() ;
728   print "ok2\n" if warnings::enabled("io") ;
729   print "ok3\n" if warnings::enabled("all") ;
730 }
731 1;
732 --FILE-- 
733 use warnings 'all';
734 use abc ;
735 abc::check() ;
736 EXPECT
737 ok1
738 ok2
739 ok3
740 ########
741
742 --FILE-- abc.pm
743 package abc ;
744 use warnings "io" ;
745 use warnings::register ;
746 sub check { 
747   print "ok1\n" if !warnings::enabled() ;
748   print "ok2\n" if !warnings::enabled("io") ;
749   print "ok3\n" if !warnings::enabled("all") ;
750 }
751 1;
752 --FILE-- 
753 use abc ;
754 no warnings ;
755 abc::check() ;
756 EXPECT
757 ok1
758 ok2
759 ok3
760 ########
761
762 --FILE-- abc.pm
763 package abc ;
764 use warnings "io" ;
765 use warnings::register ;
766 sub check { 
767   print "ok1\n" if !warnings::enabled() ;
768   print "ok2\n" if !warnings::enabled("io") ;
769   print "ok3\n" if !warnings::enabled("all") ;
770   warnings::warnif("my message 1") ;
771   warnings::warnif('abc', "my message 2") ;
772   warnings::warnif('io', "my message 3") ;
773   warnings::warnif('all', "my message 4") ;
774 }
775 1;
776 --FILE-- 
777 use abc ;
778 use warnings 'abc';
779 no warnings ;
780 abc::check() ;
781 EXPECT
782 ok1
783 ok2
784 ok3
785 ########
786
787 --FILE-- abc.pm
788 package abc ;
789 use warnings "io" ;
790 use warnings::register ;
791 sub check { 
792   print "abc self" . (warnings::enabled() ? "" : " not") . " enabled\n" ;
793   print "abc def"  . (warnings::enabled('def') ? "" : " not") . " enabled\n" ;
794   print "abc all"  . (warnings::enabled('all') ? "" : " not") . " enabled\n" ;
795 }
796 1;
797 --FILE-- def.pm
798 package def ;
799 use warnings "io" ;
800 use warnings::register ;
801 sub check { 
802   print "def self" . (warnings::enabled() ? "" : " not") . " enabled\n" ;
803   print "def abc"  . (warnings::enabled('abc') ? "" : " not") . " enabled\n" ;
804   print "def all"  . (warnings::enabled('all') ? "" : " not") . " enabled\n" ;
805 }
806 1;
807 --FILE-- 
808 use abc ;
809 use def ;
810 use warnings 'abc';
811 abc::check() ;
812 def::check() ;
813 no warnings 'abc'  ;
814 use warnings 'def'  ;
815 abc::check() ;
816 def::check() ;
817 use warnings 'abc'  ;
818 use warnings 'def'  ;
819 abc::check() ;
820 def::check() ;
821 no warnings 'abc'  ;
822 no warnings 'def'  ;
823 abc::check() ;
824 def::check() ;
825 use warnings;
826 abc::check() ;
827 def::check() ;
828 no warnings 'abc' ;
829 abc::check() ;
830 def::check() ;
831 EXPECT
832 abc self enabled
833 abc def not enabled
834 abc all not enabled
835 def self not enabled
836 def abc enabled
837 def all not enabled
838 abc self not enabled
839 abc def enabled
840 abc all not enabled
841 def self enabled
842 def abc not enabled
843 def all not enabled
844 abc self enabled
845 abc def enabled
846 abc all not enabled
847 def self enabled
848 def abc enabled
849 def all not enabled
850 abc self not enabled
851 abc def not enabled
852 abc all not enabled
853 def self not enabled
854 def abc not enabled
855 def all not enabled
856 abc self enabled
857 abc def enabled
858 abc all enabled
859 def self enabled
860 def abc enabled
861 def all enabled
862 abc self not enabled
863 abc def enabled
864 abc all not enabled
865 def self enabled
866 def abc not enabled
867 def all not enabled
868 ########
869 -w
870 --FILE-- abc.pm
871 package abc ;
872 no warnings ;
873 use warnings::register ;
874 sub check { 
875   print "ok1\n" if warnings::enabled() ;
876   print "ok2\n" if warnings::enabled("io") ;
877   print "ok3\n" if warnings::enabled("all") ;
878 }
879 1;
880 --FILE-- 
881 use abc ;
882 abc::check() ;
883 EXPECT
884 ok1
885 ok2
886 ok3
887 ########
888 -w
889 --FILE-- abc.pm
890 package abc ;
891 no warnings ;
892 use warnings::register ;
893 sub check { 
894   print "ok1\n" if !warnings::enabled() ;
895   print "ok2\n" if !warnings::enabled("io") ;
896   print "ok3\n" if !warnings::enabled("all") ;
897 }
898 1;
899 --FILE-- 
900 use abc ;
901 use warnings 'abc';
902 no warnings ;
903 abc::check() ;
904 EXPECT
905 ok1
906 ok2
907 ok3
908 ########
909
910 --FILE-- abc.pm
911 package abc ;
912 no warnings ;
913 use warnings::register ;
914 sub check { 
915   print "ok1\n" if !warnings::enabled() ;
916   print "ok2\n" if !warnings::enabled("io") ;
917   print "ok3\n" if !warnings::enabled("all") ;
918   warnings::warnif("my message 1") ;
919   warnings::warnif('abc', "my message 2") ;
920   warnings::warnif('io', "my message 3") ;
921   warnings::warnif('all', "my message 4") ;
922 }
923 1;
924 --FILE-- 
925 use abc ;
926 use warnings 'abc';
927 no warnings ;
928 BEGIN { $^W = 1 ; }
929 abc::check() ;
930 EXPECT
931 ok1
932 ok2
933 ok3
934 ########
935
936 --FILE-- abc.pm
937 package abc ;
938 no warnings ;
939 use warnings::register ;
940 sub check { 
941   print "ok1\n" if !warnings::enabled() ;
942   print "ok2\n" if !warnings::enabled("io") ;
943   print "ok3\n" if !warnings::enabled("all") ;
944 }
945 1;
946 --FILE-- 
947 use abc ;
948 use warnings 'abc';
949 no warnings ;
950 $^W = 1 ;
951 abc::check() ;
952 EXPECT
953 ok1
954 ok2
955 ok3
956 ########
957
958 --FILE-- abc.pm
959 $| = 1;
960 package abc ;
961 no warnings ;
962 use warnings::register ;
963 sub check { 
964   print "ok1\n" if  warnings::enabled() ;
965   print "ok2\n" if !warnings::enabled("io") ;
966   print "ok3\n" if !warnings::enabled("all") ;
967   print "ok4\n" if  warnings::enabled("abc") ;
968   warnings::warn("my message 1") ;
969   warnings::warnif("my message 2") ;
970   warnings::warnif('abc', "my message 3") ;
971   warnings::warnif('io', "my message 4") ;
972   warnings::warnif('all', "my message 5") ;
973 }
974 sub in2 { no warnings ; check() }
975 sub in1 { no warnings ; in2() }
976 1;
977 --FILE-- 
978 use abc ;
979 use warnings 'abc';
980 abc::in1() ;
981 EXPECT
982 ok1
983 ok2
984 ok3
985 ok4
986 my message 1 at - line 3
987 my message 2 at - line 3
988 my message 3 at - line 3
989 ########
990
991 --FILE-- def.pm
992 package def ;
993 no warnings ;
994 use warnings::register ;
995 sub check { 
996   print "ok1\n" if  warnings::enabled() ;
997   print "ok2\n" if !warnings::enabled("io") ;
998   print "ok3\n" if !warnings::enabled("all") ;
999   print "ok4\n" if  warnings::enabled("def") ;
1000   warnings::warn("my message 1") ;
1001   warnings::warnif("my message 2") ;
1002   warnings::warnif('def', "my message 3") ;
1003   warnings::warnif('io', "my message 4") ;
1004   warnings::warnif('all', "my message 5") ;
1005 }
1006 sub in2 { no warnings ; check() }
1007 sub in1 { no warnings ; in2() }
1008 1;
1009 --FILE-- abc.pm
1010 $| = 1;
1011 package abc ;
1012 use def ;
1013 use warnings 'def';
1014 sub in1 { def::in1() ; }
1015 1;
1016 --FILE-- 
1017 use abc ;
1018 no warnings;
1019 abc::in1() ;
1020 EXPECT
1021 ok1
1022 ok2
1023 ok3
1024 ok4
1025 my message 1 at abc.pm line 5
1026         abc::in1() called at - line 3
1027 my message 2 at abc.pm line 5
1028         abc::in1() called at - line 3
1029 my message 3 at abc.pm line 5
1030         abc::in1() called at - line 3
1031 ########
1032
1033 --FILE-- def.pm
1034 $| = 1;
1035 package def ;
1036 no warnings ;
1037 use warnings::register ;
1038 require Exporter;
1039 @ISA = qw( Exporter ) ;
1040 @EXPORT = qw( in1 ) ;
1041 sub check { 
1042   print "ok1\n" if  warnings::enabled() ;
1043   print "ok2\n" if !warnings::enabled("io") ;
1044   print "ok3\n" if !warnings::enabled("all") ;
1045   print "ok4\n" if  warnings::enabled("abc") ;
1046   print "ok5\n" if !warnings::enabled("def") ;
1047   warnings::warn("my message 1") ;
1048   warnings::warnif("my message 2") ;
1049   warnings::warnif('abc', "my message 3") ;
1050   warnings::warnif('def', "my message 4") ;
1051   warnings::warnif('io', "my message 5") ;
1052   warnings::warnif('all', "my message 6") ;
1053 }
1054 sub in2 { no warnings ; check() }
1055 sub in1 { no warnings ; in2() }
1056 1;
1057 --FILE-- abc.pm
1058 package abc ;
1059 use warnings::register ;
1060 use def ;
1061 #@ISA = qw(def) ;
1062 1;
1063 --FILE-- 
1064 use abc ;
1065 no warnings;
1066 use warnings 'abc';
1067 abc::in1() ;
1068 EXPECT
1069 ok2
1070 ok3
1071 ok4
1072 ok5
1073 my message 1 at - line 4
1074 my message 3 at - line 4
1075 ########
1076
1077 --FILE-- def.pm
1078 package def ;
1079 no warnings ;
1080 use warnings::register ;
1081
1082 sub new
1083 {
1084     my $class = shift ;
1085     bless [], $class ;
1086 }
1087
1088 sub check 
1089
1090   my $self = shift ;
1091   print "ok1\n" if !warnings::enabled() ;
1092   print "ok2\n" if !warnings::enabled("io") ;
1093   print "ok3\n" if !warnings::enabled("all") ;
1094   print "ok4\n" if  warnings::enabled("abc") ;
1095   print "ok5\n" if !warnings::enabled("def") ;
1096   print "ok6\n" if  warnings::enabled($self) ;
1097
1098   warnings::warn("my message 1") ;
1099   warnings::warn($self, "my message 2") ;
1100
1101   warnings::warnif("my message 3") ;
1102   warnings::warnif('abc', "my message 4") ;
1103   warnings::warnif('def', "my message 5") ;
1104   warnings::warnif('io', "my message 6") ;
1105   warnings::warnif('all', "my message 7") ;
1106   warnings::warnif($self, "my message 8") ;
1107 }
1108 sub in2 
1109 {
1110   no warnings ; 
1111   my $self = shift ;
1112   $self->check() ;
1113 }
1114 sub in1 
1115
1116   no warnings ;
1117   my $self = shift ;
1118   $self->in2();
1119 }
1120 1;
1121 --FILE-- abc.pm
1122 $| = 1;
1123 package abc ;
1124 use warnings::register ;
1125 use def ;
1126 @ISA = qw(def) ;
1127 sub new
1128 {
1129     my $class = shift ;
1130     bless [], $class ;
1131 }
1132
1133 1;
1134 --FILE-- 
1135 use abc ;
1136 no warnings;
1137 use warnings 'abc';
1138 $a = new abc ;
1139 $a->in1() ;
1140 print "**\n";
1141 $b = new def ;
1142 $b->in1() ;
1143 EXPECT
1144 ok1
1145 ok2
1146 ok3
1147 ok4
1148 ok5
1149 ok6
1150 my message 1 at - line 5
1151 my message 2 at - line 5
1152 my message 4 at - line 5
1153 my message 8 at - line 5
1154 **
1155 ok1
1156 ok2
1157 ok3
1158 ok4
1159 ok5
1160 my message 1 at - line 8
1161 my message 2 at - line 8
1162 my message 4 at - line 8