Generate new format names in auto-libm-test-out
[glibc.git] / rt / tst-shm.c
blob36fb9ebcd0bec6bc5cbc86593d5d779da71e4363
1 /* Test program for POSIX shm_* functions.
2 Copyright (C) 2000-2016 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4 Contributed by Ulrich Drepper <drepper@cygnus.com>, 2000.
6 The GNU C Library is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Lesser General Public
8 License as published by the Free Software Foundation; either
9 version 2.1 of the License, or (at your option) any later version.
11 The GNU C Library is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 Lesser General Public License for more details.
16 You should have received a copy of the GNU Lesser General Public
17 License along with the GNU C Library; if not, see
18 <http://www.gnu.org/licenses/>. */
20 #include <errno.h>
21 #include <error.h>
22 #include <fcntl.h>
23 #include <signal.h>
24 #include <stdio.h>
25 #include <stdlib.h>
26 #include <string.h>
27 #include <time.h>
28 #include <unistd.h>
29 #include <sys/mman.h>
30 #include <sys/stat.h>
31 #include <sys/wait.h>
34 /* We want to see output immediately. */
35 #define STDOUT_UNBUFFERED
37 static void
38 worker (int write_now)
40 struct timespec ts;
41 struct stat64 st;
42 int i;
43 int fd = shm_open ("/glibc-shm-test", O_RDWR, 0600);
45 if (fd == -1)
46 error (EXIT_FAILURE, 0, "failed to open shared memory object: shm_open");
48 char *mem;
50 if (fd == -1)
51 exit (fd);
53 if (fstat64 (fd, &st) == -1)
54 error (EXIT_FAILURE, 0, "stat failed");
55 if (st.st_size != 4000)
56 error (EXIT_FAILURE, 0, "size incorrect");
58 mem = mmap (NULL, 4000, PROT_READ | PROT_WRITE, MAP_SHARED, fd, 0);
59 if (mem == MAP_FAILED)
60 error (EXIT_FAILURE, 0, "mmap failed");
62 ts.tv_sec = 0;
63 ts.tv_nsec = 500000000;
65 if (write_now)
66 for (i = 0; i <= 4; ++i)
67 mem[i] = i;
68 else
69 /* Wait until the first bytes of the memory region are 0, 1, 2, 3, 4. */
70 while (1)
72 for (i = 0; i <= 4; ++i)
73 if (mem[i] != i)
74 break;
76 if (i > 4)
77 /* OK, that's done. */
78 break;
80 nanosleep (&ts, NULL);
83 if (!write_now)
84 for (i = 0; i <= 4; ++i)
85 mem[i] = 4 + i;
86 else
87 /* Wait until the first bytes of the memory region are 4, 5, 6, 7, 8. */
88 while (1)
90 for (i = 0; i <= 4; ++i)
91 if (mem[i] != 4 + i)
92 break;
94 if (i > 4)
95 /* OK, that's done. */
96 break;
98 nanosleep (&ts, NULL);
101 if (munmap (mem, 4000) == -1)
102 error (EXIT_FAILURE, errno, "munmap");
104 close (fd);
106 exit (0);
110 static int
111 do_test (void)
113 int fd;
114 pid_t pid1;
115 pid_t pid2;
116 int status1;
117 int status2;
118 struct stat64 st;
120 fd = shm_open ("/../escaped", O_RDWR | O_CREAT | O_TRUNC | O_EXCL, 0600);
121 if (fd != -1)
123 perror ("read file outside of SHMDIR directory");
124 return 1;
128 /* Create the shared memory object. */
129 fd = shm_open ("/glibc-shm-test", O_RDWR | O_CREAT | O_TRUNC | O_EXCL, 0600);
130 if (fd == -1)
132 /* If shm_open is unimplemented we skip the test. */
133 if (errno == ENOSYS)
135 perror ("shm_open unimplemented. Test skipped.");
136 return 0;
138 else
139 error (EXIT_FAILURE, 0, "failed to create shared memory object: shm_open");
142 /* Size the object. We make it 4000 bytes long. */
143 if (ftruncate (fd, 4000) == -1)
145 /* This failed. Must be a bug in the implementation of the
146 shared memory itself. */
147 perror ("failed to size of shared memory object: ftruncate");
148 close (fd);
149 shm_unlink ("/glibc-shm-test");
150 return 0;
153 if (fstat64 (fd, &st) == -1)
155 shm_unlink ("/glibc-shm-test");
156 error (EXIT_FAILURE, 0, "initial stat failed");
158 if (st.st_size != 4000)
160 shm_unlink ("/glibc-shm-test");
161 error (EXIT_FAILURE, 0, "initial size not correct");
164 /* Spawn to processes which will do the work. */
165 pid1 = fork ();
166 if (pid1 == 0)
167 worker (0);
168 else if (pid1 == -1)
170 /* Couldn't create a second process. */
171 perror ("fork");
172 close (fd);
173 shm_unlink ("/glibc-shm-test");
174 return 0;
177 pid2 = fork ();
178 if (pid2 == 0)
179 worker (1);
180 else if (pid2 == -1)
182 /* Couldn't create a second process. */
183 int ignore;
184 perror ("fork");
185 kill (pid1, SIGTERM);
186 waitpid (pid1, &ignore, 0);
187 close (fd);
188 shm_unlink ("/glibc-shm-test");
189 return 0;
192 /* Wait until the two processes are finished. */
193 waitpid (pid1, &status1, 0);
194 waitpid (pid2, &status2, 0);
196 /* Now we can unlink the shared object. */
197 shm_unlink ("/glibc-shm-test");
199 return (!WIFEXITED (status1) || WEXITSTATUS (status1) != 0
200 || !WIFEXITED (status2) || WEXITSTATUS (status2) != 0);
202 #define TEST_FUNCTION do_test ()
204 #define CLEANUP_HANDLER shm_unlink ("/glibc-shm-test");
207 #include "../test-skeleton.c"