]> Zhao Yanbai Git Server - minix.git/commitdiff
. swapped test26 and test40
authorBen Gras <ben@minix3.org>
Mon, 8 Aug 2005 14:30:50 +0000 (14:30 +0000)
committerBen Gras <ben@minix3.org>
Mon, 8 Aug 2005 14:30:50 +0000 (14:30 +0000)
. renamed sh*.sh to testsh*.sh
. invoked shell tests from run script like the other test commands
  (that was the point of renaming)

test/run
test/test26.c
test/test40.c
test/testsh1.sh [moved from test/sh1.sh with 100% similarity]
test/testsh2.sh [moved from test/sh2.sh with 100% similarity]

index b34779d977efb9bd859a17a9e14500eb1889e6bf..1f47801f7f684d86dc66f229cc5cc428c34ac81e 100755 (executable)
--- a/test/run
+++ b/test/run
@@ -12,15 +12,16 @@ badones=                    # list of tests that failed
 
 # Print test welcome message
 clr
-echo "Running POSIX compliance test suite. There are 40 tests in total."
-echo "Please note that some tests may take a while, even on fast systems."
+echo "Running POSIX compliance test suite. There are 42 tests in total."
+echo "These tests may take more than 20 minutes, even on fast systems."
 echo " "
 
 # Run all the tests, keeping track of who failed.
 for i in  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
+         21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 \
+       sh1.sh sh2.sh
 do total=`expr $total + 1`
-   if test$i
+   if ./test$i
       then passed=`expr $passed + 1`
       else failed=`expr $failed + 1`
            badones=`echo $badones " " $i`
@@ -36,5 +37,3 @@ if test $total = $passed
 fi
 
 # echo " "
-# sh1.sh
-# sh2.sh
index 7a2cd201fcbb411bd17040fb16240bc76d8ec2ae..4909c16c1bef86509935fb8339415c8e93a94ff4 100644 (file)
@@ -1,44 +1,37 @@
-/* test26: link() unlink()     Aithor: Jan-Mark Wams (jms@cs.vu.nl) */
-
-/*
- * Not tested readonly file systems
- * Not tested fs full
- * Not tested unlinking bussy files
- */
+/* test26: lseek()             Author: Jan-Mark Wams (jms@cs.vu.nl) */
 
 #include <sys/types.h>
 #include <sys/stat.h>
+#include <sys/wait.h>
 #include <stdlib.h>
 #include <unistd.h>
+#include <string.h>
 #include <fcntl.h>
-#include <errno.h>
 #include <limits.h>
-#include <string.h>
+#include <errno.h>
 #include <time.h>
 #include <stdio.h>
 
+#define MAX_ERROR      4
+#define ITERATIONS     10
+
+#define System(cmd)   if (system(cmd) != 0) printf("``%s'' failed\n", cmd)
+#define Chdir(dir)    if (chdir(dir) != 0) printf("Can't goto %s\n", dir)
+#define Stat(a,b)     if (stat(a,b) != 0) printf("Can't stat %s\n", a)
+#define Mkfifo(f)     if (mkfifo(f,0777)!=0) printf("Can't make fifo %s\n", f)
+
 int errct = 0;
 int subtest = 1;
-int superuser;
 char MaxName[NAME_MAX + 1];    /* Name of maximum length */
 char MaxPath[PATH_MAX];                /* Same for path */
 char ToLongName[NAME_MAX + 2]; /* Name of maximum +1 length */
 char ToLongPath[PATH_MAX + 1]; /* Same for path, both too long */
 
-#define MAX_ERROR 4
-#define ITERATIONS 2           /* LINK_MAX is high, so time consuming. */
-
-#define System(cmd)    if (system(cmd) != 0) printf("``%s'' failed\n", cmd)
-#define Chdir(dir)     if (chdir(dir) != 0) printf("Can't goto %s\n", dir)
-#define Stat(a,b)      if (stat(a,b) != 0) printf("Can't stat %s\n", a)
-
 _PROTOTYPE(void main, (int argc, char *argv[]));
 _PROTOTYPE(void test26a, (void));
 _PROTOTYPE(void test26b, (void));
 _PROTOTYPE(void test26c, (void));
-_PROTOTYPE(int stateq, (struct stat *stp1, struct stat *stp2));
-_PROTOTYPE(void makelongnames, (void));
-_PROTOTYPE(void e, (int __n));
+_PROTOTYPE(void e, (int number));
 _PROTOTYPE(void quit, (void));
 
 void main(argc, argv)
@@ -53,10 +46,8 @@ char *argv[];
   fflush(stdout);
   System("rm -rf DIR_26; mkdir DIR_26");
   Chdir("DIR_26");
-  superuser = (getuid() == 0);
-  makelongnames();
 
