| Revision: | 1.1 |
| Committed: | Sun Aug 28 10:21:27 2005 UTC (18 years, 10 months ago) by root |
| Content type: | application/x-troff |
| Branch: | MAIN |
| Log Message: | *** empty log message *** |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | root | 1.1 | #!/usr/bin/perl |
| 2 | |||
| 3 | use Test; | ||
| 4 | use IO::AIO; | ||
| 5 | |||
| 6 | # this is a lame test, but.... | ||
| 7 | |||
| 8 | BEGIN { plan tests => 5 } | ||
| 9 | |||
| 10 | my %f; | ||
| 11 | ok ((opendir my $dir, "."), 1, "$!"); | ||
| 12 | $f{$_}++ for readdir $dir; | ||
| 13 | |||
| 14 | aio_readdir ".", sub { | ||
| 15 | delete $f{"."}; | ||
| 16 | delete $f{".."}; | ||
| 17 | if ($_[0]) { | ||
| 18 | ok (1); | ||
| 19 | my $ok = 1; | ||
| 20 | $ok &&= delete $f{$_} for @{$_[0]}; | ||
| 21 | ok ($ok); | ||
| 22 | ok (!scalar keys %f); | ||
| 23 | } else { | ||
| 24 | ok (0,1,"$!"); | ||
| 25 | } | ||
| 26 | }; | ||
| 27 | |||
| 28 | IO::AIO::poll; | ||
| 29 | |||
| 30 | print "ok 5\n"; | ||
| 31 |