Commit | Line | Data |
8d063cd8 |
1 | #!./perl |
2 | |
3 | # $Header: io.fs,v 1.0 87/12/18 13:12:48 root Exp $ |
4 | |
5 | print "1..18\n"; |
6 | |
7 | chdir '/tmp'; |
8 | `/bin/rm -rf a b c x`; |
9 | |
10 | umask(022); |
11 | |
12 | if (umask(0) == 022) {print "ok 1\n";} else {print "not ok 1\n";} |
13 | open(fh,'>x') || die "Can't create x"; |
14 | close(fh); |
15 | open(fh,'>a') || die "Can't create a"; |
16 | close(fh); |
17 | |
18 | if (link('a','b')) {print "ok 2\n";} else {print "not ok 2\n";} |
19 | |
20 | if (link('b','c')) {print "ok 3\n";} else {print "not ok 3\n";} |
21 | |
22 | ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime, |
23 | $blksize,$blocks) = stat('c'); |
24 | |
25 | if ($nlink == 3) {print "ok 4\n";} else {print "not ok 4\n";} |
26 | if (($mode & 0777) == 0666) {print "ok 5\n";} else {print "not ok 5\n";} |
27 | |
28 | if ((chmod 0777,'a') == 1) {print "ok 6\n";} else {print "not ok 6\n";} |
29 | |
30 | ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime, |
31 | $blksize,$blocks) = stat('c'); |
32 | if (($mode & 0777) == 0777) {print "ok 7\n";} else {print "not ok 7\n";} |
33 | |
34 | if ((chmod 0700,'c','x') == 2) {print "ok 8\n";} else {print "not ok 8\n";} |
35 | |
36 | ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime, |
37 | $blksize,$blocks) = stat('c'); |
38 | if (($mode & 0777) == 0700) {print "ok 9\n";} else {print "not ok 9\n";} |
39 | ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime, |
40 | $blksize,$blocks) = stat('x'); |
41 | if (($mode & 0777) == 0700) {print "ok 10\n";} else {print "not ok 10\n";} |
42 | |
43 | if ((unlink 'b','x') == 2) {print "ok 11\n";} else {print "not ok 11\n";} |
44 | ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime, |
45 | $blksize,$blocks) = stat('b'); |
46 | if ($ino == 0) {print "ok 12\n";} else {print "not ok 12\n";} |
47 | ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime, |
48 | $blksize,$blocks) = stat('x'); |
49 | if ($ino == 0) {print "ok 13\n";} else {print "not ok 13\n";} |
50 | |
51 | if (rename('a','b')) {print "ok 14\n";} else {print "not ok 14\n";} |
52 | ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime, |
53 | $blksize,$blocks) = stat('a'); |
54 | if ($ino == 0) {print "ok 15\n";} else {print "not ok 15\n";} |
55 | ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime, |
56 | $blksize,$blocks) = stat('b'); |
57 | if ($ino) {print "ok 16\n";} else {print "not ok 16\n";} |
58 | |
59 | if ((unlink 'b') == 1) {print "ok 17\n";} else {print "not ok 17\n";} |
60 | ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime, |
61 | $blksize,$blocks) = stat('b'); |
62 | if ($ino == 0) {print "ok 18\n";} else {print "not ok 18\n";} |
63 | unlink 'c'; |