Update.
[glibc.git] / nptl / tst-mutex4.c
blob9caed444c14fd9bd61331e4324762853f40fc86b
1 /* Copyright (C) 2002, 2003 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Contributed by Ulrich Drepper <drepper@redhat.com>, 2002.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, write to the Free
17 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
18 02111-1307 USA. */
20 #include <errno.h>
21 #include <pthread.h>
22 #include <stdint.h>
23 #include <stdio.h>
24 #include <stdlib.h>
25 #include <string.h>
26 #include <unistd.h>
27 #include <sys/mman.h>
28 #include <sys/wait.h>
31 static int
32 do_test (void)
34 #if ! _POSIX_THREAD_PROCESS_SHARED
36 puts ("_POSIX_THREAD_PROCESS_SHARED not supported, test skipped");
37 return 0;
39 #else
41 size_t ps = sysconf (_SC_PAGESIZE);
42 char tmpfname[] = "/tmp/tst-mutex4.XXXXXX";
43 char data[ps];
44 void *mem;
45 int fd;
46 pthread_mutex_t *m;
47 pthread_mutexattr_t a;
48 pid_t pid;
49 char *p;
50 int err;
51 int s;
53 fd = mkstemp (tmpfname);
54 if (fd == -1)
56 printf ("cannot open temporary file: %m\n");
57 return 1;
60 /* Make sure it is always removed. */
61 unlink (tmpfname);
63 /* Create one page of data. */
64 memset (data, '\0', ps);
66 /* Write the data to the file. */
67 if (write (fd, data, ps) != (ssize_t) ps)
69 puts ("short write");
70 return 1;
73 mem = mmap (NULL, ps, PROT_READ | PROT_WRITE, MAP_SHARED, fd, 0);
74 if (mem == MAP_FAILED)
76 printf ("mmap failed: %m\n");
77 return 1;
80 m = (pthread_mutex_t *) (((uintptr_t) mem + __alignof (pthread_mutex_t))
81 & ~(__alignof (pthread_mutex_t) - 1));
82 p = (char *) (m + 1);
84 if (pthread_mutexattr_init (&a) != 0)
86 puts ("mutexattr_init failed");
87 return 1;
90 if (pthread_mutexattr_getpshared (&a, &s) != 0)
92 puts ("1st mutexattr_getpshared failed");
93 return 1;
96 if (s != PTHREAD_PROCESS_PRIVATE)
98 puts ("default pshared value wrong");
99 return 1;
102 if (pthread_mutexattr_setpshared (&a, PTHREAD_PROCESS_SHARED) != 0)
104 puts ("mutexattr_setpshared failed");
105 return 1;
108 if (pthread_mutexattr_getpshared (&a, &s) != 0)
110 puts ("2nd mutexattr_getpshared failed");
111 return 1;
114 if (s != PTHREAD_PROCESS_SHARED)
116 puts ("pshared value after setpshared call wrong");
117 return 1;
120 if (pthread_mutex_init (m, &a) != 0)
122 puts ("mutex_init failed");
123 return 1;
126 if (pthread_mutex_lock (m) != 0)
128 puts ("mutex_lock failed");
129 return 1;
132 if (pthread_mutexattr_destroy (&a) != 0)
134 puts ("mutexattr_destroy failed");
135 return 1;
138 err = pthread_mutex_trylock (m);
139 if (err == 0)
141 puts ("mutex_trylock succeeded");
142 return 1;
144 else if (err != EBUSY)
146 puts ("mutex_trylock didn't return EBUSY");
147 return 1;
150 *p = 0;
152 puts ("going to fork now");
153 pid = fork ();
154 if (pid == -1)
156 puts ("fork failed");
157 return 1;
159 else if (pid == 0)
161 /* Play some lock ping-pong. It's our turn to unlock first. */
162 if ((*p)++ != 0)
164 puts ("child: *p != 0");
165 return 1;
168 if (pthread_mutex_unlock (m) != 0)
170 puts ("child: 1st mutex_unlock failed");
171 return 1;
174 puts ("child done");
176 else
178 if (pthread_mutex_lock (m) != 0)
180 puts ("parent: 2nd mutex_lock failed");
181 return 1;
184 if (*p != 1)
186 puts ("*p != 1");
187 return 1;
190 puts ("parent done");
193 return 0;
194 #endif
197 #define TIMEOUT 4
198 #define TEST_FUNCTION do_test ()
199 #include "../test-skeleton.c"