Coro/t/02_channel.t

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

use Coro;
use Coro::Process;
use Coro::Channel;

my $q = new Coro::Channel 0;

sub producer : Coro {
   for (1..9) {
      print "ok ", $_*2, "\n";
      $q->put($_);
   }
}

print "ok 1\n";
yield;

for (11..19) {
   my $x = $q->get;
   print $x == $_-10 ? "ok " : "not ok ", ($_-10)*2+1, "\n";
}

Revision:	1.1
Committed:	Tue Jul 10 01:43:21 2001 UTC (23 years ago) by root
Content type:	application/x-troff
Branch:	MAIN
Log Message:	* empty log message *
#	Content
1	$\|=1;
2	print "1..19\n";
3
4	use Coro;
5	use Coro::Process;
6	use Coro::Channel;
7
8	my $q = new Coro::Channel 0;
9
10	sub producer : Coro {
11	for (1..9) {
12	print "ok ", $_*2, "\n";
13	$q->put($_);
14	}
15	}
16
17	print "ok 1\n";
18	yield;
19
20	for (11..19) {
21	my $x = $q->get;
22	print $x == $_-10 ? "ok " : "not ok ", ($_-10)*2+1, "\n";
23	}
24