Minix1.1/user/test/test0.c

#include "stat.h"
extern int errno;
int errct;
int testnr;
extern long lseek();


#define NB          30L
main()
{
  int i;
  char let;

  printf("Test  0 ");
  for (i = 0; i < 4; i++) {
	test00();
	test01();
  }
  if (errct == 0)
	printf("ok\n");
  else
	printf(" %d errors\n", errct);
}






char aa[100];
char b[4] = {0,1,2,3}, c[4] = {10,20,30,40}, d[4] = {6,7,8,9};
long t1;

test00()
{
 /* Test program for open(), close(), creat(), read(), write(), lseek(). */
  int i, n, n1, n2;
  long t, time(), abuf[4];
  struct stat s;


  testnr = 1;
  if ((n = creat("foop", 0777)) != 3) {
	printf("Creating a file returned file descriptor %d instead of 3\n",n);
	e(1);
  }
  if ((n1 = creat("foop", 0777)) != 4) e(2);
  if ((n2 = creat("/", 0777)) != -1) e(3);
  if (close(n) != 0) e(4);
  if ((n = open("foop", 0)) != 3) e(5);
  if ((n2 = open("nofile", 0)) != -1) e(6);
  if (close(n1) != 0) e(7);

  /* n is the only one open now. */
  for (i = 0; i < 2; i++) {
	n1 = creat("File2", 0777);
	if (n1 != 4) {printf("creat yielded fd=%d, expected 4\n",n1); e(8);}
	if ((n2 = open("File2", 0)) != 5) e(9);
	if (close(n1) != 0) e(10);
	if (close(n2) != 0) e(11);
  }
  unlink("File2");
  if (close(n) != 0) e(12);

  /* All files closed now.*/
  for (i = 0; i < 2; i++) {
	t = 105L;
	if ((n = creat("foop", 0777)) != 3) e(13);
	if (close(n) != 0) e(14);
	if ((n = open("foop", 2)) != 3) e(15);

	/* read/write tests */
	if (write(n, b, 4) != 4) e(16);
	if (read(n, aa, 4) != 0) e(17);
	if (lseek(n, 0L, 0) != 0L) e(18);
	if (read(n, aa, 4) != 4) e(19);
	if (aa[0] != 0 || aa[1] != 1 || aa[2] != 2 || aa[3] != 3) e(20);
	if (lseek(n, 0L, 0) != 0L) e(21);
	if (lseek(n, 2L, 1) != 2L) e(22);
	if (read(n, aa, 4) != 2) e(23);
	if (aa[0] != 2 || aa[1] != 3 || aa[2] != 2 || aa[3] != 3) e(24);
	if (lseek(n, 2L, 0) != 2L) e(25);
	clraa();
	if (write(n, c, 4) != 4) e(26);
	if (lseek(n, 0L, 0) != 0L) e(27);
	if (read(n, aa, 10) != 6) e(28);
	if (aa[0] != 0 || aa[1] != 1 || aa[2] != 10 || aa[3] != 20) e(29);
	if (lseek(n, 16L, 0) != 16L) e(30);
	if (lseek(n, 2040L, 2) != 2046L) e(31);
	if (read(n, aa, 10) != 0) e(32);
	if (lseek(n, 0L, 1) != 2046L) e(33);
	clraa();
	if (write(n, c, 4) != 4) e(34);
	if (lseek(n, 0L, 1) != 2050L) e(35);
	if (lseek(n, 2040L, 0) != 2040L) e(36);
	clraa();
	if (read(n, aa, 20) != 10) e(37);
	if (aa[0] != 0 || aa[5] != 0 || aa[6] != 10 || aa[9] != 40) e(38);
	if (lseek(n, 10239L, 0) != 10239L) e(39);
	if (write(n, d, 2) != 2) e(40);
	if (lseek(n, -2L, 2) != 10239L) e(41);
	if (read(n, aa, 2) != 2) e(42);
	if (aa[0] != 6 || aa[1] != 7) e(43);
	if (lseek(n, NB*1024L-2L, 0) != NB*1024L-2L) e(44);
	if (write(n, b, 4) != 4) e(45);
	if (lseek(n, 0L, 0) != 0L) e(46);
	if (lseek(n, -6L, 2) != 1024L*NB-4) e(47);
	clraa();
	if (read(n, aa, 100) != 6) e(48);
	if (aa[0] != 0 || aa[1] != 0 || aa[3] != 1 || aa[4] != 2 
					|| aa[5] != 3) e(49);
	if (lseek(n, 20000L, 0) != 20000L) e(50);
	if (write(n, c, 4) != 4) e(51);
	if (lseek(n, -4L, 1) != 20000L ) e(52);
	if (read(n, aa, 4) != 4) e(53);
	if (aa[0] != 10 || aa[1] != 20 || aa[2] != 30 || aa[3] != 40) e(54);
	if (close(n) != 0) e(55);
	if ((n1 = creat("foop", 0777)) != 3) e(56);
	if (close(n1) != 0) e(57);
	unlink("foop");

	/* Test clock. */
/*  This test messes up the clock value
	t = 20L;
	stime(&t);
	t = 0L;
	t = time(&t);
	if (t < 20L || t > 70L) e(59);
	t = 200L;
	if (stime(&t) < 0) e(60);
	t = 0L;
	if (time(&t) < 200L || time(&t) > 205L) e(61);
	n1 = creat("timefile", 0777);
	abuf[0] = 03003L;
	abuf[1] = 03003L;
	if (utime("timefile", abuf) < 0) e(62);
	if (stat("timefile", &s) < 0) e(63);
	if (s.st_atime != 03003) e(64);
	abuf[0] = 06226;
	abuf[1] = 06226;
	if (utime("timefile", abuf) < 0) e(65);
	if (stat("timefile", &s) < 0) e(66);
	if (s.st_ctime != 06226) e(67);
	if (unlink("timefile") < 0) e(68);
	if (close(n1) < 0) e(69);
	if (times(abuf) < 0) e(70);
*/
  }
}


static clraa()
{
  int i;
  for (i = 0; i < 100; i++) aa[i] = 0;
}


test01()
{
/* Test link, unlink, stat, fstat, dup, umask,
 * mknod.
 */

  int i, j, n, n1, flag;
  char a[255], b[255];
  struct stat s, s1;

  testnr = 2;
  for (i=0; i < 2; i++) {
	umask(0);

	if ((n = creat("T3", 0702)) < 0) e(1);
	if (link("T3", "newT3") < 0) e(2);
	if ((n1 = open("newT3", 2)) < 0) e(3);
	for (j = 0; j < 255; j++) a[j] = j;
	if (write(n, a, 255) != 255) e(4);
	if (read(n1, b, 255) != 255) e(5);
	flag = 0;
	for (j = 0; j < 255; j++) if (a[j] != b[j]) flag++;
	if (flag) e(6);
	if (unlink("T3") < 0) e(7);
	if (close(n) <0) e(8);
	if (close(n1) < 0) e(9);
	if ((n1 = open("newT3", 0))  < 0) e(10);
	if (read(n1, b, 255) != 255) e(11);
	flag = 0;
	for (j = 0; j < 255; j++) if (a[j] != b[j]) flag++;
	if (flag) e(12);

	/* Now check out stat, fstat. */
	if (stat("newT3", &s) < 0) e(13);
	if (s.st_mode != 0100702) e(14);
	if (s.st_nlink != 1) e(15);
	if (s.st_size != 255L) e(16);
	if (fstat(n1, &s1) < 0) e(17);
	if (s.st_dev != s1.st_dev) e(18);
	if (s.st_ino != s1.st_ino) e(19);
	if (s.st_mode != s1.st_mode) e(20);
	if (s.st_nlink != s1.st_nlink) e(21);
	if (s.st_uid != s1.st_uid) e(22);
	if (s.st_gid != s1.st_gid) e(23);
	if (s.st_rdev != s1.st_rdev) e(24);
	if (s.st_size != s1.st_size) e(25);
	if (s.st_atime != s1.st_atime) e(26);
	if (close(n1) < 0) e(27);
	if (unlink("newT3") < 0)e (28);

	umask(040);
	if ((n=creat("T3a", 0777)) < 0) e(29);
	if (stat("T3a", &s) < 0) e(30);
	if (s.st_mode != 0100737) e(31);
	if (unlink("T3a") < 0) e(32);
	if (close(n1) < 0) e(33);

	/* dup */
	if ((n=creat("T3b", 0777)) < 0) e(34);
	if (close(n) < 0) e(35);
	if ((n=open("T3b", 2)) < 0) e(36);
	if ( (n1=dup(n)) != n+1) e(37);
	if (write(n, a, 255) != 255) e(38);
	read(n1, b, 20);
	if (lseek(n, 0L, 0) != 0L) e(39);
	if ((j=read(n1, b, 1024)) != 255) e(40);
	if (unlink("T3b") < 0) e(41);
	if (close(n) < 0) e(42);
	if (close(n1) < 0) e(43);

  }
}


e(n)
int n;
{
  printf("Subtest %d,  error %d  errno=%d  ", testnr, n, errno);
  perror("");
  errct++;
}