| … | |
… | |
| 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 | |
