1 | #! perl |
1 | #! perl |
2 | |
2 | |
3 | $| = 1; |
3 | $| = 1; |
4 | |
4 | |
5 | BEGIN { |
5 | BEGIN { |
6 | print "1..24\n"; |
6 | print "1..37\n"; |
7 | print "ok 1 # MODEL=$AnyEvent::IO::MODEL\n"; |
7 | print "ok 1 # MODEL=$AnyEvent::IO::MODEL\n"; |
8 | } |
8 | } |
9 | use AnyEvent; |
9 | use AnyEvent; |
10 | use AnyEvent::IO qw(:DEFAULT :flags); |
10 | use AnyEvent::IO qw(:DEFAULT :flags); |
11 | BEGIN { |
11 | BEGIN { |
… | |
… | |
13 | } |
13 | } |
14 | |
14 | |
15 | our $t = 3; |
15 | our $t = 3; |
16 | |
16 | |
17 | sub t { |
17 | sub t { |
18 | my $cv = AE::cv; |
|
|
19 | my $ok = shift; |
18 | my $ok = shift; |
20 | my $f = "ae_" . shift; |
19 | my $f = "io_" . shift; |
21 | $f->(@_, my $cv = AE::cv); |
20 | $f->(@_, my $cv = AE::cv); |
22 | my @res = $cv->recv; |
21 | my @res = $cv->recv; |
23 | |
22 | |
24 | print !@res != !$ok ? "not " : "", "ok ", $t++, " # $f (@_) = (@res)\n"; |
23 | print !@res != !$ok ? "not " : "", "ok ", $t++, " # $f (@_) = (@res)\n"; |
25 | |
24 | |
… | |
… | |
39 | my $fh = t 1, open => "$DIR/test", O_CREAT | O_EXCL | O_WRONLY, 0666; |
38 | my $fh = t 1, open => "$DIR/test", O_CREAT | O_EXCL | O_WRONLY, 0666; |
40 | t 0, open => "$DIR/test", O_CREAT | O_EXCL | O_WRONLY, 0666; |
39 | t 0, open => "$DIR/test", O_CREAT | O_EXCL | O_WRONLY, 0666; |
41 | |
40 | |
42 | t 0, rmdir => $DIR; |
41 | t 0, rmdir => $DIR; |
43 | |
42 | |
44 | t 1, write => $fh, "test1"; |
43 | t 1, write => $fh, "tes--"; |
45 | t 1, write => $fh, "test2"; |
44 | t 1, write => $fh, "test2"; |
46 | t 1, write => $fh, ""; |
45 | t 1, write => $fh, ""; |
|
|
46 | |
|
|
47 | t 1, seek => $fh, 3, 0; |
|
|
48 | t 1, write => $fh, "t1"; |
47 | |
49 | |
48 | t 1, stat => $fh; |
50 | t 1, stat => $fh; |
49 | print -s _ != 10 ? "not " : "", "ok ", $t++, " # stat size\n"; |
51 | print -s _ != 10 ? "not " : "", "ok ", $t++, " # stat size\n"; |
50 | |
52 | |
51 | t 1, close => $fh; |
53 | t 1, close => $fh; |
… | |
… | |
57 | print -s _ != 10 ? "not " : "", "ok ", $t++, " # lstat size\n"; |
59 | print -s _ != 10 ? "not " : "", "ok ", $t++, " # lstat size\n"; |
58 | |
60 | |
59 | t 1, rename => "$DIR/test", "$DIR/test2"; |
61 | t 1, rename => "$DIR/test", "$DIR/test2"; |
60 | |
62 | |
61 | ############################################################################# |
63 | ############################################################################# |
|
|
64 | # test dir |
|
|
65 | |
|
|
66 | t 0, readdir => "$DIR/nonexistent"; |
|
|
67 | my $res = t 1, readdir => $DIR; |
|
|
68 | print @$res != 1 ? "not " : "", "ok ", $t++, " # res count\n"; |
|
|
69 | print $res->[0] ne "test2" ? "not " : "", "ok ", $t++, " # res data (@$res)\n"; |
|
|
70 | |
|
|
71 | ############################################################################# |
62 | # test file |
72 | # test file |
63 | |
73 | |
64 | my $fh = t 1, open => "$DIR/test2", O_RDONLY, 0; |
74 | $fh = t 1, open => "$DIR/test2", O_RDONLY, 0; |
65 | |
75 | |
66 | print +(t 1, read => $fh, 6) ne "test1t" ? "not " : "", "ok ", $t++, " # read 6\n"; |
76 | print +(t 1, read => $fh, 6) ne "test1t" ? "not " : "", "ok ", $t++, " # read 6\n"; |
67 | print +(t 1, read => $fh, 7) ne "est2" ? "not " : "", "ok ", $t++, " # read 7\n"; |
77 | print +(t 1, read => $fh, 7) ne "est2" ? "not " : "", "ok ", $t++, " # read 7\n"; |
68 | print +(t 1, read => $fh, 8) ne "" ? "not " : "", "ok ", $t++, " # read 8\n"; |
78 | print +(t 1, read => $fh, 8) ne "" ? "not " : "", "ok ", $t++, " # read 8\n"; |
69 | |
79 | |