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.4 by root, Sat Aug 11 19:59:20 2001 UTC vs.
Revision 1.9 by root, Wed Oct 3 10:29:41 2007 UTC

1BEGIN { $| = 1; print "1..6\n"; } 1BEGIN { $| = 1; print "1..8\n"; }
2END {print "not ok 1\n" unless $loaded;} 2END {print "not ok 1\n" unless $loaded;}
3use Coro::State; 3use Coro::State;
4$loaded = 1; 4$loaded = 1;
5print "ok 1\n"; 5print "ok 1\n";
6 6
7my $main = new Coro::State; 7my $main = new Coro::State;
8my $proc = new Coro::State \&a; 8my $proca = new Coro::State \&a;
9my $procb = new Coro::State \&b;
9 10
10sub a { 11sub a {
12 $/ = 77;
11 print "ok 3\n"; 13 print "ok 3\n";
12 $proc->transfer($main, 0); 14 $proca->transfer ($main);
13 print "ok 5\n"; 15 print $/ == 77 ? "" : "not ", "ok 5\n";
14 $proc->transfer($main, 0); 16 $proca->transfer ($main);
17 print "not ok 6\n";
15 die; 18 die;
16} 19}
17 20
21sub b {
22 print $/ != 55 ? "not " : "", "ok 7\n";
23 $procb->transfer ($main);
24 print "not ok 8\n";
25 die;
26}
27
28$/ = 55;
29
18print "ok 2\n"; 30print "ok 2\n";
19$main->transfer($proc, 0); 31$main->transfer ($proca);
20print "ok 4\n"; 32print $/ != 55 ? "not " : "ok 4\n";
21$main->transfer($proc, 0); 33$main->transfer ($proca);
22print "ok 6\n"; 34print $/ != 55 ? "not " : "ok 6\n";
35$main->transfer ($procb);
36print $/ != 55 ? "not " : "ok 8\n";
23 37

Diff Legend

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