/* 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);
  }
}