ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Coro/t/00_basic.t
(Generate patch)

Comparing Coro/t/00_basic.t (file contents):
Revision 1.1 by root, Tue Jul 3 02:53:34 2001 UTC vs.
Revision 1.2 by root, Tue Jul 10 21:19:47 2001 UTC

… …
2END {print "not ok 1\n" unless $loaded;} 2END {print "not ok 1\n" unless $loaded;}
3use Coro; 3use Coro;
4$loaded = 1; 4$loaded = 1;
5print "ok 1\n"; 5print "ok 1\n";
6 6
7my $main = $Coro::main; 7my $main = new Coro;
8my $proc = new Coro \&a; 8my $proc = new Coro \&a;
9 9
10sub a { 10sub 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
17print "ok 2\n"; 18print "ok 2\n";
18$proc->resume; 19$main->transfer($proc);
19print "ok 4\n"; 20print "ok 4\n";
20$proc->resume; 21$main->transfer($proc);
21print "ok 6\n"; 22print "ok 6\n";
22 23

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines