1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
$| = 1;
if (-f "AIO.xs" and -d "bin") {
print "1..10\n";
} else {
print "1..0 # Skipped: unexpected bin and/or AIO.xs\n";
exit;
}
# relies on /etc/passwd to exist...
use Fcntl;
use IO::AIO;
IO::AIO::min_parallel 2;
sub pcb {
while (IO::AIO::nreqs) {
my $rfd = ""; vec ($rfd, IO::AIO::poll_fileno, 1) = 1; select $rfd, undef, undef, undef;
IO::AIO::poll_cb;
}
}
aio_open "AIO.xs", O_RDONLY, 0, sub {
print $_[0] ? "ok" : "not ok", " 1\n";
$pwd = $_[0];
};
pcb;
aio_stat "bin", sub {
print -d _ ? "ok" : "not ok", " 2\n";
};
pcb;
aio_stat "AIO.xs", sub {
@pwd = stat _;
print -f _ ? "ok" : "not ok", " 3\n";
print eval { lstat _; 1 } ? "not ok" : "ok", " 4\n";
};
pcb;
aio_lstat "AIO.xs", sub {
lstat _;
print -f _ ? "ok" : "not ok", " 5\n";
print eval { stat _; 1 } ? "ok" : "not ok", " 6\n";
};
pcb;
print open (PWD, "<&" . fileno $pwd) ? "ok" : "not ok", " 7\n";
aio_stat *PWD, sub {
print -f _ ? "ok" : "not ok", " 8\n";
my @stat = stat _;
$stat[0] = $pwd[0]; # dev unreliable on windows
$stat[6] = $pwd[6]; # rdev unreliable on windows
$stat[8] = $pwd[8]; # atime unreliable on windows
print +(join ":", @pwd) eq (join ":", @stat) ? "ok" : "not ok", " 9 # @pwd == @stat\n";
};
pcb;
aio_close *PWD, sub {
print $_[0] ? "not ok" : "ok", " 10 # <@_>\n";
};
pcb;
|
