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