ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Coro/t/13_diewarn.t
(Generate patch)

Comparing Coro/t/13_diewarn.t (file contents):
Revision 1.2 by root, Mon Oct 8 02:50:24 2007 UTC vs.
Revision 1.4 by root, Sun Oct 14 19:34:09 2007 UTC

1BEGIN { $| = 1; print "1..5\n"; } 1BEGIN { $| = 1; print "1..7\n"; }
2 2
3use Coro; 3use Coro;
4use Coro::State;
4 5
5print "ok 1\n"; 6print "ok 1\n";
6 7
7async { 8async {
9 warn "-";
10 cede;
11 warn "-";
12
8 local $SIG{__WARN__} = sub { print "ok 4\n" }; 13 local $SIG{__WARN__} = sub { print "ok 7\n" };
9 { 14 {
10 local $SIG{__WARN__} = sub { print "ok 2\n" }; 15 local $SIG{__WARN__} = sub { print "ok 5\n" };
16 cede;
17 warn "-";
18 }
19 cede;
20 warn "-";
21 cede;
22};
23
24async {
25 $Coro::State::WARNHOOK = sub { print "ok 3\n" };
26
27 local $SIG{__WARN__} = sub { print "ok 6\n" };
28 {
29 local $SIG{__WARN__} = sub { print "ok 4\n" };
11 cede; 30 cede;
12 warn "-"; 31 warn "-";
13 } 32 }
14 cede; 33 cede;
15 warn "-"; 34 warn "-";
16}; 35};
17 36
18async { 37$Coro::State::WARNHOOK = sub { print "ok 2\n" };
19 local $SIG{__WARN__} = sub { print "ok 5\n" };
20 {
21 local $SIG{__WARN__} = sub { print "ok 3\n" };
22 cede;
23 warn "-";
24 }
25 cede;
26 warn "-";
27};
28 38
29cede; 39cede;
30cede; 40cede;
31cede; 41cede;
32cede; 42cede;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines