--- IO-AIO/t/06_group.t 2006/10/22 10:33:19 1.3 +++ IO-AIO/t/06_group.t 2006/10/24 11:57:30 1.6 @@ -2,7 +2,9 @@ use IO::AIO; -print "1..10\n"; +print "1..12\n"; + +IO::AIO::min_parallel 2;#d# my $grp = aio_group sub { print $_[0] == 1 && @_ == 3 ? "" : "not ", "ok 4\n"; @@ -47,8 +49,16 @@ IO::AIO::poll while IO::AIO::nreqs; -IO::AIO::aio_sleep 0, sub { print "ok 9\n" }; +IO::AIO::aio_busy 0, sub { print "ok 9\n" }; IO::AIO::poll while IO::AIO::nreqs; print "ok 10\n"; + +aio_nop sub { + print "ok 11\n"; +}; + +IO::AIO::poll while IO::AIO::nreqs; + +print "ok 12\n";