… | |
… | |
2 | |
2 | |
3 | use IO::AIO; |
3 | use IO::AIO; |
4 | |
4 | |
5 | print "1..10\n"; |
5 | print "1..10\n"; |
6 | |
6 | |
7 | my $grp = aio_group { |
7 | my $grp = aio_group sub { |
8 | print "ok 4\n"; |
8 | print "ok 4\n"; |
9 | }; |
9 | }; |
10 | |
10 | |
11 | my ($a, $b) = |
11 | my ($a, $b) = |
12 | add $grp (aio_stat "/2", sub { print "ok 3\n" }), |
12 | add $grp (aio_stat "/2", sub { print "ok 3\n" }), |
… | |
… | |
20 | |
20 | |
21 | IO::AIO::poll while IO::AIO::nreqs; |
21 | IO::AIO::poll while IO::AIO::nreqs; |
22 | |
22 | |
23 | print "ok 5\n"; |
23 | print "ok 5\n"; |
24 | |
24 | |
25 | $grp = aio_group { |
25 | $grp = aio_group sub { |
26 | print "not ok 6\n"; |
26 | print "not ok 6\n"; |
27 | }; |
27 | }; |
28 | |
28 | |
29 | add $grp aio_stat "/1", sub { print "not ok 7\n" }; |
29 | add $grp aio_stat "/1", sub { print "not ok 7\n" }; |
30 | |
30 | |
… | |
… | |
32 | |
32 | |
33 | print "ok 6\n"; |
33 | print "ok 6\n"; |
34 | |
34 | |
35 | IO::AIO::poll while IO::AIO::nreqs; |
35 | IO::AIO::poll while IO::AIO::nreqs; |
36 | |
36 | |
37 | aio_group { |
37 | aio_group sub { |
38 | print "ok 8\n"; |
38 | print "ok 8\n"; |
39 | }; |
39 | }; |
40 | |
40 | |
41 | print "ok 7\n"; |
41 | print "ok 7\n"; |
42 | |
42 | |