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

source code of glibc/sysdeps/pthread/tst-key3.c