t_call_once.c revision 1.1.2.2 1 1.1.2.2 christos /* $NetBSD: t_call_once.c,v 1.1.2.2 2019/06/10 22:10:07 christos Exp $ */
2 1.1.2.2 christos
3 1.1.2.2 christos /*-
4 1.1.2.2 christos * Copyright (c) 2019 The NetBSD Foundation, Inc.
5 1.1.2.2 christos * All rights reserved.
6 1.1.2.2 christos *
7 1.1.2.2 christos * This code is derived from software contributed to The NetBSD Foundation
8 1.1.2.2 christos * by Kamil Rytarowski.
9 1.1.2.2 christos *
10 1.1.2.2 christos * Redistribution and use in source and binary forms, with or without
11 1.1.2.2 christos * modification, are permitted provided that the following conditions
12 1.1.2.2 christos * are met:
13 1.1.2.2 christos * 1. Redistributions of source code must retain the above copyright
14 1.1.2.2 christos * notice, this list of conditions and the following disclaimer.
15 1.1.2.2 christos * 2. Redistributions in binary form must reproduce the above copyright
16 1.1.2.2 christos * notice, this list of conditions and the following disclaimer in the
17 1.1.2.2 christos * documentation and/or other materials provided with the distribution.
18 1.1.2.2 christos *
19 1.1.2.2 christos * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
20 1.1.2.2 christos * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
21 1.1.2.2 christos * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
22 1.1.2.2 christos * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
23 1.1.2.2 christos * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
24 1.1.2.2 christos * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
25 1.1.2.2 christos * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26 1.1.2.2 christos * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
27 1.1.2.2 christos * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
28 1.1.2.2 christos * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29 1.1.2.2 christos * POSSIBILITY OF SUCH DAMAGE.
30 1.1.2.2 christos */
31 1.1.2.2 christos
32 1.1.2.2 christos #include <sys/cdefs.h>
33 1.1.2.2 christos __COPYRIGHT("@(#) Copyright (c) 2019\
34 1.1.2.2 christos The NetBSD Foundation, inc. All rights reserved.");
35 1.1.2.2 christos __RCSID("$NetBSD: t_call_once.c,v 1.1.2.2 2019/06/10 22:10:07 christos Exp $");
36 1.1.2.2 christos
37 1.1.2.2 christos #include <threads.h>
38 1.1.2.2 christos
39 1.1.2.2 christos #include <atf-c.h>
40 1.1.2.2 christos
41 1.1.2.2 christos ATF_TC(call_once);
42 1.1.2.2 christos ATF_TC_HEAD(call_once, tc)
43 1.1.2.2 christos {
44 1.1.2.2 christos atf_tc_set_md_var(tc, "descr", "Test C11 call_once(3)");
45 1.1.2.2 christos }
46 1.1.2.2 christos
47 1.1.2.2 christos #define CO_THREADS 8
48 1.1.2.2 christos
49 1.1.2.2 christos static int co_val;
50 1.1.2.2 christos static once_flag oflag = ONCE_FLAG_INIT;
51 1.1.2.2 christos
52 1.1.2.2 christos static void
53 1.1.2.2 christos called_once(void)
54 1.1.2.2 christos {
55 1.1.2.2 christos
56 1.1.2.2 christos ++co_val;
57 1.1.2.2 christos }
58 1.1.2.2 christos
59 1.1.2.2 christos static int
60 1.1.2.2 christos co_func(void *arg __unused)
61 1.1.2.2 christos {
62 1.1.2.2 christos
63 1.1.2.2 christos call_once(&oflag, called_once);
64 1.1.2.2 christos
65 1.1.2.2 christos return 0;
66 1.1.2.2 christos }
67 1.1.2.2 christos
68 1.1.2.2 christos ATF_TC_BODY(call_once, tc)
69 1.1.2.2 christos {
70 1.1.2.2 christos thrd_t t[CO_THREADS];
71 1.1.2.2 christos size_t i;
72 1.1.2.2 christos
73 1.1.2.2 christos for (i = 0; i < CO_THREADS; i++) {
74 1.1.2.2 christos ATF_REQUIRE_EQ(thrd_create(&t[i], co_func, NULL), thrd_success);
75 1.1.2.2 christos }
76 1.1.2.2 christos
77 1.1.2.2 christos for (i = 0; i < CO_THREADS; i++) {
78 1.1.2.2 christos ATF_REQUIRE_EQ(thrd_join(t[i], NULL), thrd_success);
79 1.1.2.2 christos }
80 1.1.2.2 christos
81 1.1.2.2 christos ATF_REQUIRE_EQ(co_val, 1);
82 1.1.2.2 christos }
83 1.1.2.2 christos
84 1.1.2.2 christos ATF_TP_ADD_TCS(tp)
85 1.1.2.2 christos {
86 1.1.2.2 christos ATF_TP_ADD_TC(tp, call_once);
87 1.1.2.2 christos
88 1.1.2.2 christos return atf_no_error();
89 1.1.2.2 christos }
90