--- IO-AIO/t/06_group.t 2006/10/22 10:33:19 1.3 +++ IO-AIO/t/06_group.t 2006/10/23 20:05:27 1.5 @@ -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"; @@ -52,3 +54,11 @@ 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";