--- IO-AIO/t/05_readdir.t	2005/08/28 10:21:27	1.1
+++ IO-AIO/t/05_readdir.t	2005/08/30 15:45:10	1.2
@@ -5,21 +5,23 @@
 
 # this is a lame test, but....
 
-BEGIN { plan tests => 5 }
+BEGIN { plan tests => 8 }
 
 my %f;
 ok ((opendir my $dir, "."), 1, "$!");
 $f{$_}++ for readdir $dir;
 
+my %x = %f;
+
 aio_readdir ".", sub {
-   delete $f{"."};
-   delete $f{".."};
+   delete $x{"."};
+   delete $x{".."};
    if ($_[0]) {
       ok (1);
       my $ok = 1;
-      $ok &&= delete $f{$_} for @{$_[0]};
+      $ok &&= delete $x{$_} for @{$_[0]};
       ok ($ok);
-      ok (!scalar keys %f);
+      ok (!scalar keys %x);
    } else {
       ok (0,1,"$!");
    }
@@ -27,5 +29,23 @@
 
 IO::AIO::poll;
 
-print "ok 5\n";
+%x = %f;
+
+aio_scandir ".", 0, sub {
+   delete $x{"."};
+   delete $x{".."};
+   if (@_) {
+      ok (1);
+      my $ok = 1;
+      $ok &&= delete $x{$_} for (@{$_[0]}, @{$_[1]});
+      ok ($ok);
+      ok (!scalar keys %x);
+   } else {
+      ok (0,1,"$!");
+   }
+};
+
+IO::AIO::poll while IO::AIO::nreqs;
+
+ok (1);