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

}

}