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

/* test 13 */

/* File: pipes.c - created by Marty Leisner */
/* Leisner.Henr         1-Dec-87  8:55:04 */

/* Copyright (C) 1987 by Martin Leisner. All rights reserved. */
/* Used by permission. */

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

#define BLOCK_SIZE      1000
#define NUM_BLOCKS      1000

int errct = 0;
char buffer[BLOCK_SIZE];

_PROTOTYPE(int main, (void));
_PROTOTYPE(void quit, (void));

int main()
{
  int stat_loc, pipefd[2];
  register int i;
  pipe(pipefd);

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

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

  pipe(pipefd);

  switch (fork()) {
      case 0:
        /* Child code */
        for (i = 0; i < NUM_BLOCKS; i++)
                 if (read(pipefd[0], buffer, BLOCK_SIZE) != BLOCK_SIZE) break;
        exit(0);

      case -1:
        perror("fork broke");
        exit(1);

      default:
        /* Parent code */
        for (i = 0; i < NUM_BLOCKS; i++) write(pipefd[1], buffer, BLOCK_SIZE);
        wait(&stat_loc);
        break;
  }
  quit();
  return(-1);                   /* impossible */
}

void quit()
{

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

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