1 | use AnyEvent; | 1 | use AnyEvent; |
---|---|---|---|
2 | use AnyEvent::Impl::Perl; | 2 | BEGIN { require AnyEvent::Impl::Perl unless $ENV{PERL_ANYEVENT_MODEL} } |
3 | 3 | ||
4 | $| = 1; print "1..21\n"; | 4 | $| = 1; print "1..21\n"; |
5 | 5 | ||
6 | print "ok 1\n"; | 6 | print "ok 1\n"; |
7 | 7 | ||
… | … | ||
25 | print "ok 3\n"; | 25 | print "ok 3\n"; |
26 | $cv->send (7, 5); | 26 | $cv->send (7, 5); |
27 | }); | 27 | }); |
28 | 28 | ||
29 | print "ok 2\n"; | 29 | print "ok 2\n"; |
30 | $cv->wait; | 30 | $cv->recv; |
31 | print "ok 8\n"; | 31 | print "ok 8\n"; |
32 | 32 | ||
33 | my @x = $cv->recv; | 33 | my @x = $cv->recv; |
34 | print $x[1] == 5 ? "" : "not ", "ok 9 # $x[1] == 5\n"; | 34 | print $x[1] == 5 ? "" : "not ", "ok 9 # $x[1] == 5\n"; |
35 | } | 35 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |