Coro/t/01_process.t

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

use Coro;

async {
   print "ok 2\n";
};

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

my $c1 = async {
   print "ok 5\n";
   cede;
   print "not ok 8\n";#d#
};

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

cede;

print "ok 6\n";

$c1->on_destroy (sub {
   print "ok 7\n";
});

$c1->cancel;

print "ok 8\n";

cede; cede;

print "ok 9\n";

Revision:	1.9
Committed:	Sat Apr 19 19:07:46 2008 UTC (18 years, 5 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
CVS Tags:	rel-4_91, rel-4_748, rel-4_8, rel-4_9, rel-4_741, rel-4_743, rel-4_742, rel-4_744, rel-4_747, rel-4_74, rel-4_71, rel-4_72, rel-4_73, rel-4_802, rel-4_803, rel-4_801, rel-4_804, rel-4_479, rel-4_745, rel-4_901, rel-4_746, rel-4_7, rel-4_911, rel-4_912
Changes since 1.8:	+2 -2 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	$\|=1;
2	root	1.7	print "1..9\n";
3	root	1.1
4			use Coro;
5
6	root	1.9	async {
7	root	1.1	print "ok 2\n";
8	root	1.9	};
9	root	1.1
10			print "ok 1\n";
11	root	1.5	cede;
12	root	1.1	print "ok 3\n";
13
14	root	1.6	my $c1 = async {
15			print "ok 5\n";
16			cede;
17	root	1.8	print "not ok 8\n";#d#
18	root	1.6	};
19
20			print $c1->ready ? "not " : "", "ok 4\n";
21
22			cede;
23
24			print "ok 6\n";
25
26	root	1.7	$c1->on_destroy (sub {
27	root	1.8	print "ok 7\n";
28	root	1.7	});
29
30			$c1->cancel;
31
32	root	1.8	print "ok 8\n";
33	root	1.7
34	root	1.8	cede; cede;
35	root	1.7
36			print "ok 9\n";
37