… | |
… | |
58 | |
58 | |
59 | aio_readdirx ".", IO::AIO::READDIR_STAT_ORDER | IO::AIO::READDIR_DENTS, sub { |
59 | aio_readdirx ".", IO::AIO::READDIR_STAT_ORDER | IO::AIO::READDIR_DENTS, sub { |
60 | my $entries2 = shift; |
60 | my $entries2 = shift; |
61 | ok (! ! $entries2); |
61 | ok (! ! $entries2); |
62 | |
62 | |
|
|
63 | if ($^O eq "cygwin") { |
|
|
64 | # sigh... |
|
|
65 | $entries1 = [ sort @$entries1 ]; |
|
|
66 | $entries2 = [ sort { $a->[0] cmp $b->[0] } @$entries2 ]; |
|
|
67 | } |
|
|
68 | |
63 | ok ((join "\x00", @$entries1) eq (join "\x00", map $_->[0], @$entries2)); |
69 | ok ((join "\x00", @$entries1) eq (join "\x00", map $_->[0], @$entries2)); |
64 | |
70 | |
65 | ok (!grep $entries2->[$_ - 1][2] > $entries2->[$_][2], 1 .. $#$entries2); |
71 | ok (!grep $entries2->[$_ - 1][2] > $entries2->[$_][2], 1 .. $#$entries2); |
66 | }; |
72 | }; |
67 | |
73 | |