#!/usr/bin/perl

use Test;
use IO::AIO;

# this is a lame test, but....

BEGIN { plan tests => 5 }

my %f;
ok ((opendir my $dir, "."), 1, "$!");
$f{$_}++ for readdir $dir;

aio_readdir ".", sub {
   delete $f{"."};
   delete $f{".."};
   if ($_[0]) {
      ok (1);
      my $ok = 1;
      $ok &&= delete $f{$_} for @{$_[0]};
      ok ($ok);
      ok (!scalar keys %f);
   } else {
      ok (0,1,"$!");
   }
};

IO::AIO::poll;

print "ok 5\n";