7 print $_[0] ? "" : "not ", "ok ", ++$test_num, "\n";
11 my $wa = []; my $ea = [];
12 $SIG{__WARN__} = sub { push @warnings, $_[0] };
17 ok @warnings==1 && $warnings[0] eq "foo\n";
22 ok @warnings==1 && $warnings[0] eq "foobar\n";
27 ok @warnings==1 && $warnings[0] eq "foo at warn.t line 26.\n";
32 ok @warnings==1 && ref($warnings[0]) eq "ARRAY" && $warnings[0] == $wa;
38 $warnings[0] eq "Warning: something's wrong at warn.t line 36.\n";
44 $warnings[0] eq "Warning: something's wrong at warn.t line 42.\n";
49 ok @warnings==1 && $warnings[0] eq "foo\n";
54 ok @warnings==1 && $warnings[0] eq "foobar\n";
59 ok @warnings==1 && $warnings[0] eq "foo at warn.t line 58.\n";
64 ok @warnings==1 && ref($warnings[0]) eq "ARRAY" && $warnings[0] == $wa;
70 $warnings[0] eq "ERR\n\t...caught at warn.t line 68.\n";
76 $warnings[0] eq "ERR\n\t...caught at warn.t line 74.\n";
81 ok @warnings==1 && $warnings[0] eq "foo\n";
86 ok @warnings==1 && $warnings[0] eq "foobar\n";
91 ok @warnings==1 && $warnings[0] eq "foo at warn.t line 90.\n";
96 ok @warnings==1 && ref($warnings[0]) eq "ARRAY" && $warnings[0] == $wa;
101 ok @warnings==1 && ref($warnings[0]) eq "ARRAY" && $warnings[0] == $ea;
106 ok @warnings==1 && ref($warnings[0]) eq "ARRAY" && $warnings[0] == $ea;