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.6 by root, Mon Dec 4 13:47:56 2006 UTC vs.
Revision 1.7 by root, Mon Dec 4 21:56:00 2006 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 $proc = new Coro::State \&a;
9my $proc2 = 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); 14 $proc->transfer ($main);
13 print "ok 5\n"; 15 print $/ == 77 ? "" : "not ", "ok 5\n";
14 $proc->transfer ($main); 16 $proc->transfer ($main);
15 print "not ok 6\n"; 17 print "not ok 6\n";
16 die; 18 die;
17} 19}
18 20
21sub b {
22 print $/ != 55 ? "not " : "", "ok 7\n";
23 $proc2->transfer ($main);
24 print "not ok 8\n";
25 die;
26}
27
28$proc2->save (0);
29
30$/ = 55;
31
19print "ok 2\n"; 32print "ok 2\n";
20$main->transfer ($proc); 33$main->transfer ($proc);
21print "ok 4\n"; 34print $/ != 55 ? "not " : "ok 4\n";
22$main->transfer ($proc); 35$main->transfer ($proc);
23print "ok 6\n"; 36print $/ != 55 ? "not " : "ok 6\n";
37$main->transfer ($proc2);
38print $/ != 55 ? "not " : "ok 8\n";
24 39

Diff Legend

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