1 /* Test and measure strcmp functions.
2 Copyright (C) 1999, 2002 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
22 #include "test-string.h"
24 typedef int (*proto_t
) (const char *, const char *);
25 int simple_strcmp (const char *, const char *);
26 int stupid_strcmp (const char *, const char *);
28 IMPL (stupid_strcmp
, 0)
29 IMPL (simple_strcmp
, 0)
33 simple_strcmp (const char *s1
, const char *s2
)
37 while ((ret
= *(unsigned char *) s1
- *(unsigned char *) s2
++) == 0
43 stupid_strcmp (const char *s1
, const char *s2
)
45 size_t ns1
= strlen (s1
) + 1, ns2
= strlen (s2
) + 1;
46 size_t n
= ns1
< ns2
? ns1
: ns2
;
50 if ((ret
= *(unsigned char *) s1
++ - *(unsigned char *) s2
++) != 0)
56 do_one_test (impl_t
*impl
, const char *s1
, const char *s2
, int exp_result
)
58 int result
= CALL (impl
, s1
, s2
);
59 if ((exp_result
== 0 && result
!= 0)
60 || (exp_result
< 0 && result
>= 0)
61 || (exp_result
> 0 && result
<= 0))
63 error (0, 0, "Wrong result in function %s %d %d", impl
->name
,
71 hp_timing_t start
, stop
, best_time
= ~ (hp_timing_t
) 0;
74 for (i
= 0; i
< 32; ++i
)
76 HP_TIMING_NOW (start
);
79 HP_TIMING_BEST (best_time
, start
, stop
);
82 printf ("\t%zd", (size_t) best_time
);
87 do_test (size_t align1
, size_t align2
, size_t len
, int max_char
,
97 if (align1
+ len
+ 1 >= page_size
)
101 if (align2
+ len
+ 1 >= page_size
)
107 for (i
= 0; i
< len
; i
++)
108 s1
[i
] = s2
[i
] = 1 + 23 * i
% max_char
;
110 s1
[len
] = s2
[len
] = 0;
112 s2
[len
+ 1] = 24 + exp_result
;
113 s2
[len
- 1] -= exp_result
;
116 printf ("Length %4zd, alignment %2zd/%2zd:", len
, align1
, align2
);
118 FOR_EACH_IMPL (impl
, 0)
119 do_one_test (impl
, s1
, s2
, exp_result
);
126 do_random_tests (void)
128 size_t i
, j
, n
, align1
, align2
, pos
, len1
, len2
;
130 unsigned char *p1
= buf1
+ page_size
- 512;
131 unsigned char *p2
= buf2
+ page_size
- 512;
133 for (n
= 0; n
< ITERATIONS
; n
++)
135 align1
= random () & 31;
137 align2
= random () & 31;
139 align2
= align1
+ (random () & 24);
140 pos
= random () & 511;
141 j
= align1
> align2
? align1
: align2
;
143 pos
= 510 - j
- (random () & 7);
144 len1
= random () & 511;
145 if (pos
>= len1
&& (random () & 1))
146 len1
= pos
+ (random () & 7);
148 len1
= 511 - j
- (random () & 7);
152 len2
= len1
+ (len1
!= 511 - j
? random () % (511 - j
- len1
) : 0);
153 j
= (pos
> len2
? pos
: len2
) + align1
+ 64;
156 for (i
= 0; i
< j
; ++i
)
158 p1
[i
] = random () & 255;
159 if (i
< len1
+ align1
&& !p1
[i
])
161 p1
[i
] = random () & 255;
163 p1
[i
] = 1 + (random () & 127);
166 for (i
= 0; i
< j
; ++i
)
168 p2
[i
] = random () & 255;
169 if (i
< len2
+ align2
&& !p2
[i
])
171 p2
[i
] = random () & 255;
173 p2
[i
] = 1 + (random () & 127);
178 memcpy (p2
+ align2
, p1
+ align1
, pos
);
181 if (p2
[align2
+ pos
] == p1
[align1
+ pos
])
183 p2
[align2
+ pos
] = random () & 255;
184 if (p2
[align2
+ pos
] == p1
[align1
+ pos
])
185 p2
[align2
+ pos
] = p1
[align1
+ pos
] + 3 + (random () & 127);
188 if (p1
[align1
+ pos
] < p2
[align2
+ pos
])
193 p1
[len1
+ align1
] = 0;
194 p2
[len2
+ align2
] = 0;
196 FOR_EACH_IMPL (impl
, 1)
198 r
= CALL (impl
, p1
+ align1
, p2
+ align2
);
199 if ((r
== 0 && result
)
200 || (r
< 0 && result
>= 0)
201 || (r
> 0 && result
<= 0))
203 error (0, 0, "Iteration %zd - wrong result in function %s (%zd, %zd, %zd, %zd, %zd) %d != %d, p1 %p p2 %p",
204 n
, impl
->name
, align1
, align2
, len1
, len2
, pos
, r
, result
, p1
, p2
);
219 FOR_EACH_IMPL (impl
, 0)
220 printf ("\t%s", impl
->name
);
223 for (i
= 1; i
< 16; ++i
)
225 do_test (i
, i
, i
, 127, 0);
226 do_test (i
, i
, i
, 127, 1);
227 do_test (i
, i
, i
, 127, -1);
230 for (i
= 1; i
< 10; ++i
)
232 do_test (0, 0, 2 << i
, 127, 0);
233 do_test (0, 0, 2 << i
, 254, 0);
234 do_test (0, 0, 2 << i
, 127, 1);
235 do_test (0, 0, 2 << i
, 254, 1);
236 do_test (0, 0, 2 << i
, 127, -1);
237 do_test (0, 0, 2 << i
, 254, -1);
240 for (i
= 1; i
< 8; ++i
)
242 do_test (i
, 2 * i
, 8 << i
, 127, 0);
243 do_test (2 * i
, i
, 8 << i
, 254, 0);
244 do_test (i
, 2 * i
, 8 << i
, 127, 1);
245 do_test (2 * i
, i
, 8 << i
, 254, 1);
246 do_test (i
, 2 * i
, 8 << i
, 127, -1);
247 do_test (2 * i
, i
, 8 << i
, 254, -1);
254 #include "../test-skeleton.c"