1/* Test and measure STRLEN functions.
2 Copyright (C) 1999-2022 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#define TEST_MAIN
20#ifndef WIDE
21# define TEST_NAME "strlen"
22#else
23# define TEST_NAME "wcslen"
24#endif
25#include "test-string.h"
26
27#ifndef WIDE
28# define STRLEN strlen
29# define CHAR char
30# define MAX_CHAR CHAR_MAX
31#else
32# include <wchar.h>
33# define STRLEN wcslen
34# define CHAR wchar_t
35# define MAX_CHAR WCHAR_MAX
36#endif
37
38typedef size_t (*proto_t) (const CHAR *);
39
40size_t
41simple_STRLEN (const CHAR *s)
42{
43 const CHAR *p;
44
45 for (p = s; *p; ++p);
46 return p - s;
47}
48
49#ifndef WIDE
50size_t
51builtin_strlen (const CHAR *p)
52{
53 return __builtin_strlen (p);
54}
55IMPL (builtin_strlen, 0)
56#endif
57
58IMPL (simple_STRLEN, 0)
59IMPL (STRLEN, 1)
60
61
62static void
63do_one_test (impl_t *impl, const CHAR *s, size_t exp_len)
64{
65 size_t len = CALL (impl, s);
66 if (len != exp_len)
67 {
68 error (status: 0, errnum: 0, format: "Wrong result in function %s %zd %zd", impl->name,
69 len, exp_len);
70 ret = 1;
71 return;
72 }
73}
74
75static void
76do_test (size_t align, size_t len)
77{
78 size_t i;
79
80 align &= (getpagesize () / sizeof (CHAR)) - 1;
81 if (align + sizeof (CHAR) * len >= page_size)
82 return;
83
84 CHAR *buf = (CHAR *) (buf1);
85
86 for (i = 0; i < len; ++i)
87 buf[align + i] = 1 + 11111 * i % MAX_CHAR;
88 buf[align + len] = 0;
89
90 FOR_EACH_IMPL (impl, 0)
91 do_one_test (impl, s: (CHAR *) (buf + align), exp_len: len);
92}
93
94static void
95do_random_tests (void)
96{
97 size_t i, j, n, align, len;
98 CHAR *p = (CHAR *) (buf1 + page_size - 512 * sizeof (CHAR));
99
100 for (n = 0; n < ITERATIONS; n++)
101 {
102 align = random () & 15;
103 len = random () & 511;
104 if (len + align > 510)
105 len = 511 - align - (random () & 7);
106 j = len + align + 64;
107 if (j > 512)
108 j = 512;
109
110 for (i = 0; i < j; i++)
111 {
112 if (i == len + align)
113 p[i] = 0;
114 else
115 {
116 p[i] = random () & 255;
117 if (i >= align && i < len + align && !p[i])
118 p[i] = (random () & 127) + 1;
119 }
120 }
121
122 FOR_EACH_IMPL (impl, 1)
123 if (CALL (impl, (CHAR *) (p + align)) != len)
124 {
125 error (status: 0, errnum: 0, format: "Iteration %zd - wrong result in function %s (%zd) %zd != %zd, p %p",
126 n, impl->name, align, CALL (impl, (CHAR *) (p + align)),
127 len, p);
128 ret = 1;
129 }
130 }
131}
132
133int
134test_main (void)
135{
136 size_t i;
137
138 test_init ();
139
140 printf (format: "%20s", "");
141 FOR_EACH_IMPL (impl, 0)
142 printf (format: "\t%s", impl->name);
143 putchar (c: '\n');
144
145 /* Checking with only 4 * N alignments for wcslen, other alignments are wrong for wchar_t type arrays*/
146
147 for (i = 1; i < 8; ++i)
148 {
149 do_test (align: sizeof (CHAR) * i, len: i);
150 do_test (align: 0, len: i);
151 }
152
153 for (i = 2; i <= 12; ++i)
154 {
155 do_test (align: 0, len: 1 << i);
156 do_test (align: sizeof (CHAR) * 7, len: 1 << i);
157 do_test (align: sizeof (CHAR) * i, len: 1 << i);
158 do_test (align: sizeof (CHAR) * i, len: (size_t)((1 << i) / 1.5));
159 }
160
161 /* Test strings near page boundary */
162
163 size_t maxlength = 64 / sizeof (CHAR) - 1;
164 size_t pagesize = getpagesize () / sizeof (CHAR);
165
166 for (i = maxlength ; i > 1; --i)
167 {
168 /* String stays on the same page. */
169 do_test (align: pagesize - i, len: i - 1);
170 /* String crosses page boundary. */
171 do_test (align: pagesize - i, len: maxlength);
172 }
173
174 do_random_tests ();
175 return ret;
176}
177
178#include <support/test-driver.c>
179

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