IO-AIO/t/06_group.t

#!/usr/bin/perl

use IO::AIO;

print "1..10\n";

my $grp = aio_group sub {
   print "ok 4\n";
};

my ($a, $b) =
   add $grp (aio_stat "/2", sub { print "ok 3\n" }),
            (aio_stat "/3", sub { print "not ok 3\n" });

print "ok 1\n";

$b->cancel;

print "ok 2\n";

IO::AIO::poll while IO::AIO::nreqs;

print "ok 5\n";

$grp = aio_group sub {
   print "not ok 6\n";
};

add $grp aio_stat "/1", sub { print "not ok 7\n" };

$grp->cancel;

print "ok 6\n";

IO::AIO::poll while IO::AIO::nreqs;

aio_group sub {
   print "ok 8\n";
};

print "ok 7\n";

IO::AIO::poll while IO::AIO::nreqs;

IO::AIO::aio_sleep 0, sub { print "ok 9\n" };

IO::AIO::poll while IO::AIO::nreqs;

print "ok 10\n";

Revision:	1.2
Committed:	Sun Oct 22 00:49:29 2006 UTC (19 years, 10 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
Changes since 1.1:	+3 -3 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	#!/usr/bin/perl
2
3			use IO::AIO;
4
5			print "1..10\n";
6
7	root	1.2	my $grp = aio_group sub {
8	root	1.1	print "ok 4\n";
9			};
10
11			my ($a, $b) =
12			add $grp (aio_stat "/2", sub { print "ok 3\n" }),
13			(aio_stat "/3", sub { print "not ok 3\n" });
14
15			print "ok 1\n";
16
17			$b->cancel;
18
19			print "ok 2\n";
20
21			IO::AIO::poll while IO::AIO::nreqs;
22
23			print "ok 5\n";
24
25	root	1.2	$grp = aio_group sub {
26	root	1.1	print "not ok 6\n";
27			};
28
29			add $grp aio_stat "/1", sub { print "not ok 7\n" };
30
31			$grp->cancel;
32
33			print "ok 6\n";
34
35			IO::AIO::poll while IO::AIO::nreqs;
36
37	root	1.2	aio_group sub {
38	root	1.1	print "ok 8\n";
39			};
40
41			print "ok 7\n";
42
43			IO::AIO::poll while IO::AIO::nreqs;
44
45			IO::AIO::aio_sleep 0, sub { print "ok 9\n" };
46
47			IO::AIO::poll while IO::AIO::nreqs;
48
49			print "ok 10\n";
50