string/test-strspn.c

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