Coro/t/03_cont.t

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

use Coro;
use Coro::Cont;

$test = 1;

sub a1 : Coro {
   my $cont = cont {
      { local $_; yield };
      result $_*2;
      { local $_; yield };
      result $_*3;
   };
   my @arr = map &$cont, 1,2,3,4,5,6;
   for(2,6,6,12,10,18) {
      print (((shift @arr == $_) ? "ok " : "not ok "), $test++, "\n");
   }
   $done++;
   yield while 1;
}

sub a2 : Coro {
   my $cont = cont {
      { local $_; yield };
      result $_*20;
      { local $_; yield };
      result $_*30;
   };
   my @arr = map &$cont, 1,2,3,4,5,6;
   for(20,60,60,120,100,180) {
      print (((shift @arr == $_) ? "ok " : "not ok "), $test++, "\n");
   }
   $done++;
   yield while 1;
}

print "ok ", $test++, "\n";

$done = 0;

yield while $done < 2;
Revision:	1.1
Committed:	Sat Jul 14 22:14:22 2001 UTC (22 years, 11 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
Log Message:	* empty log message *
#	Content
1	$\|=1;
2	print "1..13\n";
3
4	use Coro;
5	use Coro::Cont;
6
7	$test = 1;
8
9	sub a1 : Coro {
10	my $cont = cont {
11	{ local $_; yield };
12	result $_*2;
13	{ local $_; yield };
14	result $_*3;
15	};
16	my @arr = map &$cont, 1,2,3,4,5,6;
17	for(2,6,6,12,10,18) {
18	print (((shift @arr == $_) ? "ok " : "not ok "), $test++, "\n");
19	}
20	$done++;
21	yield while 1;
22	}
23
24	sub a2 : Coro {
25	my $cont = cont {
26	{ local $_; yield };
27	result $_*20;
28	{ local $_; yield };
29	result $_*30;
30	};
31	my @arr = map &$cont, 1,2,3,4,5,6;
32	for(20,60,60,120,100,180) {
33	print (((shift @arr == $_) ? "ok " : "not ok "), $test++, "\n");
34	}
35	$done++;
36	yield while 1;
37	}
38
39	print "ok ", $test++, "\n";
40
41	$done = 0;
42
43	yield while $done < 2;