| … | … | ||
|---|---|---|---|
| 13 | }; | 13 | }; |
| 14 | $a2 = EV::async sub { | 14 | $a2 = EV::async sub { |
| 15 | print "ok 5\n"; | 15 | print "ok 5\n"; |
| 16 | $a1->cb (sub { | 16 | $a1->cb (sub { |
| 17 | print "ok 6\n"; | 17 | print "ok 6\n"; |
| 18 | EV::unloop; | 18 | EV::break; |
| 19 | }); | 19 | }); |
| 20 | $a1->send; | 20 | $a1->send; |
| 21 | }; | 21 | }; |
| 22 | $a1 = EV::async sub { | 22 | $a1 = EV::async sub { |
| 23 | print $a1->async_pending ? "not " : "", "ok 4\n"; | 23 | print $a1->async_pending ? "not " : "", "ok 4\n"; |
| … | … | ||
| 28 | $a1->send; | 28 | $a1->send; |
| 29 | print $a1->async_pending ? "" : "not ", "ok 2\n"; | 29 | print $a1->async_pending ? "" : "not ", "ok 2\n"; |
| 30 | $a1->send; | 30 | $a1->send; |
| 31 | $a1->send; | 31 | $a1->send; |
| 32 | print "ok 3\n"; | 32 | print "ok 3\n"; |
| 33 | EV::loop; | 33 | EV::run; |
| 34 | print "ok 7\n"; | 34 | print "ok 7\n"; |
| 35 | } | 35 | } |
| 36 | 36 | ||
| 37 | { | 37 | { |
| 38 | my $l = new EV::Loop; | 38 | my $l = new EV::Loop; |
| … | … | ||
| 43 | }); | 43 | }); |
| 44 | $a2 = $l->async (sub { | 44 | $a2 = $l->async (sub { |
| 45 | print "ok 11\n"; | 45 | print "ok 11\n"; |
| 46 | $a1->cb (sub { | 46 | $a1->cb (sub { |
| 47 | print "ok 12\n"; | 47 | print "ok 12\n"; |
| 48 | $l->unloop; | 48 | $l->break; |
| 49 | }); | 49 | }); |
| 50 | $a1->send; | 50 | $a1->send; |
| 51 | }); | 51 | }); |
| 52 | $a1 = $l->async (sub { | 52 | $a1 = $l->async (sub { |
| 53 | print "ok 10\n"; | 53 | print "ok 10\n"; |
| … | … | ||
| 57 | print "ok 8\n"; | 57 | print "ok 8\n"; |
| 58 | $a1->send; | 58 | $a1->send; |
| 59 | $a1->send; | 59 | $a1->send; |
| 60 | $a1->send; | 60 | $a1->send; |
| 61 | print "ok 9\n"; | 61 | print "ok 9\n"; |
| 62 | $l->loop; | 62 | $l->run; |
| 63 | print "ok 13\n"; | 63 | print "ok 13\n"; |
| 64 | } | 64 | } |
| 65 | 65 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |