string/test-strpbrk.c

   1 /* Test and measure strpbrk functions.
   2    Copyright (C) 1999-2023 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
  56 typedef CHAR *(*proto_t) (const CHAR *, const CHAR *);
  57
  58 IMPL (STRPBRK, 1)
  59
  60 /* Naive implementation to verify results.  */
  61 CHAR *
  62 SIMPLE_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
  76 static void
  77 do_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 (0, 0, "Wrong result in function %s %p %p", impl->name,
  83              (void *) res, (void *) exp_res);
  84       ret = 1;
  85       return;
  86     }
  87 }
  88
  89 static void
  90 do_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, result);
 138 }
 139
 140 static void
 141 do_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 (0, 0, "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
 215 int
 216 test_main (void)
 217 {
 218   size_t i;
 219
 220   test_init ();
 221
 222   printf ("%32s", "");
 223   FOR_EACH_IMPL (impl, 0)
 224     printf ("\t%s", impl->name);
 225   putchar ('\n');
 226
 227   for (i = 0; i < 32; ++i)
 228     {
 229       do_test (0, 512, i);
 230       do_test (i, 512, i);
 231     }
 232
 233   for (i = 1; i < 8; ++i)
 234     {
 235       do_test (0, 16 << i, 4);
 236       do_test (i, 16 << i, 4);
 237     }
 238
 239   for (i = 1; i < 8; ++i)
 240     do_test (i, 64, 10);
 241
 242   for (i = 0; i < 64; ++i)
 243     do_test (0, i, 6);
 244
 245   do_random_tests ();
 246   return ret;
 247 }
 248
 249 #include <support/test-driver.c>