Revision: | 1.9 |
Committed: | Sat Apr 19 19:07:46 2008 UTC (16 years, 1 month ago) by root |
Content type: | application/x-troff |
Branch: | MAIN |
CVS Tags: | rel-4_91, rel-4_748, rel-4_8, rel-4_9, rel-4_741, rel-4_743, rel-4_742, rel-4_744, rel-4_747, rel-4_74, rel-4_71, rel-4_72, rel-4_73, rel-4_802, rel-4_803, rel-4_801, rel-4_804, rel-4_479, rel-4_745, rel-4_901, rel-4_746, rel-4_7, rel-4_911, rel-4_912 |
Changes since 1.8: | +2 -2 lines |
Log Message: | *** empty log message *** |
# | Content |
---|---|
1 | $|=1; |
2 | print "1..9\n"; |
3 | |
4 | use Coro; |
5 | |
6 | async { |
7 | print "ok 2\n"; |
8 | }; |
9 | |
10 | print "ok 1\n"; |
11 | cede; |
12 | print "ok 3\n"; |
13 | |
14 | my $c1 = async { |
15 | print "ok 5\n"; |
16 | cede; |
17 | print "not ok 8\n";#d# |
18 | }; |
19 | |
20 | print $c1->ready ? "not " : "", "ok 4\n"; |
21 | |
22 | cede; |
23 | |
24 | print "ok 6\n"; |
25 | |
26 | $c1->on_destroy (sub { |
27 | print "ok 7\n"; |
28 | }); |
29 | |
30 | $c1->cancel; |
31 | |
32 | print "ok 8\n"; |
33 | |
34 | cede; cede; |
35 | |
36 | print "ok 9\n"; |
37 |