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
|
$| = 1;
if (-f "/etc/passwd" and -d "/etc") {
print "1..2\n";
} else {
print "1..0 # Skipped: unexpected /etc and/or /etc/passwd\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;
}
}
my $pwd;
aio_open "/etc/passwd", O_RDONLY, 0, sub {
print $_[0] ? "ok" : "not ok", " 1\n";
$pwd = $_[0];
};
pcb;
my ($sysread, $aioread);
sysseek $pwd, 7, 0;
sysread $pwd, $sysread, 15;
# I found no way to silence the stupid "uninitialized...subroutine entry" warning.
# this is just braindamaged. Don't use -w, it introduces more bugs than it fixes.
$aioread = "xxxyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy";
aio_read $pwd, 7, 15, $aioread, 3, sub {
print +($aioread eq "xxx$sysread") ? "ok" : "not ok", " 2\n";
};
pcb;
|