-  for (i = 0; i < ITERATIONS; i++) {
+  for (i = 0; i < 10; i++) {
        if (m & 0001) test26a();
        if (m & 0002) test26b();
        if (m & 0004) test26c();
@@ -66,246 +57,192 @@ char *argv[];
 
 void test26a()
 {                              /* Test normal operation. */
-  struct stat st1, st2, st3;
-  time_t time1;
+  int fd;
+  char buf[20];
+  int i, j;
+  struct stat st;
 
   subtest = 1;
-
-  /* Clean up any residu. */
   System("rm -rf ../DIR_26/*");
 
-  System("touch foo");         /* make source file */
-  Stat("foo", &st1);           /* get info of foo */
-  Stat(".", &st2);             /* and the cwd */
-  time(&time1);
-  while (time1 >= time((time_t *)0))
-       ;                       /* wait a sec */
-  if (link("foo", "bar") != 0) e(1);   /* link foo to bar */
-  Stat("foo", &st3);           /* get new status */
-  if (st1.st_nlink + 1 != st3.st_nlink) e(2);  /* link count foo up 1 */
-#ifndef V1_FILESYSTEM
-  if (st1.st_ctime >= st3.st_ctime) e(3);      /* check stattime changed */
-#endif
-  Stat(".", &st1);             /* get parend dir info */
-  if (st2.st_ctime >= st1.st_ctime) e(4);      /* ctime and mtime */
-  if (st2.st_mtime >= st1.st_mtime) e(5);      /* should be updated */
-  Stat("bar", &st2);           /* get info of bar */
-  if (st2.st_nlink != st3.st_nlink) e(6);      /* link count foo == bar */
-  if (st2.st_ino != st3.st_ino) e(7);  /* ino should be same */
-  if (st2.st_mode != st3.st_mode) e(8);        /* check mode same */
-  if (st2.st_uid != st3.st_uid) e(9);  /* check uid same */
-  if (st2.st_gid != st3.st_gid) e(10); /* check gid same */
-  if (st2.st_size != st3.st_size) e(11);       /* check size */
-  if (st2.st_ctime != st3.st_ctime) e(12);     /* check ctime */
-  if (st2.st_atime != st3.st_atime) e(13);     /* check atime */
-  if (st2.st_mtime != st3.st_mtime) e(14);     /* check mtime */
-  Stat("foo", &st1);           /* get fooinfo */
-  Stat(".", &st2);             /* get dir info */
-  time(&time1);
-  while (time1 >= time((time_t *)0))
-       ;                       /* wait a sec */
-  if (unlink("bar") != 0) e(15);/* rm bar */
-  if (stat("bar", &st2) != -1) e(16);  /* it's gone */
-  Stat("foo", &st3);           /* get foo again */
-  if (st1.st_nlink != st3.st_nlink + 1) e(17); /* link count back to normal */
-#ifndef V1_FILESYSTEM
-  if (st1.st_ctime >= st3.st_ctime) e(18);     /* check ctime */
-#endif
-  Stat(".", &st3);             /* get parend dir info */
-  if (st2.st_ctime >= st3.st_ctime) e(19);     /* ctime and mtime */
-  if (st2.st_mtime >= st3.st_mtime) e(20);     /* should be updated */
+
+  System("echo -n hihaho > hihaho");
+  if ((fd = open("hihaho", O_RDONLY)) != 3) e(1);
+  if (lseek(fd, (off_t) 3, SEEK_SET) != (off_t) 3) e(2);
+  if (read(fd, buf, 1) != 1) e(3);
+  if (buf[0] != 'a') e(4);
+  if (lseek(fd, (off_t) - 1, SEEK_END) != 5) e(5);
+  if (read(fd, buf, 1) != 1) e(6);
+  if (buf[0] != 'o') e(7);
+
+  /* Seek past end of file. */
+  if (lseek(fd, (off_t) 1000, SEEK_END) != 1006) e(8);
+  if (read(fd, buf, 1) != 0) e(9);
+
+  /* Lseek() should not extend the file. */
+  if (fstat(fd, &st) != 0) e(10);
+  if (st.st_size != (off_t) 6) e(11);
+  if (close(fd) != 0) e(12);
+
+  /* Probeer lseek met write. */
+  if ((fd = open("hihaho", O_WRONLY)) != 3) e(13);
+  if (lseek(fd, (off_t) 3, SEEK_SET) != (off_t) 3) e(14);
+  if (write(fd, "e", 1) != 1) e(15);
+  if (lseek(fd, (off_t) 1000, SEEK_END) != 1006) e(16);
+
+  /* Lseek() should not extend the file. */
+  if (fstat(fd, &st) != 0) e(17);
+  if (st.st_size != (off_t) 6) e(18);
+  if (write(fd, "e", 1) != 1) e(19);
+
+  /* Lseek() and a subsequent write should! */
+  if (fstat(fd, &st) != 0) e(20);
+  if (st.st_size != (off_t) 1007) e(21);
+
+  if (close(fd) != 0) e(22);
+
+  /* Check the file, it should start with hiheho. */
+  if ((fd = open("hihaho", O_RDONLY)) != 3) e(23);
+  if (read(fd, buf, 6) != 6) e(24);
+  if (strncmp(buf, "hiheho", 6) != 0) e(25);
+
+  /* The should be zero bytes and a trailing ``e''. */
+  if (sizeof(buf) < 10) e(26);
+  for (i = 1; i <= 20; i++) {
+       if (read(fd, buf, 10) != 10) e(27);
+       for (j = 0; j < 10; j++)
+               if (buf[j] != '\0') break;
+       if (j != 10) e(28);
+       if (lseek(fd, (off_t) 15, SEEK_CUR) != (off_t) i * 25 + 6) e(29);
+  }
+
+  if (lseek(fd, (off_t) 1006, SEEK_SET) != (off_t) 1006) e(30);
+  if (read(fd, buf, sizeof(buf)) != 1) e(31);
+  if (buf[0] != 'e') e(32);
+
+  if (lseek(fd, (off_t) - 1, SEEK_END) != (off_t) 1006) e(33);
+  if (read(fd, buf, sizeof(buf)) != 1) e(34);
+  if (buf[0] != 'e') e(35);
+
+  /* Closing time. */
+  if (close(fd) != 0) e(36);
 }
 
 void test26b()
 {
-  register int nlink;
-  char bar[30];
-  struct stat st, st2;
+  int fd1, fd2, fd3;
+  int stat_loc;
 
   subtest = 2;
-
-  /* Clean up any residu. */
   System("rm -rf ../DIR_26/*");
 
-  /* Test what happens if we make LINK_MAX number of links. */
-  System("touch foo");
-  for (nlink = 2; nlink <= LINK_MAX; nlink++) {
-       sprintf(bar, "bar.%d", nlink);
-       if (link("foo", bar) != 0) e(2);
-       Stat(bar, &st);
-       if (st.st_nlink != nlink) e(3);
-       Stat("foo", &st);
-       if (st.st_nlink != nlink) e(4);
+  /* See if childs lseek() is effecting the parent. * See also if
+   * lseeking() on same file messes things up. */
+
+  /* Creat a file of 11 bytes. */
+  if ((fd1 = open("santa", O_WRONLY | O_CREAT, 0777)) != 3) e(1);
+  if (write(fd1, "ho ho ho ho", 11) != 11) e(2);
+  if (close(fd1) != 0) e(3);
+
+  /* Open it multiple times. */
+  if ((fd1 = open("santa", O_RDONLY)) != 3) e(4);
+  if ((fd2 = open("santa", O_WRONLY)) != 4) e(5);
+  if ((fd3 = open("santa", O_RDWR)) != 5) e(6);
+
+  /* Set all offsets different. */
+  if (lseek(fd1, (off_t) 2, SEEK_SET) != 2) e(7);
+  if (lseek(fd2, (off_t) 4, SEEK_SET) != 4) e(8);
+  if (lseek(fd3, (off_t) 7, SEEK_SET) != 7) e(9);
+
+  /* Have a child process do additional offset changes. */
+  switch (fork()) {
+      case -1: printf("Can't fork\n"); break;
+      case 0:
+       alarm(20);
+       if (lseek(fd1, (off_t) 1, SEEK_CUR) != 3) e(10);
+       if (lseek(fd2, (off_t) 5, SEEK_SET) != 5) e(11);
+       if (lseek(fd3, (off_t) - 4, SEEK_END) != 7) e(12);
+       exit(0);
+      default:
+       wait(&stat_loc);
+       if (stat_loc != 0) e(13);       /* Alarm? */
   }
 
-  /* Check if we have LINK_MAX links that are all the same. */
-  Stat("foo", &st);
-  if (st.st_nlink != LINK_MAX) e(5);
-  for (nlink = 2; nlink <= LINK_MAX; nlink++) {
-       sprintf(bar, "bar.%d", nlink);
-       Stat(bar, &st2);
-       if (!stateq(&st, &st2)) e(6);
-  }
+  /* Check if the new offsets are correct. */
+  if (lseek(fd1, (off_t) 0, SEEK_CUR) != 3) e(14);
+  if (lseek(fd2, (off_t) 0, SEEK_CUR) != 5) e(15);
+  if (lseek(fd3, (off_t) 0, SEEK_CUR) != 7) e(16);
 
-  /* Test no more links are possible. */
-  if (link("foo", "nono") != -1) e(7);
-  if (stat("nono", &st) != -1) e(8);
-  Stat("foo", &st);
-  if (st.st_nlink != LINK_MAX) e(9);   /* recheck the number of links */
-
-  /* Now unlink() the bar.### files */
-  for (nlink = LINK_MAX; nlink >= 2; nlink--) {
-       sprintf(bar, "bar.%d", nlink);
-       Stat(bar, &st);
-       if (st.st_nlink != nlink) e(10);
-       Stat("foo", &st2);
-       if (!stateq(&st, &st2)) e(11);
-       if (unlink(bar) != 0) e(12);
-  }
-  Stat("foo", &st);
-  if (st.st_nlink != 1) e(13); /* number of links back to 1 */
-
-  /* Test max path ed. */
-  if (link("foo", MaxName) != 0) e(14);        /* link to MaxName */
-  if (unlink(MaxName) != 0) e(15);     /* and remove it */
-  MaxPath[strlen(MaxPath) - 2] = '/';
-  MaxPath[strlen(MaxPath) - 1] = 'a';  /* make ././.../a */
-  if (link("foo", MaxPath) != 0) e(16);        /* it should be */
-  if (unlink(MaxPath) != 0) e(17);     /* (un)linkable */
-
-  System("rm -f ../DIR_26/*"); /* clean cwd */
+  /* Close the file. */
+  if (close(fd1) != 0) e(17);
+  if (close(fd2) != 0) e(18);
+  if (close(fd3) != 0) e(19);
 }
 
 void test26c()
-{
-  subtest = 3;
+{                              /* Test error returns. */
+  int fd;
+  int tube[2];
+  int i, stat_loc;
 
-  /* Clean up any residu. */
+  subtest = 3;
   System("rm -rf ../DIR_26/*");
 
-  /* Check some simple things. */
-  if (link("bar/nono", "nono") != -1) e(1);    /* nonexistent */
-  if (errno != ENOENT) e(2);
-  Chdir("..");
-  System("touch DIR_26/foo");
-  System("chmod 677 DIR_26");  /* make inaccesable */
-  if (!superuser) {
-       if (unlink("DIR_26/foo") != -1) e(3);
-       if (errno != EACCES) e(4);
-  }
-  if (link("DIR_26/bar/nono", "DIR_26/nono") != -1) e(5); /* nono no be */
-  if (superuser) {
-       if (errno != ENOENT) e(6);      /* su has access */
-  }
-  if (!superuser) {
-       if (errno != EACCES) e(7);      /* we don't ;-) */
-  }
-  System("chmod 577 DIR_26");  /* make unwritable */
-  if (superuser) {
-       if (link("DIR_26/foo", "DIR_26/nono") != 0) e(8);
-       if (unlink("DIR_26/nono") != 0) e(9);
-  }
-  if (!superuser) {
-       if (link("DIR_26/foo", "DIR_26/nono") != -1) e(10);
-       if (errno != EACCES) e(11);
-       if (unlink("DIR_26/foo") != -1) e(12);  /* try to rm foo/foo */
-       if (errno != EACCES) e(13);
+  /* Fifo's can't be lseeked(). */
+  Mkfifo("fifo");
+  switch (fork()) {
+      case -1: printf("Can't fork\n"); break;
+      case 0:
+       alarm(3);               /* Try for max 3 secs. */
+       if ((fd = open("fifo", O_RDONLY)) != 3) e(1);
+       if (lseek(fd, (off_t) 0, SEEK_SET) != (off_t) - 1) e(2);
+       if (errno != ESPIPE) e(3);
+       if (close(fd) != 0) e(4);
+       exit(0);
+      default:
+       if ((fd = open("fifo", O_WRONLY)) != 3) e(5);
+       wait(&stat_loc);
+       if (stat_loc != 0) e(6);/* Alarm? */
+       if (close(fd) != 0) e(7);
   }
-  System("chmod 755 DIR_26");  /* back to normal */
-  Chdir("DIR_26");
 
-  /* Too-long path and name test */
-  ToLongPath[strlen(ToLongPath) - 2] = '/';
-  ToLongPath[strlen(ToLongPath) - 1] = 'a';    /* make ././.../a */
-  if (link("foo", ToLongPath) != -1) e(18);    /* path is too long */
-  if (errno != ENAMETOOLONG) e(19);
-  if (unlink(ToLongPath) != -1) e(20); /* path is too long */
-  if (errno != ENAMETOOLONG) e(21);
-  if (link("foo", "foo") != -1) e(22); /* try linking foo to foo */
-  if (errno != EEXIST) e(23);
-  if (link("foo", "bar") != 0) e(24);  /* make a link to bar */
-  if (link("foo", "bar") != -1) e(25); /* try linking to bar again */
-  if (errno != EEXIST) e(26);
-  if (link("foo", "bar") != -1) e(27); /* try linking to bar again */
-  if (errno != EEXIST) e(28);
-  if (unlink("nono") != -1) e(29);     /* try rm <not exist> */
-  if (errno != ENOENT) e(30);
-  if (unlink("") != -1) e(31); /* try unlinking empty */
-  if (errno != ENOENT) e(32);
-  if (link("foo", "") != -1) e(33);    /* try linking to "" */
-  if (errno != ENOENT) e(34);
-  if (link("", "foo") != -1) e(35);    /* try linking "" */
-  if (errno != ENOENT) e(36);
-  if (link("", "") != -1) e(37);/* try linking "" to "" */
-  if (errno != ENOENT) e(38);
-  if (link("/foo/bar/foo", "a") != -1) e(39);  /* try no existing path */
-  if (errno != ENOENT) e(40);
-  if (link("foo", "/foo/bar/foo") != -1) e(41);        /* try no existing path */
-  if (errno != ENOENT) e(42);
-  if (link("/a/b/c", "/d/e/f") != -1) e(43);   /* try no existing path */
-  if (errno != ENOENT) e(44);
-  if (link("abc", "a") != -1) e(45);   /* try no existing file */
-  if (errno != ENOENT) e(46);
-  if (link("foo/bar", "bar") != -1) e(47);     /* foo is a file */
-  if (errno != ENOTDIR) e(48);
-  if (link("foo", "foo/bar") != -1) e(49);     /* foo is not a dir */
-  if (errno != ENOTDIR) e(50);
-  if (unlink("foo/bar") != -1) e(51);  /* foo still no dir */
-  if (errno != ENOTDIR) e(52);
-  if (!superuser) {
-       if (link(".", "root") != -1) e(55);
-       if (errno != EPERM) e(56);      /* noroot can't */
-       if (unlink("root") != -1) e(57);
-       if (errno != ENOENT) e(58);
-  }
-  if (mkdir("dir", 0777) != 0) e(59);
-  if (superuser) {
-       if (rmdir("dir") != 0) e(63);
-  }
-  if (!superuser) {
-       if (unlink("dir") != -1) e(64);
-       if (errno != EPERM) e(65);      /* that ain't w'rkn */
-       if (rmdir("dir") != 0) e(66);   /* that's the way to do it */
+  /* Pipes can't be lseeked() eigther. */
+  if (pipe(tube) != 0) e(8);
+  switch (fork()) {
+      case -1: printf("Can't fork\n"); break;
+      case 0:
+       alarm(3);               /* Max 3 sconds wait. */
+       if (lseek(tube[0], (off_t) 0, SEEK_SET) != (off_t) - 1) e(9);
+       if (errno != ESPIPE) e(10);
+       if (lseek(tube[1], (off_t) 0, SEEK_SET) != (off_t) - 1) e(11);
+       if (errno != ESPIPE) e(12);
+       exit(0);
+      default:
+       wait(&stat_loc);
+       if (stat_loc != 0) e(14);       /* Alarm? */
   }
-}
-
-int stateq(stp1, stp2)
-struct stat *stp1, *stp2;
-{
-  if (stp1->st_dev != stp2->st_dev) return 0;
-  if (stp1->st_ino != stp2->st_ino) return 0;
-  if (stp1->st_mode != stp2->st_mode) return 0;
-  if (stp1->st_nlink != stp2->st_nlink) return 0;
-  if (stp1->st_uid != stp2->st_uid) return 0;
-  if (stp1->st_gid != stp2->st_gid) return 0;
-  if (stp1->st_rdev != stp2->st_rdev) return 0;
-  if (stp1->st_size != stp2->st_size) return 0;
-  if (stp1->st_atime != stp2->st_atime) return 0;
-  if (stp1->st_mtime != stp2->st_mtime) return 0;
-  if (stp1->st_ctime != stp2->st_ctime) return 0;
-  return 1;
-}
-
-void makelongnames()
-{
-  register int i;
 
-  memset(MaxName, 'a', NAME_MAX);
-  MaxName[NAME_MAX] = '\0';
-  for (i = 0; i < PATH_MAX - 1; i++) { /* idem path */
-       MaxPath[i++] = '.';
-       MaxPath[i] = '/';
+  /* Close the pipe. */
+  if (close(tube[0]) != 0) e(15);
+  if (close(tube[1]) != 0) e(16);
+
+  /* Whence arument invalid. */
+  System("echo -n contact > file");
+  if ((fd = open("file", O_RDWR)) != 3) e(17);
+  for (i = -1000; i < 1000; i++) {
+       if (i == SEEK_SET || i == SEEK_END || i == SEEK_CUR) continue;
+       if (lseek(fd, (off_t) 0, i) != (off_t) -1) e(18);
+       if (errno != EINVAL) e(19);
+  }
+  if (close(fd) != 0) e(20);
+
+  /* EBADF for bad fides. */
+  for (i = -1000; i < 1000; i++) {
+       if (i >= 0 && i < OPEN_MAX) continue;
+       if (lseek(i, (off_t) 0, SEEK_SET) != (off_t) - 1) e(21);
+       if (lseek(i, (off_t) 0, SEEK_END) != (off_t) - 1) e(22);
+       if (lseek(i, (off_t) 0, SEEK_CUR) != (off_t) - 1) e(23);
   }
-  MaxPath[PATH_MAX - 1] = '\0';
-
-  strcpy(ToLongName, MaxName); /* copy them Max to ToLong */
-  strcpy(ToLongPath, MaxPath);
-
-  ToLongName[NAME_MAX] = 'a';
-  ToLongName[NAME_MAX + 1] = '\0';     /* extend ToLongName by one
-                                        * too many */
-  ToLongPath[PATH_MAX - 1] = '/';
-  ToLongPath[PATH_MAX] = '\0'; /* inc ToLongPath by one */
 }
 
 
@@ -329,8 +266,8 @@ int n;
 
 void quit()
 {
-  chdir("..");
-  system("rm -rf DIR_26");
+  Chdir("..");
+  System("rm -rf DIR_26");
 
   if (errct == 0) {
        printf("ok\n");
index c8456708b1654a57113d0cd5bcba771150450c57..33b143584d4a9752aee6508840255fc0b1e49c1d 100644 (file)
@@ -1,37 +1,44 @@
-/* test40: lseek()             Author: Jan-Mark Wams (jms@cs.vu.nl) */
+/* test40: link() unlink()     Aithor: Jan-Mark Wams (jms@cs.vu.nl) */
+
+/*
+ * Not tested readonly file systems
+ * Not tested fs full
+ * Not tested unlinking bussy files
+ */
 
 #include <sys/types.h>
 #include <sys/stat.h>
-#include <sys/wait.h>
 #include <stdlib.h>
 #include <unistd.h>
-#include <string.h>
 #include <fcntl.h>
-#include <limits.h>
 #include <errno.h>
+#include <limits.h>
+#include <string.h>
 #include <time.h>
 #include <stdio.h>
 
-#define MAX_ERROR      4
-#define ITERATIONS     10
-
-#define System(cmd)   if (system(cmd) != 0) printf("``%s'' failed\n", cmd)
-#define Chdir(dir)    if (chdir(dir) != 0) printf("Can't goto %s\n", dir)
-#define Stat(a,b)     if (stat(a,b) != 0) printf("Can't stat %s\n", a)
-#define Mkfifo(f)     if (mkfifo(f,0777)!=0) printf("Can't make fifo %s\n", f)
-
 int errct = 0;
 int subtest = 1;
+int superuser;
 char MaxName[NAME_MAX + 1];    /* Name of maximum length */
 char MaxPath[PATH_MAX];                /* Same for path */
 char ToLongName[NAME_MAX + 2]; /* Name of maximum +1 length */
 char ToLongPath[PATH_MAX + 1]; /* Same for path, both too long */
 
+#define MAX_ERROR 4
+#define ITERATIONS 2           /* LINK_MAX is high, so time consuming. */
+
+#define System(cmd)    if (system(cmd) != 0) printf("``%s'' failed\n", cmd)
+#define Chdir(dir)     if (chdir(dir) != 0) printf("Can't goto %s\n", dir)
+#define Stat(a,b)      if (stat(a,b) != 0) printf("Can't stat %s\n", a)
+
 _PROTOTYPE(void main, (int argc, char *argv[]));
 _PROTOTYPE(void test40a, (void));
 _PROTOTYPE(void test40b, (void));
 _PROTOTYPE(void test40c, (void));
-_PROTOTYPE(void e, (int number));
+_PROTOTYPE(int stateq, (struct stat *stp1, struct stat *stp2));
+_PROTOTYPE(void makelongnames, (void));
+_PROTOTYPE(void e, (int __n));
 _PROTOTYPE(void quit, (void));
 
 void main(argc, argv)
@@ -46,8 +53,10 @@ char *argv[];
   fflush(stdout);
   System("rm -rf DIR_40; mkdir DIR_40");
   Chdir("DIR_40");
+  superuser = (getuid() == 0);
+  makelongnames();
 
-  for (i = 0; i < 10; i++) {
+  for (i = 0; i < ITERATIONS; i++) {
        if (m & 0001) test40a();
        if (m & 0002) test40b();
        if (m & 0004) test40c();
@@ -57,194 +66,248 @@ char *argv[];
 
 void test40a()
 {                              /* Test normal operation. */
-  int fd;
-  char buf[20];
-  int i, j;
-  struct stat st;
+  struct stat st1, st2, st3;
+  time_t time1;
 
   subtest = 1;
-  System("rm -rf ../DIR_40/*");
-
 
-  System("echo -n hihaho > hihaho");
-  if ((fd = open("hihaho", O_RDONLY)) != 3) e(1);
-  if (lseek(fd, (off_t) 3, SEEK_SET) != (off_t) 3) e(2);
-  if (read(fd, buf, 1) != 1) e(3);
-  if (buf[0] != 'a') e(4);
-  if (lseek(fd, (off_t) - 1, SEEK_END) != 5) e(5);
-  if (read(fd, buf, 1) != 1) e(6);
-  if (buf[0] != 'o') e(7);
-
-  /* Seek past end of file. */
-  if (lseek(fd, (off_t) 1000, SEEK_END) != 1006) e(8);
-  if (read(fd, buf, 1) != 0) e(9);
-
-  /* Lseek() should not extend the file. */
-  if (fstat(fd, &st) != 0) e(10);
-  if (st.st_size != (off_t) 6) e(11);
-  if (close(fd) != 0) e(12);
-
-  /* Probeer lseek met write. */
-  if ((fd = open("hihaho", O_WRONLY)) != 3) e(13);
-  if (lseek(fd, (off_t) 3, SEEK_SET) != (off_t) 3) e(14);
-  if (write(fd, "e", 1) != 1) e(15);
-  if (lseek(fd, (off_t) 1000, SEEK_END) != 1006) e(16);
-
-  /* Lseek() should not extend the file. */
-  if (fstat(fd, &st) != 0) e(17);
-  if (st.st_size != (off_t) 6) e(18);
-  if (write(fd, "e", 1) != 1) e(19);
-
-  /* Lseek() and a subsequent write should! */
-  if (fstat(fd, &st) != 0) e(20);
-  if (st.st_size != (off_t) 1007) e(21);
-
-  if (close(fd) != 0) e(22);
-
-  /* Check the file, it should start with hiheho. */
-  if ((fd = open("hihaho", O_RDONLY)) != 3) e(23);
-  if (read(fd, buf, 6) != 6) e(24);
-  if (strncmp(buf, "hiheho", 6) != 0) e(25);
-
-  /* The should be zero bytes and a trailing ``e''. */
-  if (sizeof(buf) < 10) e(26);
-  for (i = 1; i <= 20; i++) {
-       if (read(fd, buf, 10) != 10) e(27);
-       for (j = 0; j < 10; j++)
-               if (buf[j] != '\0') break;
-       if (j != 10) e(28);
-       if (lseek(fd, (off_t) 15, SEEK_CUR) != (off_t) i * 25 + 6) e(29);
-  }
-
-  if (lseek(fd, (off_t) 1006, SEEK_SET) != (off_t) 1006) e(30);
-  if (read(fd, buf, sizeof(buf)) != 1) e(31);
-  if (buf[0] != 'e') e(32);
-
-  if (lseek(fd, (off_t) - 1, SEEK_END) != (off_t) 1006) e(33);
-  if (read(fd, buf, sizeof(buf)) != 1) e(34);
-  if (buf[0] != 'e') e(35);
+  /* Clean up any residu. */
+  System("rm -rf ../DIR_40/*");
 
-  /* Closing time. */
-  if (close(fd) != 0) e(36);
+  System("touch foo");         /* make source file */
+  Stat("foo", &st1);           /* get info of foo */
+  Stat(".", &st2);             /* and the cwd */
+  time(&time1);
+  while (time1 >= time((time_t *)0))
+       ;                       /* wait a sec */
+  if (link("foo", "bar") != 0) e(1);   /* link foo to bar */
+  Stat("foo", &st3);           /* get new status */
+  if (st1.st_nlink + 1 != st3.st_nlink) e(2);  /* link count foo up 1 */
+#ifndef V1_FILESYSTEM
+  if (st1.st_ctime >= st3.st_ctime) e(3);      /* check stattime changed */
+#endif
+  Stat(".", &st1);             /* get parend dir info */
+  if (st2.st_ctime >= st1.st_ctime) e(4);      /* ctime and mtime */
+  if (st2.st_mtime >= st1.st_mtime) e(5);      /* should be updated */
+  Stat("bar", &st2);           /* get info of bar */
+  if (st2.st_nlink != st3.st_nlink) e(6);      /* link count foo == bar */
+  if (st2.st_ino != st3.st_ino) e(7);  /* ino should be same */
+  if (st2.st_mode != st3.st_mode) e(8);        /* check mode same */
+  if (st2.st_uid != st3.st_uid) e(9);  /* check uid same */
+  if (st2.st_gid != st3.st_gid) e(10); /* check gid same */
+  if (st2.st_size != st3.st_size) e(11);       /* check size */
+  if (st2.st_ctime != st3.st_ctime) e(12);     /* check ctime */
+  if (st2.st_atime != st3.st_atime) e(13);     /* check atime */
+  if (st2.st_mtime != st3.st_mtime) e(14);     /* check mtime */
+  Stat("foo", &st1);           /* get fooinfo */
+  Stat(".", &st2);             /* get dir info */
+  time(&time1);
+  while (time1 >= time((time_t *)0))
+       ;                       /* wait a sec */
+  if (unlink("bar") != 0) e(15);/* rm bar */
+  if (stat("bar", &st2) != -1) e(16);  /* it's gone */
+  Stat("foo", &st3);           /* get foo again */
+  if (st1.st_nlink != st3.st_nlink + 1) e(17); /* link count back to normal */
+#ifndef V1_FILESYSTEM
+  if (st1.st_ctime >= st3.st_ctime) e(18);     /* check ctime */
+#endif
+  Stat(".", &st3);             /* get parend dir info */
+  if (st2.st_ctime >= st3.st_ctime) e(19);     /* ctime and mtime */
+  if (st2.st_mtime >= st3.st_mtime) e(20);     /* should be updated */
 }
 
 void test40b()
 {
-  int fd1, fd2, fd3;
-  int stat_loc;
+  register int nlink;
+  char bar[30];
+  struct stat st, st2;
 
   subtest = 2;
+
+  /* Clean up any residu. */
   System("rm -rf ../DIR_40/*");
 
-  /* See if childs lseek() is effecting the parent. * See also if
-   * lseeking() on same file messes things up. */
-
-  /* Creat a file of 11 bytes. */
-  if ((fd1 = open("santa", O_WRONLY | O_CREAT, 0777)) != 3) e(1);
-  if (write(fd1, "ho ho ho ho", 11) != 11) e(2);
-  if (close(fd1) != 0) e(3);
-
-  /* Open it multiple times. */
-  if ((fd1 = open("santa", O_RDONLY)) != 3) e(4);
-  if ((fd2 = open("santa", O_WRONLY)) != 4) e(5);
-  if ((fd3 = open("santa", O_RDWR)) != 5) e(6);
-
-  /* Set all offsets different. */
-  if (lseek(fd1, (off_t) 2, SEEK_SET) != 2) e(7);
-  if (lseek(fd2, (off_t) 4, SEEK_SET) != 4) e(8);
-  if (lseek(fd3, (off_t) 7, SEEK_SET) != 7) e(9);
-
-  /* Have a child process do additional offset changes. */
-  switch (fork()) {
-      case -1: printf("Can't fork\n"); break;
-      case 0:
-       alarm(20);
-       if (lseek(fd1, (off_t) 1, SEEK_CUR) != 3) e(10);
-       if (lseek(fd2, (off_t) 5, SEEK_SET) != 5) e(11);
-       if (lseek(fd3, (off_t) - 4, SEEK_END) != 7) e(12);
-       exit(0);
-      default:
-       wait(&stat_loc);
-       if (stat_loc != 0) e(13);       /* Alarm? */
+  /* Test what happens if we make LINK_MAX number of links. */
+  System("touch foo");
+  for (nlink = 2; nlink <= LINK_MAX; nlink++) {
+       sprintf(bar, "bar.%d", nlink);
+       if (link("foo", bar) != 0) e(2);
+       Stat(bar, &st);
+       if (st.st_nlink != nlink) e(3);
+       Stat("foo", &st);
+       if (st.st_nlink != nlink) e(4);
   }
 
-  /* Check if the new offsets are correct. */
-  if (lseek(fd1, (off_t) 0, SEEK_CUR) != 3) e(14);
-  if (lseek(fd2, (off_t) 0, SEEK_CUR) != 5) e(15);
-  if (lseek(fd3, (off_t) 0, SEEK_CUR) != 7) e(16);
+  /* Check if we have LINK_MAX links that are all the same. */
+  Stat("foo", &st);
+  if (st.st_nlink != LINK_MAX) e(5);
+  for (nlink = 2; nlink <= LINK_MAX; nlink++) {
+       sprintf(bar, "bar.%d", nlink);
+       Stat(bar, &st2);
+       if (!stateq(&st, &st2)) e(6);
+  }
 
-  /* Close the file. */
-  if (close(fd1) != 0) e(17);
-  if (close(fd2) != 0) e(18);
-  if (close(fd3) != 0) e(19);
+  /* Test no more links are possible. */
+  if (link("foo", "nono") != -1) e(7);
+  if (stat("nono", &st) != -1) e(8);
+  Stat("foo", &st);
+  if (st.st_nlink != LINK_MAX) e(9);   /* recheck the number of links */
+
+  /* Now unlink() the bar.### files */
+  for (nlink = LINK_MAX; nlink >= 2; nlink--) {
+       sprintf(bar, "bar.%d", nlink);
+       Stat(bar, &st);
+       if (st.st_nlink != nlink) e(10);
+       Stat("foo", &st2);
+       if (!stateq(&st, &st2)) e(11);
+       if (unlink(bar) != 0) e(12);
+  }
+  Stat("foo", &st);
+  if (st.st_nlink != 1) e(13); /* number of links back to 1 */
+
+  /* Test max path ed. */
+  if (link("foo", MaxName) != 0) e(14);        /* link to MaxName */
+  if (unlink(MaxName) != 0) e(15);     /* and remove it */
+  MaxPath[strlen(MaxPath) - 2] = '/';
+  MaxPath[strlen(MaxPath) - 1] = 'a';  /* make ././.../a */
+  if (link("foo", MaxPath) != 0) e(16);        /* it should be */
+  if (unlink(MaxPath) != 0) e(17);     /* (un)linkable */
+
+  System("rm -f ../DIR_40/*"); /* clean cwd */
 }
 
 void test40c()
-{                              /* Test error returns. */
-  int fd;
-  int tube[2];
-  int i, stat_loc;
-
+{
   subtest = 3;
+
+  /* Clean up any residu. */
   System("rm -rf ../DIR_40/*");
 
-  /* Fifo's can't be lseeked(). */
-  Mkfifo("fifo");
-  switch (fork()) {
-      case -1: printf("Can't fork\n"); break;
-      case 0:
-       alarm(3);               /* Try for max 3 secs. */
-       if ((fd = open("fifo", O_RDONLY)) != 3) e(1);
-       if (lseek(fd, (off_t) 0, SEEK_SET) != (off_t) - 1) e(2);
-       if (errno != ESPIPE) e(3);
-       if (close(fd) != 0) e(4);
-       exit(0);
-      default:
-       if ((fd = open("fifo", O_WRONLY)) != 3) e(5);
-       wait(&stat_loc);
-       if (stat_loc != 0) e(6);/* Alarm? */
-       if (close(fd) != 0) e(7);
+  /* Check some simple things. */
+  if (link("bar/nono", "nono") != -1) e(1);    /* nonexistent */
+  if (errno != ENOENT) e(2);
+  Chdir("..");
+  System("touch DIR_40/foo");
+  System("chmod 677 DIR_40");  /* make inaccesable */
+  if (!superuser) {
+       if (unlink("DIR_40/foo") != -1) e(3);
+       if (errno != EACCES) e(4);
   }
-
-  /* Pipes can't be lseeked() eigther. */
-  if (pipe(tube) != 0) e(8);
-  switch (fork()) {
-      case -1: printf("Can't fork\n"); break;
-      case 0:
-       alarm(3);               /* Max 3 sconds wait. */
-       if (lseek(tube[0], (off_t) 0, SEEK_SET) != (off_t) - 1) e(9);
-       if (errno != ESPIPE) e(10);
-       if (lseek(tube[1], (off_t) 0, SEEK_SET) != (off_t) - 1) e(11);
-       if (errno != ESPIPE) e(12);
-       exit(0);
-      default:
-       wait(&stat_loc);
-       if (stat_loc != 0) e(14);       /* Alarm? */
+  if (link("DIR_40/bar/nono", "DIR_40/nono") != -1) e(5); /* nono no be */
+  if (superuser) {
+       if (errno != ENOENT) e(6);      /* su has access */
+  }
+  if (!superuser) {
+       if (errno != EACCES) e(7);      /* we don't ;-) */
   }
+  System("chmod 577 DIR_40");  /* make unwritable */
+  if (superuser) {
+       if (link("DIR_40/foo", "DIR_40/nono") != 0) e(8);
+       if (unlink("DIR_40/nono") != 0) e(9);
+  }
+  if (!superuser) {
+       if (link("DIR_40/foo", "DIR_40/nono") != -1) e(10);
+       if (errno != EACCES) e(11);
+       if (unlink("DIR_40/foo") != -1) e(12);  /* try to rm foo/foo */
+       if (errno != EACCES) e(13);
+  }
+  System("chmod 755 DIR_40");  /* back to normal */
+  Chdir("DIR_40");
 
-  /* Close the pipe. */
-  if (close(tube[0]) != 0) e(15);
-  if (close(tube[1]) != 0) e(16);
-
-  /* Whence arument invalid. */
-  System("echo -n contact > file");
-  if ((fd = open("file", O_RDWR)) != 3) e(17);
-  for (i = -1000; i < 1000; i++) {
-       if (i == SEEK_SET || i == SEEK_END || i == SEEK_CUR) continue;
-       if (lseek(fd, (off_t) 0, i) != (off_t) -1) e(18);
-       if (errno != EINVAL) e(19);
+  /* Too-long path and name test */
+  ToLongPath[strlen(ToLongPath) - 2] = '/';
+  ToLongPath[strlen(ToLongPath) - 1] = 'a';    /* make ././.../a */
+  if (link("foo", ToLongPath) != -1) e(18);    /* path is too long */
+  if (errno != ENAMETOOLONG) e(19);
+  if (unlink(ToLongPath) != -1) e(20); /* path is too long */
+  if (errno != ENAMETOOLONG) e(21);
+  if (link("foo", "foo") != -1) e(22); /* try linking foo to foo */
+  if (errno != EEXIST) e(23);
+  if (link("foo", "bar") != 0) e(24);  /* make a link to bar */
+  if (link("foo", "bar") != -1) e(25); /* try linking to bar again */
+  if (errno != EEXIST) e(26);
+  if (link("foo", "bar") != -1) e(27); /* try linking to bar again */
+  if (errno != EEXIST) e(28);
+  if (unlink("nono") != -1) e(29);     /* try rm <not exist> */
+  if (errno != ENOENT) e(30);
+  if (unlink("") != -1) e(31); /* try unlinking empty */
+  if (errno != ENOENT) e(32);
+  if (link("foo", "") != -1) e(33);    /* try linking to "" */
+  if (errno != ENOENT) e(34);
+  if (link("", "foo") != -1) e(35);    /* try linking "" */
+  if (errno != ENOENT) e(36);
+  if (link("", "") != -1) e(37);/* try linking "" to "" */
+  if (errno != ENOENT) e(38);
+  if (link("/foo/bar/foo", "a") != -1) e(39);  /* try no existing path */
+  if (errno != ENOENT) e(40);
+  if (link("foo", "/foo/bar/foo") != -1) e(41);        /* try no existing path */
+  if (errno != ENOENT) e(42);
+  if (link("/a/b/c", "/d/e/f") != -1) e(43);   /* try no existing path */
+  if (errno != ENOENT) e(44);
+  if (link("abc", "a") != -1) e(45);   /* try no existing file */
+  if (errno != ENOENT) e(46);
+  if (link("foo/bar", "bar") != -1) e(47);     /* foo is a file */
+  if (errno != ENOTDIR) e(48);
+  if (link("foo", "foo/bar") != -1) e(49);     /* foo is not a dir */
+  if (errno != ENOTDIR) e(50);
+  if (unlink("foo/bar") != -1) e(51);  /* foo still no dir */
+  if (errno != ENOTDIR) e(52);
+  if (!superuser) {
+       if (link(".", "root") != -1) e(55);
+       if (errno != EPERM) e(56);      /* noroot can't */
+       if (unlink("root") != -1) e(57);
+       if (errno != ENOENT) e(58);
   }
-  if (close(fd) != 0) e(20);
-
-  /* EBADF for bad fides. */
-  for (i = -1000; i < 1000; i++) {
-       if (i >= 0 && i < OPEN_MAX) continue;
-       if (lseek(i, (off_t) 0, SEEK_SET) != (off_t) - 1) e(21);
-       if (lseek(i, (off_t) 0, SEEK_END) != (off_t) - 1) e(22);
-       if (lseek(i, (off_t) 0, SEEK_CUR) != (off_t) - 1) e(23);
+  if (mkdir("dir", 0777) != 0) e(59);
+  if (superuser) {
+       if (rmdir("dir") != 0) e(63);
+  }
+  if (!superuser) {
+       if (unlink("dir") != -1) e(64);
+       if (errno != EPERM) e(65);      /* that ain't w'rkn */
+       if (rmdir("dir") != 0) e(66);   /* that's the way to do it */
   }
 }
 
+int stateq(stp1, stp2)
+struct stat *stp1, *stp2;
+{
+  if (stp1->st_dev != stp2->st_dev) return 0;
+  if (stp1->st_ino != stp2->st_ino) return 0;
+  if (stp1->st_mode != stp2->st_mode) return 0;
+  if (stp1->st_nlink != stp2->st_nlink) return 0;
+  if (stp1->st_uid != stp2->st_uid) return 0;
+  if (stp1->st_gid != stp2->st_gid) return 0;
+  if (stp1->st_rdev != stp2->st_rdev) return 0;
+  if (stp1->st_size != stp2->st_size) return 0;
+  if (stp1->st_atime != stp2->st_atime) return 0;
+  if (stp1->st_mtime != stp2->st_mtime) return 0;
+  if (stp1->st_ctime != stp2->st_ctime) return 0;
+  return 1;
+}
+
+void makelongnames()
+{
+  register int i;
+
+  memset(MaxName, 'a', NAME_MAX);
+  MaxName[NAME_MAX] = '\0';
+  for (i = 0; i < PATH_MAX - 1; i++) { /* idem path */
+       MaxPath[i++] = '.';
+       MaxPath[i] = '/';
+  }
+  MaxPath[PATH_MAX - 1] = '\0';
+
+  strcpy(ToLongName, MaxName); /* copy them Max to ToLong */
+  strcpy(ToLongPath, MaxPath);
+
+  ToLongName[NAME_MAX] = 'a';
+  ToLongName[NAME_MAX + 1] = '\0';     /* extend ToLongName by one
+                                        * too many */
+  ToLongPath[PATH_MAX - 1] = '/';
+  ToLongPath[PATH_MAX] = '\0'; /* inc ToLongPath by one */
+}
+
 
 void e(n)
 int n;
@@ -266,8 +329,8 @@ int n;
 
 void quit()
 {
-  Chdir("..");
-  System("rm -rf DIR_40");
+  chdir("..");
+  system("rm -rf DIR_40");
 
   if (errct == 0) {
        printf("ok\n");
similarity index 100%
rename from test/sh1.sh
rename to test/testsh1.sh
similarity index 100%
rename from test/sh2.sh
rename to test/testsh2.sh