newlib/winsup/testsuite/winsup.api/ltp/pipe09.c

231 lines
5.3 KiB
C

/*
*
* Copyright (c) International Business Machines Corp., 2001
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See
* the GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
/*
* NAME
* pipe09.c
*
* DESCRIPTION
* Check that two processes can use the same pipe at the same time.
*
* ALGORITHM
* 1. Open a pipe
* 2. Fork a child which writes to the pipe
* 3. Fork another child which writes a different character to the pipe
* 4. Have the parent read from the pipe
* 5. It should get the characters from both children.
*
* USAGE: <for command-line>
* pipe09 [-c n] [-f] [-i n] [-I x] [-P x] [-t]
* where, -c n : Run n copies concurrently.
* -f : Turn off functionality Testing.
* -i n : Execute test n times.
* -I x : Execute test for x seconds.
* -P x : Pause for x seconds between iterations.
* -t : Turn on syscall timing.
*
* HISTORY
* 07/2001 Ported by Wayne Boyer
*
* RESTRICTIONS
* None
*/
#include <signal.h>
#include <sys/wait.h>
#include <errno.h>
#include "test.h"
#include "usctest.h"
#define PIPEWRTCNT 100 /* must be an even number */
const char *TCID = "pipe09";
int TST_TOTAL = 1;
extern int Tst_count;
void setup(void);
void cleanup(void) __attribute__((noreturn));
int
main(int ac, char **av)
{
int lc; /* loop counter */
const char *msg; /* message returned from parse_opts */
int i, red, wtstatus;
int pipefd[2]; /* fds for pipe read/write */
char rebuf[BUFSIZ];
int Acnt = 0, Bcnt = 0; /* count 'A' and 'B' */
int fork_1, fork_2; /* ret values in parent */
/* parse standard options */
if ((msg = parse_opts(ac, av, (option_t *)NULL, NULL)) != (char *)NULL){
tst_brkm(TBROK, tst_exit, "OPTION PARSING ERROR - %s", msg);
/*NOTREACHED*/
}
setup();
for (lc = 0; TEST_LOOPING(lc); lc++) {
/* reset Tst_count in case we are looping */
Tst_count = 0;
TEST(pipe(pipefd));
if (TEST_RETURN == -1) {
tst_resm(TFAIL, "pipe() call failed");
continue;
}
if (!STD_FUNCTIONAL_TEST) {
tst_resm(TWARN, "-f option should not be used");
tst_resm(TPASS, "call succeeded");
continue;
}
if ((fork_1 = fork()) == -1) {
tst_brkm(TBROK, cleanup, "fork() #1 failed");
/*NOTREACHED*/
}
if (fork_1 == 0) { /* 1st child */
if (close(pipefd[0]) != 0) {
tst_resm(TWARN, "pipefd[0] close failed, "
"errno = %d", errno);
exit(1);
}
for (i = 0; i < PIPEWRTCNT / 2; ++i) {
if (write(pipefd[1], "A", 1) != 1) {
tst_resm(TWARN, "write to pipe failed");
exit(1);
}
}
exit(0);
}
/* parent */
waitpid(fork_1, &wtstatus, 0);
if (WEXITSTATUS(wtstatus) != 0) {
tst_brkm(TBROK, cleanup, "problem detected in child, "
"wait status %d, errno = %d", wtstatus, errno);
}
if ((fork_2 = fork()) == -1) {
tst_brkm(TBROK, cleanup, "fork() #2 failed");
/*NOTREACHED*/
}
if (fork_2 == 0) { /* 2nd child */
if (close(pipefd[0]) != 0) {
tst_resm(TWARN, "pipefd[0] close "
"failed, errno = %d", errno);
exit(1);
}
for (i = 0; i < PIPEWRTCNT / 2; ++i) {
if (write(pipefd[1], "B", 1) != 1) {
tst_resm(TWARN, "write to pipe failed");
exit(1);
}
}
exit(0);
}
/* parent */
waitpid(fork_2, &wtstatus, 0);
if (WEXITSTATUS(wtstatus) != 0) {
tst_brkm(TBROK, cleanup, "problem detected in child, "
"wait status %d, errno = %d", wtstatus, errno);
}
if (close(pipefd[1]) != 0) {
tst_brkm(TBROK, cleanup, "pipefd[1] close failed, "
"errno = %d", errno);
/*NOTREACHED*/
}
while ((red = read(pipefd[0], rebuf, 100)) > 0) {
for (i = 0; i < red; i++) {
if (rebuf[i] == 'A') {
Acnt++;
continue;
}
if (rebuf[i] == 'B') {
Bcnt++;
continue;
}
tst_resm(TFAIL, "got bogus '%c' character",
rebuf[i]);
break;
}
}
if (red == -1) {
tst_brkm(TBROK, cleanup, "Failure reading pipefd pipe, "
"errno = %d", errno);
}
if (Bcnt == Acnt && Bcnt == (PIPEWRTCNT / 2)) {
tst_resm(TPASS, "functionality appears to be correct");
} else {
tst_resm(TFAIL, "functionality is not correct - Acnt "
"= %d, Bcnt = %d", Acnt, Bcnt);
}
/* clean up things in case we are looping */
Acnt = Bcnt = 0;
}
cleanup();
/*NOTREACHED*/
}
/*
* setup() - performs all ONE TIME setup for this test.
*/
void
setup()
{
/* capture signals */
tst_sig(FORK, DEF_HANDLER, cleanup);
/* Pause if that option was specified */
TEST_PAUSE;
}
/*
* cleanup() - performs all ONE TIME cleanup for this test at
* completion or premature exit.
*/
void
cleanup()
{
/*
* print timing stats if that option was specified.
* print errno log if that option was specified.
*/
TEST_CLEANUP;
/* exit with return code appropriate for results */
tst_exit();
}