Initial revision
[kopensolaris-gnu/glibc.git] / nptl / tst-key3.c
1 /* Copyright (C) 2002 Free Software Foundation, Inc.
2    This file is part of the GNU C Library.
3    Contributed by Ulrich Drepper <drepper@redhat.com>, 2002.
4
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.
9
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.
14
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.  */
19
20 #include <pthread.h>
21 #include <stdio.h>
22 #include <unistd.h>
23
24 #define N 2
25
26
27 static int cnt0;
28 static void
29 f0 (void *p)
30 {
31   ++cnt0;
32 }
33
34
35 static int cnt1;
36 static void
37 f1 (void *p)
38 {
39   ++cnt1;
40 }
41
42
43 static void (*fcts[N]) (void *) =
44 {
45   f0,
46   f1
47 };
48
49
50 static pthread_barrier_t b;
51
52
53 static void *
54 tf (void *arg)
55 {
56   pthread_key_t *key = (pthread_key_t *) arg;
57
58   if (pthread_setspecific (*key, (void *) -1l) != 0)
59     {
60       write (2, "setspecific failed\n", 19);
61       _exit (1);
62     }
63
64   pthread_barrier_wait (&b);
65
66   const struct timespec t = { .tv_sec = 1000, .tv_nsec = 0 };
67   while (1)
68     nanosleep (&t, NULL);
69
70   /* NOTREACHED */
71   return NULL;
72 }
73
74
75 int
76 do_test (void)
77 {
78   pthread_key_t keys[N];
79
80   int i;
81   for (i = 0; i < N; ++i)
82     if (pthread_key_create (&keys[i], fcts[i]) != 0)
83       {
84         write (2, "key_create failed\n", 18);
85         _exit (1);
86       }
87
88   if (pthread_barrier_init (&b, NULL, 2) != 0)
89     {
90       write (2, "barrier_init failed\n", 20);
91       _exit (1);
92     }
93
94   pthread_t th;
95   if (pthread_create (&th, NULL, tf, &keys[1]) != 0)
96     {
97       write (2, "create failed\n", 14);
98       _exit (1);
99     }
100
101   pthread_barrier_wait (&b);
102
103   if (pthread_cancel (th) != 0)
104     {
105       write (2, "cancel failed\n", 14);
106       _exit (1);
107     }
108
109   void *status;
110   if (pthread_join (th, &status) != 0)
111     {
112       write (2, "join failed\n", 12);
113       _exit (1);
114     }
115
116   if (status != PTHREAD_CANCELED)
117     {
118       write (2, "thread not canceled\n", 20);
119       _exit (1);
120     }
121
122   /* Note that the TSD destructors not necessarily have to have
123      finished by the time pthread_join returns.  At least according to
124      POSIX.  We implement the stronger requirement that they indeed
125      have run and therefore these tests succeed.  */
126   if (cnt0 != 0)
127     {
128       write (2, "cnt0 != 0\n", 10);
129       _exit (1);
130     }
131
132   if (cnt1 != 1)
133     {
134       write (2, "cnt1 != 1\n", 10);
135       _exit (1);
136     }
137
138   for (i = 0; i < N; ++i)
139     if (pthread_key_delete (keys[i]) != 0)
140       {
141         write (2, "key_delete failed\n", 18);
142         _exit (1);
143       }
144
145   if (pthread_barrier_destroy (&b) != 0)
146     {
147       write (2, "barrier_destroy failed\n", 23);
148       _exit (1);
149     }
150
151   return 0;
152 }
153
154
155 #define TEST_FUNCTION do_test ()
156 #include "../test-skeleton.c"