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 = do { local $_; $q->get };
   print $x == $_-10 ? "ok " : "not ok ", ($_-10)*2+1, "\n";
}

Revision:	1.2
Committed:	Fri Jul 13 13:05:38 2001 UTC (22 years, 11 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
Changes since 1.1:	+1 -1 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.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	root	1.2	my $x = do { local $_; $q->get };
22	root	1.1	print $x == $_-10 ? "ok " : "not ok ", ($_-10)*2+1, "\n";
23			}
24