xref: /netbsd-src/tests/lib/libc/stdlib/t_getenv_thread.c (revision e39ef1d61eee3ccba837ee281f1e098c864487aa)
1 /*	$NetBSD: t_getenv_thread.c,v 1.1 2011/07/15 13:54:31 jruoho Exp $ */
2 
3 /*-
4  * Copyright (c) 2010 The NetBSD Foundation, Inc.
5  * All rights reserved.
6  *
7  * This code is derived from software contributed to The NetBSD Foundation
8  * by Matthias Scheler.
9  *
10  * Redistribution and use in source and binary forms, with or without
11  * modification, are permitted provided that the following conditions
12  * are met:
13  * 1. Redistributions of source code must retain the above copyright
14  *    notice, this list of conditions and the following disclaimer.
15  * 2. Redistributions in binary form must reproduce the above copyright
16  *    notice, this list of conditions and the following disclaimer in the
17  *    documentation and/or other materials provided with the distribution.
18  *
19  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
20  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
21  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
22  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
23  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
24  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
25  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
27  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
28  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29  * POSSIBILITY OF SUCH DAMAGE.
30  */
31 #include <sys/cdefs.h>
32 __RCSID("$NetBSD: t_getenv_thread.c,v 1.1 2011/07/15 13:54:31 jruoho Exp $");
33 
34 #include <atf-c.h>
35 #include <errno.h>
36 #include <pthread.h>
37 #include <stdio.h>
38 #include <stdlib.h>
39 #include <string.h>
40 #include <time.h>
41 
42 #define	THREADED_NUM_THREADS	8
43 #define	THREADED_NUM_VARS	16
44 #define	THREADED_VAR_NAME	"THREADED%zu"
45 #define	THREADED_RUN_TIME	10
46 
47 static void	 *thread_getenv_r(void *);
48 static void	 *thread_putenv(void *);
49 static void	 *thread_setenv(void *);
50 static void	 *thread_unsetenv(void *);
51 
52 static void *
53 thread_getenv_r(void *arg)
54 {
55 	time_t endtime;
56 
57 	endtime = *(time_t *)arg;
58 	do {
59 		size_t i;
60 		char name[32], value[128];
61 
62 		i = lrand48() % THREADED_NUM_VARS;
63 		(void)snprintf(name, sizeof(name), THREADED_VAR_NAME, i);
64 
65 		if (getenv_r(name, value, sizeof(value)) == -1) {
66 			ATF_CHECK(errno == ENOENT);
67 		}
68 	} while (time(NULL) < endtime);
69 
70 	return NULL;
71 }
72 
73 
74 static void *
75 thread_putenv(void *arg)
76 {
77 	time_t endtime;
78 	size_t i;
79 	static char vars[THREADED_NUM_VARS][128];
80 
81 	for (i = 0; i < THREADED_NUM_VARS; i++) {
82 		(void)snprintf(vars[i], sizeof(vars[i]),
83 		    THREADED_VAR_NAME "=putenv %ld", i, lrand48());
84 	}
85 
86 	endtime = *(time_t *)arg;
87 	do {
88 		char name[128];
89 
90 		i = lrand48() % THREADED_NUM_VARS;
91 		(void)strlcpy(name, vars[i], sizeof(name));
92 		*strchr(name, '=') = '\0';
93 
94 		ATF_CHECK(unsetenv(name) != -1);
95 		ATF_CHECK(putenv(vars[i]) != -1);
96 	} while (time(NULL) < endtime);
97 
98 	return NULL;
99 }
100 
101 static void *
102 thread_setenv(void *arg)
103 {
104 	time_t endtime;
105 
106 	endtime = *(time_t *)arg;
107 	do {
108 		size_t i;
109 		char name[32], value[64];
110 
111 		i = lrand48() % THREADED_NUM_VARS;
112 		(void)snprintf(name, sizeof(name), THREADED_VAR_NAME, i);
113 		(void)snprintf(value, sizeof(value), "setenv %ld", lrand48());
114 
115 		ATF_CHECK(setenv(name, value, 1) != -1);
116 	} while (time(NULL) < endtime);
117 
118 	return NULL;
119 }
120 
121 static void *
122 thread_unsetenv(void *arg)
123 {
124 	time_t endtime;
125 
126 	endtime = *(time_t *)arg;
127 	do {
128 		size_t i;
129 		char name[32];
130 
131 		i = lrand48() % THREADED_NUM_VARS;
132 		(void)snprintf(name, sizeof(name), THREADED_VAR_NAME, i);
133 
134 		ATF_CHECK(unsetenv(name) != -1);
135 	} while (time(NULL) < endtime);
136 
137 	return NULL;
138 }
139 
140 ATF_TC(getenv_r_thread);
141 ATF_TC_HEAD(getenv_r_thread, tc)
142 {
143 	char timeout[32];
144 
145 	atf_tc_set_md_var(tc, "descr", "Test getenv_r(3) with threads");
146 
147 	(void)snprintf(timeout, sizeof(timeout), "%d", THREADED_RUN_TIME + 5);
148 
149 	atf_tc_set_md_var(tc, "timeout", timeout);
150 }
151 
152 ATF_TC_BODY(getenv_r_thread, tc)
153 {
154 	pthread_t threads[THREADED_NUM_THREADS];
155 	time_t endtime;
156 	size_t i, j;
157 
158 	endtime = time(NULL) + THREADED_RUN_TIME;
159 
160 	for (i = j = 0; j < 2; j++) {
161 
162 		ATF_CHECK(pthread_create(&threads[i++], NULL, thread_getenv_r,
163 		    &endtime) == 0);
164 	}
165 
166 	for (j = 0; j < i; j++)
167 		ATF_CHECK(pthread_join(threads[j], NULL) == 0);
168 }
169 
170 ATF_TC(putenv_thread);
171 ATF_TC_HEAD(putenv_thread, tc)
172 {
173 	char timeout[32];
174 
175 	atf_tc_set_md_var(tc, "descr", "Test concurrent access by putenv(3)");
176 
177 	(void)snprintf(timeout, sizeof(timeout), "%d", THREADED_RUN_TIME + 5);
178 
179 	atf_tc_set_md_var(tc, "timeout", timeout);
180 }
181 
182 ATF_TC_BODY(putenv_thread, tc)
183 {
184 	pthread_t threads[THREADED_NUM_THREADS];
185 	time_t endtime;
186 	size_t i, j;
187 
188 	endtime = time(NULL) + THREADED_RUN_TIME;
189 
190 	for (i = j = 0; j < 2; j++) {
191 
192 		ATF_CHECK(pthread_create(&threads[i++], NULL, thread_putenv,
193 		    &endtime) == 0);
194 	}
195 
196 	for (j = 0; j < i; j++)
197 		ATF_CHECK(pthread_join(threads[j], NULL) == 0);
198 }
199 
200 ATF_TC(setenv_thread);
201 ATF_TC_HEAD(setenv_thread, tc)
202 {
203 	char timeout[32];
204 
205 	atf_tc_set_md_var(tc, "descr", "Test concurrent access by setenv(3)");
206 
207 	(void)snprintf(timeout, sizeof(timeout), "%d", THREADED_RUN_TIME + 5);
208 
209 	atf_tc_set_md_var(tc, "timeout", timeout);
210 }
211 
212 ATF_TC_BODY(setenv_thread, tc)
213 {
214 	pthread_t threads[THREADED_NUM_THREADS];
215 	time_t endtime;
216 	size_t i, j;
217 
218 	endtime = time(NULL) + THREADED_RUN_TIME;
219 
220 	for (i = j = 0; j < 2; j++) {
221 
222 		ATF_CHECK(pthread_create(&threads[i++], NULL, thread_setenv,
223 		    &endtime) == 0);
224 	}
225 
226 	for (j = 0; j < i; j++)
227 		ATF_CHECK(pthread_join(threads[j], NULL) == 0);
228 }
229 
230 ATF_TC(unsetenv_thread);
231 ATF_TC_HEAD(unsetenv_thread, tc)
232 {
233 	char timeout[32];
234 
235 	atf_tc_set_md_var(tc, "descr", "Test unsetenv(3) with threads");
236 
237 	(void)snprintf(timeout, sizeof(timeout), "%d", THREADED_RUN_TIME + 5);
238 
239 	atf_tc_set_md_var(tc, "timeout", timeout);
240 }
241 
242 ATF_TC_BODY(unsetenv_thread, tc)
243 {
244 	pthread_t threads[THREADED_NUM_THREADS];
245 	time_t endtime;
246 	size_t i, j;
247 
248 	endtime = time(NULL) + THREADED_RUN_TIME;
249 
250 	for (i = j = 0; j < 2; j++) {
251 
252 		ATF_CHECK(pthread_create(&threads[i++], NULL, thread_unsetenv,
253 		    &endtime) == 0);
254 	}
255 
256 	for (j = 0; j < i; j++)
257 		ATF_CHECK(pthread_join(threads[j], NULL) == 0);
258 }
259 
260 ATF_TP_ADD_TCS(tp)
261 {
262 
263 	ATF_TP_ADD_TC(tp, getenv_r_thread);
264 	ATF_TP_ADD_TC(tp, putenv_thread);
265 	ATF_TP_ADD_TC(tp, setenv_thread);
266 	ATF_TP_ADD_TC(tp, unsetenv_thread);
267 
268 	return atf_no_error();
269 }
270