--- IO-AIO/t/06_group.t 2006/10/23 00:34:36 1.4 +++ IO-AIO/t/06_group.t 2006/10/24 11:57:30 1.6 @@ -4,6 +4,8 @@ print "1..12\n"; +IO::AIO::min_parallel 2;#d# + my $grp = aio_group sub { print $_[0] == 1 && @_ == 3 ? "" : "not ", "ok 4\n"; }; @@ -47,7 +49,7 @@ 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;