source: trunk/minix/test/test1.c@ 12

/* test 1 */

#include <sys/types.h>
#include <sys/wait.h>
#include <errno.h>
#include <signal.h>
#include <stdlib.h>
#include <unistd.h>
#include <stdio.h>

#define SIGNUM 10
#define MAX_ERROR 4
#define ITERATIONS 10

_VOLATILE int glov, gct;
int errct;
int subtest;

_PROTOTYPE(int main, (int argc, char *argv []));
_PROTOTYPE(void test1a, (void));
_PROTOTYPE(void parent, (void));
_PROTOTYPE(void child, (int i));
_PROTOTYPE(void test1b, (void));
_PROTOTYPE(void parent1, (int childpid));
_PROTOTYPE(void func, (int s));
_PROTOTYPE(void child1, (void));
_PROTOTYPE(void e, (int n));
_PROTOTYPE(void quit, (void));

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

  sync();

  if (argc == 2) m = atoi(argv[1]);

  printf("Test  1 ");
  fflush(stdout);               /* have to flush for child's benefit */

  system("rm -rf DIR_01; mkdir DIR_01");
  chdir("DIR_01");

  for (i = 0; i < ITERATIONS; i++) {
        if (m & 00001) test1a();
        if (m & 00002) test1b();
  }

  quit();
  return(-1);                   /* impossible */
}

void test1a()
{
  int i, n, pid;

  subtest = 1;
  n = 4;
  for (i = 0; i < n; i++) {
        if ((pid = fork())) {
                if (pid < 0) {
                        printf("\nTest 1 fork failed\n");
                        exit(1);
                }
                parent();
        } else
                child(i);
  }
}

void parent()
{

  int n;

  n = getpid();
  wait(&n);
}

void child(i)
int i;
{
  int n;

  n = getpid();
  exit(100+i);
}

void test1b()
{
  int i, k;

  subtest = 2;
  for (i = 0; i < 4; i++) {
        glov = 0;
        signal(SIGNUM, func);
        if ((k = fork())) {
                if (k < 0) {
                        printf("Test 1 fork failed\n");
                        exit(1);
                }
                parent1(k);
        } else
                child1();
  }
}

void parent1(childpid)
int childpid;
{

  int n;

  for (n = 0; n < 5000; n++);
  while (kill(childpid, SIGNUM) < 0)    /* null statement */
        ;
  wait(&n);
}

void func(s)
int s;                          /* for ANSI */
{
  glov++;
  gct++;
}

void child1()
{
  while (glov == 0);
  exit(gct);
}

void quit()
{

  chdir("..");
  system("rm -rf DIR*");

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