Specify linker scripts using -L: they now apply to the whole build
[glibc/nacl-glibc.git] / string / test-strlen.c
blobe01befbf4625f472055dddd507933ba6c96a2600
1 /* Test and measure strlen functions.
2 Copyright (C) 1999, 2002, 2003, 2005 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4 Written by Jakub Jelinek <jakub@redhat.com>, 1999.
6 The GNU C Library is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Lesser General Public
8 License as published by the Free Software Foundation; either
9 version 2.1 of the License, or (at your option) any later version.
11 The GNU C Library is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 Lesser General Public License for more details.
16 You should have received a copy of the GNU Lesser General Public
17 License along with the GNU C Library; if not, write to the Free
18 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
19 02111-1307 USA. */
21 #define TEST_MAIN
22 #include "test-string.h"
24 typedef size_t (*proto_t) (const char *);
25 size_t simple_strlen (const char *);
26 size_t builtin_strlen (const char *);
28 IMPL (simple_strlen, 0)
29 IMPL (builtin_strlen, 0)
30 IMPL (strlen, 1)
32 size_t
33 simple_strlen (const char *s)
35 const char *p;
37 for (p = s; *p; ++p);
38 return p - s;
41 size_t
42 builtin_strlen (const char *p)
44 return __builtin_strlen (p);
47 static void
48 do_one_test (impl_t *impl, const char *s, size_t exp_len)
50 size_t len = CALL (impl, s);
51 if (len != exp_len)
53 error (0, 0, "Wrong result in function %s %zd %zd", impl->name,
54 len, exp_len);
55 ret = 1;
56 return;
59 if (HP_TIMING_AVAIL)
61 hp_timing_t start __attribute ((unused));
62 hp_timing_t stop __attribute ((unused));
63 hp_timing_t best_time = ~ (hp_timing_t) 0;
64 size_t i;
66 for (i = 0; i < 32; ++i)
68 HP_TIMING_NOW (start);
69 CALL (impl, s);
70 HP_TIMING_NOW (stop);
71 HP_TIMING_BEST (best_time, start, stop);
74 printf ("\t%zd", (size_t) best_time);
78 static void
79 do_test (size_t align, size_t len, int max_char)
81 size_t i;
83 align &= 7;
84 if (align + len >= page_size)
85 return;
87 for (i = 0; i < len; ++i)
88 buf1[align + i] = 1 + 7 * i % max_char;
89 buf1[align + len] = 0;
91 if (HP_TIMING_AVAIL)
92 printf ("Length %4zd, alignment %2zd:", len, align);
94 FOR_EACH_IMPL (impl, 0)
95 do_one_test (impl, (char *) (buf1 + align), len);
97 if (HP_TIMING_AVAIL)
98 putchar ('\n');
101 static void
102 do_random_tests (void)
104 size_t i, j, n, align, len;
105 unsigned char *p = buf1 + page_size - 512;
107 for (n = 0; n < ITERATIONS; n++)
109 align = random () & 15;
110 len = random () & 511;
111 if (len + align > 510)
112 len = 511 - align - (random () & 7);
113 j = len + align + 64;
114 if (j > 512)
115 j = 512;
117 for (i = 0; i < j; i++)
119 if (i == len + align)
120 p[i] = 0;
121 else
123 p[i] = random () & 255;
124 if (i >= align && i < len + align && !p[i])
125 p[i] = (random () & 127) + 1;
129 FOR_EACH_IMPL (impl, 1)
130 if (CALL (impl, (char *) (p + align)) != len)
132 error (0, 0, "Iteration %zd - wrong result in function %s (%zd) %zd != %zd, p %p",
133 n, impl->name, align, CALL (impl, (char *) (p + align)),
134 len, p);
135 ret = 1;
141 test_main (void)
143 size_t i;
145 test_init ();
147 printf ("%20s", "");
148 FOR_EACH_IMPL (impl, 0)
149 printf ("\t%s", impl->name);
150 putchar ('\n');
152 for (i = 1; i < 8; ++i)
153 do_test (0, i, 127);
155 for (i = 1; i < 8; ++i)
156 do_test (i, i, 127);
158 for (i = 2; i <= 10; ++i)
160 do_test (0, 1 << i, 127);
161 do_test (1, 1 << i, 127);
164 for (i = 1; i < 8; ++i)
165 do_test (0, i, 255);
167 for (i = 1; i < 8; ++i)
168 do_test (i, i, 255);
170 for (i = 2; i <= 10; ++i)
172 do_test (0, 1 << i, 255);
173 do_test (1, 1 << i, 255);
176 do_random_tests ();
177 return ret;
180 #include "../test-skeleton.c"