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.2 by root, Tue Jul 10 21:19:47 2001 UTC vs.
Revision 1.6 by root, Mon Dec 4 13:47:56 2006 UTC

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

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines