/* test33: access()		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 <limits.h>
#include <errno.h>
#include <time.h>
#include <stdio.h>

#define MAX_ERROR      1
#define ITERATIONS     2

#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 Chmod(a,b)	if (chmod(a,b) != 0) printf("Can't chmod %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;			/* nonzero if uid == euid (euid == 0 always) */
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 */

_PROTOTYPE(void main, (int argc, char *argv[]));
_PROTOTYPE(void test33a, (void));
_PROTOTYPE(void test33b, (void));
_PROTOTYPE(void test33c, (void));
_PROTOTYPE(void test33d, (void));
_PROTOTYPE(void test_access, (void));
_PROTOTYPE(void makelongnames, (void));
_PROTOTYPE(void e, (int number));
_PROTOTYPE(void quit, (void));

void main(argc, argv)
int argc;
char *argv[];
{
  int i, m = 0xFFFF;

  sync();
  if (argc == 2) m = atoi(argv[1]);
  printf("Test 33 ");
  fflush(stdout);

  if (geteuid() != 0) {
	printf("must be setuid root; test aborted\n");
	exit(1);
  }
  if (getuid() == 0) {
       printf("must be setuid root logged in as someone else; test aborted\n");
       exit(1);
  }

  umask(0000);
  System("rm -rf DIR_33; mkdir DIR_33");
  Chdir("DIR_33");
  makelongnames();
  superuser = (getuid() == 0);

  for (i = 0; i < ITERATIONS; i++) {
	if (m & 0001) test33a();
	if (m & 0002) test33b();
	if (m & 0004) test33c();
	if (m & 0010) test33d();
  }
  quit();
}

void test33a()
{				/* Test normal operation. */
  int stat_loc;			/* For the wait(&stat_loc) call. */

  subtest = 1;
  System("rm -rf ../DIR_33/*");

  /* To test normal access first make some files for real uid. */
  switch (fork()) {
      case -1:	printf("Can't fork\n");	break;
      case 0:
	alarm(20);
	setuid(getuid());	/* (Re)set the effective ids to the
				 * real ids. */
	setgid(getgid());
	System("> rwx; chmod 700 rwx");
	System("> rw_; chmod 600 rw_");
	System("> r_x; chmod 500 r_x");
	System("> r__; chmod 400 r__");
	System("> _wx; chmod 300 _wx");
	System("> _w_; chmod 200 _w_");
	System("> __x; chmod 100 __x");
	System("> ___; chmod 000 ___");
	exit(0);

      default:
	wait(&stat_loc);
	if (stat_loc != 0) e(1);/* Alarm? */
  }
  test_access();

  /* Let's test access() on directorys. */
  switch (fork()) {
      case -1:	printf("Can't fork\n");	break;
      case 0:
	alarm(20);
	setuid(getuid());	/* (Re)set the effective ids to the
				 * real ids. */
	setgid(getgid());
	System("rm -rf [_r][_w][_x]");
	System("mkdir rwx; chmod 700 rwx");
	System("mkdir rw_; chmod 600 rw_");
	System("mkdir r_x; chmod 500 r_x");
	System("mkdir r__; chmod 400 r__");
	System("mkdir _wx; chmod 300 _wx");
	System("mkdir _w_; chmod 200 _w_");
	System("mkdir __x; chmod 100 __x");
	System("mkdir ___; chmod 000 ___");
	exit(0);

      default:
	wait(&stat_loc);
	if (stat_loc != 0) e(2);/* Alarm? */
  }
  test_access();

  switch (fork()) {
      case -1:	printf("Can't fork\n");	break;
      case 0:
	alarm(20);
	setuid(getuid());	/* (Re)set the effective ids to the
				 * real ids. */
	setgid(getgid());
	System("rmdir [_r][_w][_x]");
	Mkfifo("rwx");
	System("chmod 700 rwx");
	Mkfifo("rw_");
	System("chmod 600 rw_");
	Mkfifo("r_x");
	System("chmod 500 r_x");
	Mkfifo("r__");
	System("chmod 400 r__");
	Mkfifo("_wx");
	System("chmod 300 _wx");
	Mkfifo("_w_");
	System("chmod 200 _w_");
	Mkfifo("__x");
	System("chmod 100 __x");
	Mkfifo("___");
	System("chmod 000 ___");
	exit(0);

      default:
	wait(&stat_loc);
	if (stat_loc != 0) e(3);/* Alarm? */
  }
  test_access();

  /* Remove all the fifos. */
  switch (fork()) {
      case -1:	printf("Can't fork\n");	break;
      case 0:
	alarm(20);
	setuid(getuid());
	setgid(getgid());
	System("rm -rf [_r][_w][_x]");
	exit(0);

      default:
	wait(&stat_loc);
	if (stat_loc != 0) e(4);/* Alarm? */
  }
}



void test33b()
{
  int stat_loc;			/* For the wait(&stat_loc) call. */

  subtest = 2;
  System("rm -rf ../DIR_33/*");

  switch (fork()) {
      case -1:	printf("Can't fork\n");	break;
      case 0:
	alarm(20);

	/* (Re)set the effective ids to the real ids. */
	setuid(getuid());
	setgid(getgid());
	System("> ______rwx; chmod 007 ______rwx");
	System("> ________x; chmod 001 ________x");
	System("> _________; chmod 000 _________");
	exit(0);

      default:
	wait(&stat_loc);
	if (stat_loc != 0) e(1);/* Alarm? */
  }

  /* If we are superuser, we have access to all. */
  /* Well, almost, execution access might need at least one X bit. */
  if (superuser) {
	if (access("_________", R_OK) != 0) e(2);
	if (access("_________", W_OK) != 0) e(3);
	if (access("________x", R_OK) != 0) e(4);
	if (access("________x", W_OK) != 0) e(5);
	if (access("________x", X_OK) != 0) e(6);
	if (access("______rwx", R_OK) != 0) e(7);
	if (access("______rwx", W_OK) != 0) e(8);
	if (access("______rwx", X_OK) != 0) e(9);
  }
  if (!superuser) {
	if (access("_________", R_OK) != -1) e(10);
	if (errno != EACCES) e(11);
	if (access("_________", W_OK) != -1) e(12);
	if (errno != EACCES) e(13);
	if (access("_________", X_OK) != -1) e(14);
	if (errno != EACCES) e(15);
	if (access("________x", R_OK) != -1) e(16);
	if (errno != EACCES) e(17);
	if (access("________x", W_OK) != -1) e(18);
	if (errno != EACCES) e(19);
	if (access("________x", X_OK) != -1) e(20);
	if (errno != EACCES) e(21);
	if (access("______rwx", R_OK) != -1) e(22);
	if (errno != EACCES) e(23);
	if (access("______rwx", W_OK) != -1) e(24);
	if (errno != EACCES) e(25);
	if (access("______rwx", X_OK) != -1) e(26);
	if (errno != EACCES) e(27);
  }

  /* If the real uid != effective uid. */
  if (!superuser) {
	System("rm -rf [_r][_w][_x]");
	System("> rwx");
	Chmod("rwx", 0700);
	System("> rw_");
	Chmod("rw_", 0600);
	System("> r_x");
	Chmod("r_x", 0500);
	System("> r__");
	Chmod("r__", 0400);
	System("> _wx");
	Chmod("_wx", 0300);
	System("> _w_");
	Chmod("_w_", 0200);
	System("> __x");
	Chmod("__x", 0100);
	System("> ___");
	Chmod("___", 0000);

	if (access("rwx", F_OK) != 0) e(28);
	if (access("rwx", R_OK) != -1) e(29);
	if (errno != EACCES) e(30);
	if (access("rwx", W_OK) != -1) e(31);
	if (errno != EACCES) e(32);
	if (access("rwx", X_OK) != -1) e(33);
	if (errno != EACCES) e(34);

	if (access("rw_", F_OK) != 0) e(35);
	if (access("rw_", R_OK) != -1) e(36);
	if (errno != EACCES) e(37);
	if (access("rw_", W_OK) != -1) e(38);
	if (errno != EACCES) e(39);
	if (access("rw_", X_OK) != -1) e(40);
	if (errno != EACCES) e(41);

	if (access("r_x", F_OK) != 0) e(42);
	if (access("r_x", R_OK) != -1) e(43);
	if (errno != EACCES) e(44);
	if (access("r_x", W_OK) != -1) e(45);
	if (errno != EACCES) e(46);
	if (access("r_x", X_OK) != -1) e(47);
	if (errno != EACCES) e(48);

	if (access("r__", F_OK) != 0) e(49);
	if (access("r__", R_OK) != -1) e(50);
	if (errno != EACCES) e(51);
	if (access("r__", W_OK) != -1) e(52);
	if (errno != EACCES) e(53);
	if (access("r__", X_OK) != -1) e(54);
	if (errno != EACCES) e(55);

	if (access("_wx", F_OK) != 0) e(56);
	if (access("_wx", R_OK) != -1) e(57);
	if (errno != EACCES) e(58);
	if (access("_wx", W_OK) != -1) e(59);
	if (errno != EACCES) e(60);
	if (access("_wx", X_OK) != -1) e(61);
	if (errno != EACCES) e(62);

	if (access("_w_", F_OK) != 0) e(63);
	if (access("_w_", R_OK) != -1) e(64);
	if (errno != EACCES) e(65);
	if (access("_w_", W_OK) != -1) e(66);
	if (errno != EACCES) e(67);
	if (access("_w_", X_OK) != -1) e(68);
	if (errno != EACCES) e(69);

	if (access("__x", F_OK) != 0) e(70);
	if (access("__x", R_OK) != -1) e(71);
	if (errno != EACCES) e(72);
	if (access("__x", W_OK) != -1) e(73);
	if (errno != EACCES) e(74);
	if (access("__x", X_OK) != -1) e(75);
	if (errno != EACCES) e(76);

	if (access("___", F_OK) != 0) e(77);
	if (access("___", R_OK) != -1) e(78);
	if (errno != EACCES) e(79);
	if (access("___", W_OK) != -1) e(80);
	if (errno != EACCES) e(81);
	if (access("___", X_OK) != -1) e(82);
	if (errno != EACCES) e(83);

	System("rm -rf [_r][_w][_x]");
  }
}

void test33c()
{				/* Test errors returned. */
  int i;

  subtest = 3;
  System("rm -rf ../DIR_33/*");

  /* Test what access() does with non existing files. */
  System("rm -rf nonexist");
  if (access("noexist", F_OK) != -1) e(1);
  if (errno != ENOENT) e(2);
  if (access("noexist", R_OK) != -1) e(3);
  if (errno != ENOENT) e(4);
  if (access("noexist", W_OK) != -1) e(5);
  if (errno != ENOENT) e(6);
  if (access("noexist", X_OK) != -1) e(7);
  if (errno != ENOENT) e(8);
  if (access("noexist", R_OK | W_OK) != -1) e(9);
  if (errno != ENOENT) e(10);
  if (access("noexist", R_OK | X_OK) != -1) e(11);
  if (errno != ENOENT) e(12);
  if (access("noexist", W_OK | X_OK) != -1) e(13);
  if (errno != ENOENT) e(14);
  if (access("noexist", R_OK | W_OK | X_OK) != -1) e(15);
  if (errno != ENOENT) e(16);

  /* Test access on a nonsearchable path. */
  if (mkdir("nosearch", 0777) != 0) e(1000);
  if ( (i = creat("nosearch/file", 0666)) < 0) e(1001);
  if (close(i) < 0) e(1002);
  if ( (i = creat("file", 0666) < 0)) e(1003);
  if (close(i) < 0) e(1004);
  if (chmod("nosearch/file", 05777) < 0) e(1005);
  if (chmod("file", 05777) < 0) e(1006);
  if (chmod("nosearch", 0677) != 0) e(1007);
  if (access("nosearch/file", F_OK) != 0) e(17);

  /* Test ToLongName and ToLongPath */
#ifdef _POSIX_NO_TRUNC
# if _POSIX_NO_TRUNC - 0 != -1
  if (access(ToLongName, F_OK) != -1) e(23);
  if (errno != ENAMETOOLONG) e(24);
# else
  if (close(creat(ToLongName, 0777)) != 0) e(25);
  if (access(ToLongName, F_OK) != 0) e(26);
# endif
#else
# include "error, this case requires dynamic checks and is not handled"
#endif
  ToLongPath[PATH_MAX - 2] = '/';
  ToLongPath[PATH_MAX - 1] = 'a';
  if (access(ToLongPath, F_OK) != -1) e(27);
  if (errno != ENAMETOOLONG) e(28);
  ToLongPath[PATH_MAX - 1] = '/';

  /* Test empty strings. */
  if (access("", F_OK) != -1) e(29);
  if (errno != ENOENT) e(30);
  System("rm -rf idonotexist");
  if (access("idonotexist", F_OK) != -1) e(31);
  if (errno != ENOENT) e(32);

  /* Test non directorys in prefix of path. */
  if (access("/etc/passwd/dir/foo", F_OK) != -1) e(33);
  if (errno != ENOTDIR) e(34);
  System("rm -rf nodir; > nodir");
  if (access("nodir/foo", F_OK) != -1) e(35);
  if (errno != ENOTDIR) e(36);

  /* Test if invalid amode arguments are signaled. */
  System("> allmod");
  Chmod("allmod", 05777);
  for (i = -1025; i < 1025; i++) {
	if ((mode_t) i != F_OK && ((mode_t) i & ~(R_OK | W_OK | X_OK)) != 0) {
		if (access("allmod", (mode_t) i) != -1) e(37);
		if (errno != EINVAL) e(38);
	} else 
		if (access("allmod", (mode_t) i) != 0) e(39);
  }
}

void test33d()
{				/* Test access() flags. */
#define EXCLUDE(a,b)	(((a)^(b)) == ((a)|(b)))
  subtest = 4;
  System("rm -rf ../DIR_33/*");

  /* The test are rather strong, stronger that POSIX specifies. */
  /* The should be OR able, this test tests if all the 1 bits */
  /* Are in diferent places. This should be what one wants. */
  if (!EXCLUDE(R_OK, W_OK | X_OK)) e(1);
  if (!EXCLUDE(W_OK, R_OK | X_OK)) e(2);
  if (!EXCLUDE(X_OK, R_OK | W_OK)) e(3);
  if (F_OK == R_OK) e(4);
  if (F_OK == W_OK) e(5);
  if (F_OK == X_OK) e(6);
  if (F_OK == (R_OK | W_OK)) e(7);
  if (F_OK == (W_OK | X_OK)) e(8);
  if (F_OK == (R_OK | X_OK)) e(9);
  if (F_OK == (R_OK | W_OK | X_OK)) e(10);
}

void test_access()
{				/* Test all [_r][_w][_x] files. */
  if (!superuser) {
	/* Test normal access. */
	if (access("rwx", F_OK) != 0) e(11);
	if (access("rwx", R_OK) != 0) e(12);
	if (access("rwx", W_OK) != 0) e(13);
	if (access("rwx", X_OK) != 0) e(14);
	if (access("rwx", R_OK | W_OK) != 0) e(15);
	if (access("rwx", R_OK | X_OK) != 0) e(16);
	if (access("rwx", W_OK | X_OK) != 0) e(17);
	if (access("rwx", R_OK | W_OK | X_OK) != 0) e(18);

	if (access("rw_", F_OK) != 0) e(19);
	if (access("rw_", R_OK) != 0) e(20);
	if (access("rw_", W_OK) != 0) e(21);
	if (access("rw_", X_OK) != -1) e(22);
	if (errno != EACCES) e(23);
	if (access("rw_", R_OK | W_OK) != 0) e(24);
	if (access("rw_", R_OK | X_OK) != -1) e(25);
	if (errno != EACCES) e(26);
	if (access("rw_", W_OK | X_OK) != -1) e(27);
	if (errno != EACCES) e(28);
	if (access("rw_", R_OK | W_OK | X_OK) != -1) e(29);
	if (errno != EACCES) e(30);

	if (access("r_x", F_OK) != 0) e(31);
	if (access("r_x", R_OK) != 0) e(32);
	if (access("r_x", W_OK) != -1) e(33);
	if (errno != EACCES) e(34);
	if (access("r_x", X_OK) != 0) e(35);
	if (access("r_x", R_OK | W_OK) != -1) e(36);
	if (errno != EACCES) e(37);
	if (access("r_x", R_OK | X_OK) != 0) e(38);
	if (access("r_x", W_OK | X_OK) != -1) e(39);
	if (errno != EACCES) e(40);
	if (access("r_x", R_OK | W_OK | X_OK) != -1) e(41);
	if (errno != EACCES) e(42);

	if (access("r__", F_OK) != 0) e(43);
	if (access("r__", R_OK) != 0) e(44);
	if (access("r__", W_OK) != -1) e(45);
	if (errno != EACCES) e(46);
	if (access("r__", X_OK) != -1) e(47);
	if (errno != EACCES) e(48);
	if (access("r__", R_OK | W_OK) != -1) e(49);
	if (errno != EACCES) e(50);
	if (access("r__", R_OK | X_OK) != -1) e(51);
	if (errno != EACCES) e(52);
	if (access("r__", W_OK | X_OK) != -1) e(53);
	if (errno != EACCES) e(54);
	if (access("r__", R_OK | W_OK | X_OK) != -1) e(55);
	if (errno != EACCES) e(56);

	if (access("_wx", F_OK) != 0) e(57);
	if (access("_wx", R_OK) != -1) e(58);
	if (errno != EACCES) e(59);
	if (access("_wx", W_OK) != 0) e(60);
	if (access("_wx", X_OK) != 0) e(61);
	if (access("_wx", R_OK | W_OK) != -1) e(62);
	if (errno != EACCES) e(63);
	if (access("_wx", R_OK | X_OK) != -1) e(64);
	if (errno != EACCES) e(65);
	if (access("_wx", W_OK | X_OK) != 0) e(66);
	if (access("_wx", R_OK | W_OK | X_OK) != -1) e(67);
	if (errno != EACCES) e(68);

	if (access("_w_", F_OK) != 0) e(69);
	if (access("_w_", R_OK) != -1) e(70);
	if (errno != EACCES) e(71);
	if (access("_w_", W_OK) != 0) e(72);
	if (access("_w_", X_OK) != -1) e(73);
	if (errno != EACCES) e(74);
	if (access("_w_", R_OK | W_OK) != -1) e(75);
	if (errno != EACCES) e(76);
	if (access("_w_", R_OK | X_OK) != -1) e(77);
	if (errno != EACCES) e(78);
	if (access("_w_", W_OK | X_OK) != -1) e(79);
	if (errno != EACCES) e(80);
	if (access("_w_", R_OK | W_OK | X_OK) != -1) e(81);
	if (errno != EACCES) e(82);

	if (access("__x", F_OK) != 0) e(83);
	if (access("__x", R_OK) != -1) e(84);
	if (errno != EACCES) e(85);
	if (access("__x", W_OK) != -1) e(86);
	if (errno != EACCES) e(87);
	if (access("__x", X_OK) != 0) e(88);
	if (access("__x", R_OK | W_OK) != -1) e(89);
	if (errno != EACCES) e(90);
	if (access("__x", R_OK | X_OK) != -1) e(91);
	if (errno != EACCES) e(92);
	if (access("__x", W_OK | X_OK) != -1) e(93);
	if (errno != EACCES) e(94);
	if (access("__x", R_OK | W_OK | X_OK) != -1) e(95);
	if (errno != EACCES) e(96);

	if (access("___", F_OK) != 0) e(97);
	if (access("___", R_OK) != -1) e(98);
	if (errno != EACCES) e(99);
	if (access("___", W_OK) != -1) e(100);
	if (errno != EACCES) e(101);
	if (access("___", X_OK) != -1) e(102);
	if (errno != EACCES) e(103);
	if (access("___", R_OK | W_OK) != -1) e(104);
	if (errno != EACCES) e(105);
	if (access("___", R_OK | X_OK) != -1) e(106);
	if (errno != EACCES) e(107);
	if (access("___", W_OK | X_OK) != -1) e(108);
	if (errno != EACCES) e(109);
	if (access("___", R_OK | W_OK | X_OK) != -1) e(110);
	if (errno != EACCES) e(111);
  }
  if (superuser) {
	/* Test root access don't test X_OK on [_r][_w]_ files. */
	if (access("rwx", F_OK) != 0) e(112);
	if (access("rwx", R_OK) != 0) e(113);
	if (access("rwx", W_OK) != 0) e(114);
	if (access("rwx", X_OK) != 0) e(115);
	if (access("rwx", R_OK | W_OK) != 0) e(116);
	if (access("rwx", R_OK | X_OK) != 0) e(117);
	if (access("rwx", W_OK | X_OK) != 0) e(118);
	if (access("rwx", R_OK | W_OK | X_OK) != 0) e(119);

	if (access("rw_", F_OK) != 0) e(120);
	if (access("rw_", R_OK) != 0) e(121);
	if (access("rw_", W_OK) != 0) e(122);
	if (access("rw_", R_OK | W_OK) != 0) e(123);

	if (access("r_x", F_OK) != 0) e(124);
	if (access("r_x", R_OK) != 0) e(125);
	if (access("r_x", W_OK) != 0) e(126);
	if (access("r_x", X_OK) != 0) e(127);
	if (access("r_x", R_OK | W_OK) != 0) e(128);
	if (access("r_x", R_OK | X_OK) != 0) e(129);
	if (access("r_x", W_OK | X_OK) != 0) e(130);
	if (access("r_x", R_OK | W_OK | X_OK) != 0) e(131);

	if (access("r__", F_OK) != 0) e(132);
	if (access("r__", R_OK) != 0) e(133);
	if (access("r__", W_OK) != 0) e(134);
	if (access("r__", R_OK | W_OK) != 0) e(135);

	if (access("_wx", F_OK) != 0) e(136);
	if (access("_wx", R_OK) != 0) e(137);
	if (access("_wx", W_OK) != 0) e(138);
	if (access("_wx", X_OK) != 0) e(139);
	if (access("_wx", R_OK | W_OK) != 0) e(140);
	if (access("_wx", R_OK | X_OK) != 0) e(141);
	if (access("_wx", W_OK | X_OK) != 0) e(142);
	if (access("_wx", R_OK | W_OK | X_OK) != 0) e(143);

	if (access("_w_", F_OK) != 0) e(144);
	if (access("_w_", R_OK) != 0) e(145);
	if (access("_w_", W_OK) != 0) e(146);
	if (access("_w_", R_OK | W_OK) != 0) e(147);

	if (access("__x", F_OK) != 0) e(148);
	if (access("__x", R_OK) != 0) e(149);
	if (access("__x", W_OK) != 0) e(150);
	if (access("__x", X_OK) != 0) e(151);
	if (access("__x", R_OK | W_OK) != 0) e(152);
	if (access("__x", R_OK | X_OK) != 0) e(153);
	if (access("__x", W_OK | X_OK) != 0) e(154);
	if (access("__x", R_OK | W_OK | X_OK) != 0) e(155);

	if (access("___", F_OK) != 0) e(156);
	if (access("___", R_OK) != 0) e(157);
	if (access("___", W_OK) != 0) e(158);
	if (access("___", R_OK | W_OK) != 0) e(159);
  }
}


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;
{
  int err_num = errno;		/* Save in case printf clobbers it. */

  printf("Subtest %d,  error %d  errno=%d: ", subtest, n, errno);
  errno = err_num;
  perror("");
  if (errct++ > MAX_ERROR) {
	printf("Too many errors; test aborted\n");
	chdir("..");
	system("rm -rf DIR*");
	exit(1);
  }
  errno = 0;
}


void quit()
{
  Chdir("..");
  System("rm -rf DIR_33");

  if (errct == 0) {
	printf("ok\n");
	exit(0);
  } else {
	printf("%d errors\n", errct);
	exit(1);
  }
}
