1 /* Copyright (C) 1997-2022 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3
4 The GNU C Library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU Lesser General Public
6 License as published by the Free Software Foundation; either
7 version 2.1 of the License, or (at your option) any later version.
8
9 The GNU C Library is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 Lesser General Public License for more details.
13
14 You should have received a copy of the GNU Lesser General Public
15 License along with the GNU C Library; if not, see
16 <https://www.gnu.org/licenses/>. */
17
18 #include <errno.h>
19 #include <stdio.h>
20 #include <stdlib.h>
21
22 static void
write_data(FILE * stream)23 write_data (FILE *stream)
24 {
25 int i;
26 for (i=0; i<100; i++)
27 fprintf (stream, "%d\n", i);
28 if (ferror (stream))
29 {
30 fprintf (stderr, "Output to stream failed.\n");
31 exit (1);
32 }
33 }
34
35 static void
read_data(FILE * stream)36 read_data (FILE *stream)
37 {
38 int i, j;
39
40 for (i=0; i<100; i++)
41 {
42 if (fscanf (stream, "%d\n", &j) != 1 || j != i)
43 {
44 if (ferror (stream))
45 perror ("fscanf");
46 puts ("Test FAILED!");
47 exit (1);
48 }
49 }
50 }
51
52 static int
do_test(void)53 do_test (void)
54 {
55 FILE *output, *input;
56 int wstatus, rstatus;
57
58 /* We must remove this entry to assure the `cat' binary does not use
59 the perhaps incompatible new shared libraries. */
60 unsetenv ("LD_LIBRARY_PATH");
61
62 output = popen ("/bin/cat >" OBJPFX "tstpopen.tmp", "w");
63 if (output == NULL)
64 {
65 perror ("popen");
66 puts ("Test FAILED!");
67 exit (1);
68 }
69 write_data (output);
70 wstatus = pclose (output);
71 printf ("writing pclose returned %d\n", wstatus);
72 input = popen ("/bin/cat " OBJPFX "tstpopen.tmp", "r");
73 if (input == NULL)
74 {
75 perror (OBJPFX "tstpopen.tmp");
76 puts ("Test FAILED!");
77 exit (1);
78 }
79 read_data (input);
80 rstatus = pclose (input);
81 printf ("reading pclose returned %d\n", rstatus);
82
83 remove (OBJPFX "tstpopen.tmp");
84
85 errno = 0;
86 output = popen ("/bin/cat", "m");
87 if (output != NULL)
88 {
89 puts ("popen called with illegal mode does not return NULL");
90 puts ("Test FAILED!");
91 exit (1);
92 }
93 if (errno != EINVAL)
94 {
95 puts ("popen called with illegal mode does not set errno to EINVAL");
96 puts ("Test FAILED!");
97 exit (1);
98 }
99
100 puts (wstatus | rstatus ? "Test FAILED!" : "Test succeeded.");
101 return (wstatus | rstatus);
102 }
103
104 #define TEST_FUNCTION do_test ()
105 #include "../test-skeleton.c"
106