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 <limits.h>
19#include <pthread.h>
20#include <stdio.h>
21#include <stdlib.h>
22#include <unistd.h>
23
24#include <support/xunistd.h>
25
26static int do_test (void);
27
28#define TEST_FUNCTION do_test ()
29#include "../test-skeleton.c"
30
31int
32do_test (void)
33{
34 int max;
35#ifdef PTHREAD_KEYS_MAX
36 max = PTHREAD_KEYS_MAX;
37#else
38 max = _POSIX_THREAD_KEYS_MAX;
39#endif
40 pthread_key_t *keys = alloca (max * sizeof (pthread_key_t));
41
42 int i;
43 for (i = 0; i < max; ++i)
44 if (pthread_key_create (key: &keys[i], NULL) != 0)
45 {
46 write_message (message: "key_create failed\n");
47 _exit (1);
48 }
49 else
50 {
51 printf (format: "created key %d\n", i);
52
53 if (pthread_setspecific (key: keys[i], pointer: (const void *) (i + 100l)) != 0)
54 {
55 xwrite (2, "setspecific failed\n", 19);
56 _exit (1);
57 }
58 }
59
60 for (i = 0; i < max; ++i)
61 {
62 if (pthread_getspecific (key: keys[i]) != (void *) (i + 100l))
63 {
64 xwrite (2, "getspecific failed\n", 19);
65 _exit (1);
66 }
67
68 if (pthread_key_delete (key: keys[i]) != 0)
69 {
70 xwrite (2, "key_delete failed\n", 18);
71 _exit (1);
72 }
73 }
74
75 /* Now it must be once again possible to allocate keys. */
76 if (pthread_key_create (key: &keys[0], NULL) != 0)
77 {
78 xwrite (2, "2nd key_create failed\n", 22);
79 _exit (1);
80 }
81
82 if (pthread_key_delete (key: keys[0]) != 0)
83 {
84 xwrite (2, "2nd key_delete failed\n", 22);
85 _exit (1);
86 }
87
88 return 0;
89}
90

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