1/* Test and measure strpbrk functions.
2 Copyright (C) 1999-2024 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
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, see
17 <https://www.gnu.org/licenses/>. */
18
19#ifndef WIDE
20# define CHAR char
21# define UCHAR unsigned char
22# define STRLEN strlen
23# define STRCHR strchr
24# define BIG_CHAR CHAR_MAX
25# define SMALL_CHAR 127
26#else
27# include <wchar.h>
28# define CHAR wchar_t
29# define UCHAR wchar_t
30# define STRLEN wcslen
31# define STRCHR wcschr
32# define BIG_CHAR WCHAR_MAX
33# define SMALL_CHAR 1273
34#endif /* WIDE */
35
36#ifndef STRPBRK_RESULT
37# define STRPBRK_RESULT(s, pos) ((s)[(pos)] ? (s) + (pos) : NULL)
38# define RES_TYPE CHAR *
39# define TEST_MAIN
40# ifndef WIDE
41# define TEST_NAME "strpbrk"
42# else
43# define TEST_NAME "wcspbrk"
44# endif /* WIDE */
45# include "test-string.h"
46
47# ifndef WIDE
48# define STRPBRK strpbrk
49# define SIMPLE_STRPBRK simple_strpbrk
50# else
51# include <wchar.h>
52# define STRPBRK wcspbrk
53# define SIMPLE_STRPBRK simple_wcspbrk
54# endif /* WIDE */
55
56typedef CHAR *(*proto_t) (const CHAR *, const CHAR *);
57
58IMPL (STRPBRK, 1)
59
60/* Naive implementation to verify results. */
61CHAR *
62SIMPLE_STRPBRK (const CHAR *s, const CHAR *rej)
63{
64 const CHAR *r;
65 CHAR c;
66
67 while ((c = *s++) != '\0')
68 for (r = rej; *r != '\0'; ++r)
69 if (*r == c)
70 return (CHAR *) s - 1;
71 return NULL;
72}
73
74#endif /* !STRPBRK_RESULT */
75
76static void
77do_one_test (impl_t *impl, const CHAR *s, const CHAR *rej, RES_TYPE exp_res)
78{
79 RES_TYPE res = CALL (impl, s, rej);
80 if (res != exp_res)
81 {
82 error (status: 0, errnum: 0, format: "Wrong result in function %s %p %p", impl->name,
83 (void *) res, (void *) exp_res);
84 ret = 1;
85 return;
86 }
87}
88
89static void
90do_test (size_t align, size_t pos, size_t len)
91{
92 size_t i;
93 int c;
94 RES_TYPE result;
95 CHAR *rej, *s;
96
97 align &= 7;
98 if ((align + pos + 10) * sizeof (CHAR) >= page_size || len > 240)
99 return;
100
101 rej = (CHAR *) (buf2) + (random () & 255);
102 s = (CHAR *) (buf1) + align;
103
104 for (i = 0; i < len; ++i)
105 {
106 rej[i] = random () & BIG_CHAR;
107 if (!rej[i])
108 rej[i] = random () & BIG_CHAR;
109 if (!rej[i])
110 rej[i] = 1 + (random () & SMALL_CHAR);
111 }
112 rej[len] = '\0';
113 for (c = 1; c <= BIG_CHAR; ++c)
114 if (STRCHR (rej, c) == NULL)
115 break;
116
117 for (i = 0; i < pos; ++i)
118 {
119 s[i] = random () & BIG_CHAR;
120 if (STRCHR (rej, s[i]))
121 {
122 s[i] = random () & BIG_CHAR;
123 if (STRCHR (rej, s[i]))
124 s[i] = c;
125 }
126 }
127 s[pos] = rej[random () % (len + 1)];
128 if (s[pos])
129 {
130 for (i = pos + 1; i < pos + 10; ++i)
131 s[i] = random () & BIG_CHAR;
132 s[i] = '\0';
133 }
134 result = STRPBRK_RESULT (s, pos);
135
136 FOR_EACH_IMPL (impl, 0)
137 do_one_test (impl, s, rej, exp_res: result);
138}
139
140static void
141do_random_tests (void)
142{
143 size_t i, j, n, align, pos, len, rlen;
144 RES_TYPE result;
145 int c;
146 UCHAR *p = (UCHAR *) (buf1 + page_size) - 512;
147 UCHAR *rej;
148
149 for (n = 0; n < ITERATIONS; n++)
150 {
151 align = random () & 15;
152 pos = random () & 511;
153 if (pos + align >= 511)
154 pos = 510 - align - (random () & 7);
155 len = random () & 511;
156 if (pos >= len && (random () & 1))
157 len = pos + 1 + (random () & 7);
158 if (len + align >= 512)
159 len = 511 - align - (random () & 7);
160 if (random () & 1)
161 rlen = random () & 63;
162 else
163 rlen = random () & 15;
164 rej = (UCHAR *) (buf2 + page_size) - rlen - 1 - (random () & 7);
165 for (i = 0; i < rlen; ++i)
166 {
167 rej[i] = random () & BIG_CHAR;
168 if (!rej[i])
169 rej[i] = random () & BIG_CHAR;
170 if (!rej[i])
171 rej[i] = 1 + (random () & SMALL_CHAR);
172 }
173 rej[i] = '\0';
174 for (c = 1; c <= BIG_CHAR; ++c)
175 if (STRCHR ((CHAR *) rej, c) == NULL)
176 break;
177 j = (pos > len ? pos : len) + align + 64;
178 if (j > 512)
179 j = 512;
180
181 for (i = 0; i < j; i++)
182 {
183 if (i == len + align)
184 p[i] = '\0';
185 else if (i == pos + align)
186 p[i] = rej[random () % (rlen + 1)];
187 else if (i < align || i > pos + align)
188 p[i] = random () & BIG_CHAR;
189 else
190 {
191 p[i] = random () & BIG_CHAR;
192 if (STRCHR ((CHAR *) rej, p[i]))
193 {
194 p[i] = random () & BIG_CHAR;
195 if (STRCHR ((CHAR *) rej, p[i]))
196 p[i] = c;
197 }
198 }
199 }
200
201 result = STRPBRK_RESULT ((CHAR *) (p + align), pos < len ? pos : len);
202
203 FOR_EACH_IMPL (impl, 1)
204 if (CALL (impl, (CHAR *) (p + align), (CHAR *) rej) != result)
205 {
206 error (status: 0, errnum: 0, format: "Iteration %zd - wrong result in function %s (%zd, %p, %zd, %zd, %zd) %p != %p",
207 n, impl->name, align, rej, rlen, pos, len,
208 (void *) CALL (impl, (CHAR *) (p + align), (CHAR *) rej),
209 (void *) result);
210 ret = 1;
211 }
212 }
213}
214
215int
216test_main (void)
217{
218 size_t i;
219
220 test_init ();
221
222 printf (format: "%32s", "");
223 FOR_EACH_IMPL (impl, 0)
224 printf (format: "\t%s", impl->name);
225 putchar (c: '\n');
226
227 for (i = 0; i < 32; ++i)
228 {
229 do_test (align: 0, pos: 512, len: i);
230 do_test (align: i, pos: 512, len: i);
231 }
232
233 for (i = 1; i < 8; ++i)
234 {
235 do_test (align: 0, pos: 16 << i, len: 4);
236 do_test (align: i, pos: 16 << i, len: 4);
237 }
238
239 for (i = 1; i < 8; ++i)
240 do_test (align: i, pos: 64, len: 10);
241
242 for (i = 0; i < 64; ++i)
243 do_test (align: 0, pos: i, len: 6);
244
245 do_random_tests ();
246 return ret;
247}
248
249#include <support/test-driver.c>
250

source code of glibc/string/test-strpbrk.c