1 | #! perl |
1 | #! perl |
2 | |
2 | |
3 | $| = 1; |
3 | $| = 1; |
4 | |
4 | |
5 | BEGIN { |
5 | BEGIN { |
6 | print "1..31\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 { |
… | |
… | |
38 | 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; |
39 | 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; |
40 | |
40 | |
41 | t 0, rmdir => $DIR; |
41 | t 0, rmdir => $DIR; |
42 | |
42 | |
43 | t 1, write => $fh, "test1"; |
43 | t 1, write => $fh, "tes--"; |
44 | t 1, write => $fh, "test2"; |
44 | t 1, write => $fh, "test2"; |
45 | t 1, write => $fh, ""; |
45 | t 1, write => $fh, ""; |
|
|
46 | |
|
|
47 | t 1, seek => $fh, 3, 0; |
|
|
48 | t 1, write => $fh, "t1"; |
46 | |
49 | |
47 | t 1, stat => $fh; |
50 | t 1, stat => $fh; |
48 | print -s _ != 10 ? "not " : "", "ok ", $t++, " # stat size\n"; |
51 | print -s _ != 10 ? "not " : "", "ok ", $t++, " # stat size\n"; |
49 | |
52 | |
50 | t 1, close => $fh; |
53 | t 1, close => $fh; |
… | |
… | |
54 | |
57 | |
55 | t 1, lstat => "$DIR/test"; |
58 | t 1, lstat => "$DIR/test"; |
56 | print -s _ != 10 ? "not " : "", "ok ", $t++, " # lstat size\n"; |
59 | print -s _ != 10 ? "not " : "", "ok ", $t++, " # lstat size\n"; |
57 | |
60 | |
58 | t 1, rename => "$DIR/test", "$DIR/test2"; |
61 | t 1, rename => "$DIR/test", "$DIR/test2"; |
|
|
62 | |
|
|
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"; |
59 | |
70 | |
60 | ############################################################################# |
71 | ############################################################################# |
61 | # test file |
72 | # test file |
62 | |
73 | |
63 | $fh = t 1, open => "$DIR/test2", O_RDONLY, 0; |
74 | $fh = t 1, open => "$DIR/test2", O_RDONLY, 0; |