Coro/t/02_channel.t

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

use Coro;
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.3
Committed:	Sat Jul 14 22:14:21 2001 UTC (23 years ago) by root
Content type:	application/x-troff
Branch:	MAIN
Changes since 1.2:	+0 -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::Channel;
6
7			my $q = new Coro::Channel 0;
8
9			sub producer : Coro {
10			for (1..9) {
11			print "ok ", $_*2, "\n";
12			$q->put($_);
13			}
14			}
15
16			print "ok 1\n";
17			yield;
18
19			for (11..19) {
20	root	1.2	my $x = do { local $_; $q->get };
21	root	1.1	print $x == $_-10 ? "ok " : "not ok ", ($_-10)*2+1, "\n";
22			}
23