--- IO-AIO/t/04_fork.t 2005/08/17 05:06:59 1.2 +++ IO-AIO/t/04_fork.t 2006/10/24 16:35:04 1.4 @@ -5,29 +5,33 @@ # this is a lame test, but.... -BEGIN { plan tests => 8 } +BEGIN { plan tests => 9 } IO::AIO::min_parallel 2; +aio_nop sub { + print "ok 6\n"; +}; + print "ok 1\n"; if (open FH, "-|") { print while ; aio_stat "/", sub { - print "ok 6\n"; + print "ok 7\n"; }; print "ok 5\n"; - IO::AIO::poll; - print "ok 7\n"; + IO::AIO::poll while IO::AIO::nreqs; + print "ok 8\n"; } else { print "ok 2\n"; aio_stat "/", sub { print "ok 3\n"; }; - IO::AIO::poll; + IO::AIO::poll while IO::AIO::nreqs; print "ok 4\n"; exit; } -print "ok 8\n"; +print "ok 9\n";