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

Comparing Coro/t/06_prio.t (file contents):
Revision 1.1 by root, Tue Aug 14 14:56:22 2001 UTC vs.
Revision 1.2 by root, Sat Nov 25 00:40:26 2006 UTC

… …
3 3
4use Coro qw(:prio cede async current); 4use Coro qw(:prio cede async current);
5 5
6print "ok 1\n"; 6print "ok 1\n";
7 7
8use Carp; $SIG{__DIE__} = sub { Carp::cluck $@ };#d#
9
8(async { print "ok 2\n"; cede; print "ok 3\n" })->prio(10); 10(async { print "ok 2\n"; cede; cede; cede; print "ok 3\n" })->prio(10);
9(async { print "ok 4\n" })->prio(2); 11(async { print "ok 4\n" })->prio(2);
10(async { print "ok 5\n" })->prio(PRIO_HIGH); 12(async { print "ok 5\n" })->prio(PRIO_HIGH);
11(async { print "ok 6\n" }); 13(async { print "ok 6\n" });
12(async { print "ok 7\n" })->prio(PRIO_LOW); 14(async { print "ok 7\n" })->prio(PRIO_LOW);
13(async { print "ok 8\n" })->prio(PRIO_IDLE); 15(async { print "ok 8\n" })->prio(PRIO_IDLE);

Diff Legend

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