Lines Matching refs:warnings
9 use warnings;
11 use vars qw{ @warnings };
14 $SIG{'__WARN__'} = sub { push @warnings, @_ };
19 END { print "not ok\n# Uncaught warnings:\n@warnings\n" if @warnings }
54 test_warning 1, shift @warnings, $odd_msg;
57 test_warning 2, shift @warnings, $odd_msg;
60 test_warning 3, shift @warnings, $odd_msg2;
61 test_warning 4, shift @warnings, $ref_msg;
64 test_warning 5, shift @warnings, $ref_msg;
67 test_warning 6, shift @warnings, $odd_msg;
70 # "Pseudo-hashes are deprecated" warnings tested in warnings/av
71 no warnings 'deprecated';
75 test_warning 7, shift @warnings, $odd_msg;
78 test_warning 8, shift @warnings, $odd_msg;
81 test 9, ! @warnings, "Unexpected warning";