--- IO-AIO/t/06_group.t 2006/10/22 10:33:19 1.3 +++ IO-AIO/t/06_group.t 2006/10/23 00:34:36 1.4 @@ -2,7 +2,7 @@ use IO::AIO; -print "1..10\n"; +print "1..12\n"; my $grp = aio_group sub { print $_[0] == 1 && @_ == 3 ? "" : "not ", "ok 4\n"; @@ -52,3 +52,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";