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 *** |
# | Content |
---|---|
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 |