… | … | ||
---|---|---|---|
2 | END {print "not ok 1\n" unless $loaded;} | 2 | END {print "not ok 1\n" unless $loaded;} |
3 | use Coro; | 3 | use Coro; |
4 | $loaded = 1; | 4 | $loaded = 1; |
5 | print "ok 1\n"; | 5 | print "ok 1\n"; |
6 | 6 | ||
7 | my $main = $Coro::main; | 7 | my $main = new Coro; |
8 | my $proc = new Coro \&a; | 8 | my $proc = new Coro \&a; |
9 | 9 | ||
10 | sub a { | 10 | sub a { |
11 | print "ok 3\n"; | 11 | print "ok 3\n"; |
12 | $main->resume; | 12 | $proc->transfer($main); |
13 | print "ok 5\n"; | 13 | print "ok 5\n"; |
14 | $main; | 14 | $proc->transfer($main); |
15 | die; | ||
15 | } | 16 | } |
16 | 17 | ||
17 | print "ok 2\n"; | 18 | print "ok 2\n"; |
18 | $proc->resume; | 19 | $main->transfer($proc); |
19 | print "ok 4\n"; | 20 | print "ok 4\n"; |
20 | $proc->resume; | 21 | $main->transfer($proc); |
21 | print "ok 6\n"; | 22 | print "ok 6\n"; |
22 | 23 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |