Coro/t/01_process.t

$|=1;
print "1..6\n";

use Coro;

sub p1 : Coro {
   print "ok 2\n";
}

print "ok 1\n";
cede;
print "ok 3\n";

my $c1 = async {
   print "ok 5\n";
   cede;
};

print $c1->ready ? "not " : "", "ok 4\n";

cede;

print "ok 6\n";

Revision:	1.6
Committed:	Thu Nov 30 18:21:14 2006 UTC (17 years, 6 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
CVS Tags:	rel-3_1, rel-3_2, rel-3_0, rel-3_01, rel-3_11
Changes since 1.5:	+12 -1 lines
Log Message:	* empty log message *
#	Content
1	$\|=1;
2	print "1..6\n";
3
4	use Coro;
5
6	sub p1 : Coro {
7	print "ok 2\n";
8	}
9
10	print "ok 1\n";
11	cede;
12	print "ok 3\n";
13
14	my $c1 = async {
15	print "ok 5\n";
16	cede;
17	};
18
19	print $c1->ready ? "not " : "", "ok 4\n";
20
21	cede;
22
23	print "ok 6\n";
24