1 /* Regular expression tests.
2 Copyright (C) 2003, 2005 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4 Contributed by Jakub Jelinek <jakub@redhat.com>, 2003.
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
21 #include <sys/types.h>
31 replace_special_chars (char *str)
33 for (; (str = strpbrk (str, "NTSZ")) != NULL; ++str)
36 case 'N': *str = '\n'; break;
37 case 'T': *str = '\t'; break;
38 case 'S': *str = ' '; break;
39 case 'Z': *str = '\0'; break;
44 glibc_re_syntax (char *str)
46 char *p, *end = strchr (str, '\0') + 1;
48 /* Replace [[:<:]] with \< and [[:>:]] with \>. */
49 for (p = str; (p = strstr (p, "[[:")) != NULL; )
50 if ((p[3] == '<' || p[3] == '>') && strncmp (p + 4, ":]]", 3) == 0)
54 memmove (p + 2, p + 7, end - p - 7);
63 mb_replace (char *dst, const char c)
67 /* Replace a with \'a and A with \'A. */
76 /* Replace b with \v{c} and B with \v{C}. */
85 /* Replace c with \v{d} and C with \v{D}. */
94 /* Replace d with \'e and D with \'E. */
108 mb_frob_string (const char *str, const char *letters)
116 ret = malloc (2 * strlen (str) + 1);
120 for (src = str, dst = ret; *src; ++src)
121 if (strchr (letters, *src))
122 dst = mb_replace (dst, *src);
129 /* Like mb_frob_string, but don't replace anything between
130 [: and :], [. and .] or [= and =] or characters escaped
134 mb_frob_pattern (const char *str, const char *letters)
138 int in_class = 0, escaped = 0;
143 ret = malloc (2 * strlen (str) + 1);
147 for (src = str, dst = ret; *src; ++src)
159 else if (!in_class && strchr (letters, *src))
160 dst = mb_replace (dst, *src);
163 if (!in_class && *src == '[' && strchr (":.=", src[1]))
165 else if (in_class && *src == ']' && strchr (":.=", src[-1]))
174 check_match (regmatch_t *rm, int idx, const char *string,
175 const char *match, const char *fail)
177 if (match[0] == '-' && match[1] == '\0')
179 if (rm[idx].rm_so == -1 && rm[idx].rm_eo == -1)
181 printf ("%s rm[%d] unexpectedly matched\n", fail, idx);
185 if (rm[idx].rm_so == -1 || rm[idx].rm_eo == -1)
187 printf ("%s rm[%d] unexpectedly did not match\n", fail, idx);
193 if (rm[idx].rm_so != rm[idx].rm_eo)
195 printf ("%s rm[%d] not empty\n", fail, idx);
199 if (strncmp (string + rm[idx].rm_so, match + 1, strlen (match + 1) ?: 1))
201 printf ("%s rm[%d] not matching %s\n", fail, idx, match);
207 if (rm[idx].rm_eo - rm[idx].rm_so != strlen (match)
208 || strncmp (string + rm[idx].rm_so, match,
209 rm[idx].rm_eo - rm[idx].rm_so))
211 printf ("%s rm[%d] not matching %s\n", fail, idx, match);
219 test (const char *pattern, int cflags, const char *string, int eflags,
220 char *expect, char *matches, const char *fail)
226 n = regcomp (&re, pattern, cflags);
232 static struct { reg_errcode_t code; const char *name; } codes []
233 #define C(x) { REG_##x, #x }
234 = { C(NOERROR), C(NOMATCH), C(BADPAT), C(ECOLLATE),
235 C(ECTYPE), C(EESCAPE), C(ESUBREG), C(EBRACK),
236 C(EPAREN), C(EBRACE), C(BADBR), C(ERANGE),
237 C(ESPACE), C(BADRPT) };
239 for (int i = 0; i < sizeof (codes) / sizeof (codes[0]); ++i)
240 if (n == codes[i].code)
242 if (strcmp (string, codes[i].name))
244 printf ("%s regcomp returned REG_%s (expected REG_%s)\n",
245 fail, codes[i].name, string);
251 printf ("%s regcomp return value REG_%d\n", fail, n);
255 regerror (n, &re, buf, sizeof (buf));
256 printf ("%s regcomp failed: %s\n", fail, buf);
264 /* The test case file assumes something only guaranteed by the
265 rxspencer regex implementation. Namely that for empty
266 expressions regcomp() return REG_EMPTY. This is not the case
267 for us and so we ignore this error. */
268 if (strcmp (string, "EMPTY") == 0)
271 printf ("%s regcomp unexpectedly succeeded\n", fail);
275 if (regexec (&re, string, 10, rm, eflags))
280 printf ("%s regexec failed\n", fail);
288 printf ("%s regexec unexpectedly succeeded\n", fail);
292 if (cflags & REG_NOSUB)
295 ret = check_match (rm, 0, string, expect, fail);
299 for (n = 1; ret == 0 && n < 10; ++n)
305 p = strchr (matches, ',');
309 ret = check_match (rm, n, string, matches ?: "-", fail);
323 mb_test (const char *pattern, int cflags, const char *string, int eflags,
324 char *expect, const char *matches, const char *letters,
327 char *pattern_mb = mb_frob_pattern (pattern, letters);
328 const char *string_mb
329 = eflags == -1 ? string : mb_frob_string (string, letters);
330 char *expect_mb = mb_frob_string (expect, letters);
331 char *matches_mb = mb_frob_string (matches, letters);
334 if (!pattern_mb || !string_mb
335 || (expect && !expect_mb) || (matches && !matches_mb))
337 printf ("%s %m", fail);
341 ret = test (pattern_mb, cflags, string_mb, eflags, expect_mb,
346 if (string_mb != string)
347 free ((char *) string_mb);
353 mb_tests (const char *pattern, int cflags, const char *string, int eflags,
354 char *expect, const char *matches)
358 char letters[9], fail[20];
360 /* The tests aren't supposed to work with xdigit, since a-dA-D are
361 hex digits while \'a \'A \v{c}\v{C}\v{d}\v{D}\'e \'E are not. */
362 if (strstr (pattern, "[:xdigit:]"))
365 /* XXX: regex ATM handles only single byte equivalence classes. */
366 if (strstr (pattern, "[[=b=]]"))
369 for (i = 1; i < 16; ++i)
374 if (!strchr (pattern, 'a') && !strchr (string, 'a')
375 && !strchr (pattern, 'A') && !strchr (string, 'A'))
377 *p++ = 'a', *p++ = 'A';
381 if (!strchr (pattern, 'b') && !strchr (string, 'b')
382 && !strchr (pattern, 'B') && !strchr (string, 'B'))
384 *p++ = 'b', *p++ = 'B';
388 if (!strchr (pattern, 'c') && !strchr (string, 'c')
389 && !strchr (pattern, 'C') && !strchr (string, 'C'))
391 *p++ = 'c', *p++ = 'C';
395 if (!strchr (pattern, 'd') && !strchr (string, 'd')
396 && !strchr (pattern, 'D') && !strchr (string, 'D'))
398 *p++ = 'd', *p++ = 'D';
401 sprintf (fail, "UTF-8 %s FAIL", letters);
402 ret |= mb_test (pattern, cflags, string, eflags, expect, matches,
409 main (int argc, char **argv)
416 static int test_utf8 = 0;
417 static const struct option options[] =
419 {"utf8", no_argument, &test_utf8, 1},
425 while (getopt_long (argc, argv, "", options, NULL) >= 0);
427 if (optind + 1 != argc)
429 fprintf (stderr, "Missing test filename\n");
433 f = fopen (argv[optind], "r");
436 fprintf (stderr, "Couldn't open %s\n", argv[optind]);
440 while ((len = getline (&line, &line_len, f)) > 0)
442 char *pattern, *flagstr, *string, *expect, *matches, *p;
443 int cflags = REG_EXTENDED, eflags = 0, try_bre_ere = 0;
445 if (line[len - 1] == '\n')
446 line[len - 1] = '\0';
448 /* Skip comments and empty lines. */
449 if (*line == '#' || *line == '\0')
455 pattern = strtok (line, "\t");
459 if (strcmp (pattern, "\"\"") == 0)
462 flagstr = strtok (NULL, "\t");
466 string = strtok (NULL, "\t");
470 if (strcmp (string, "\"\"") == 0)
473 for (p = flagstr; *p; ++p)
479 cflags &= ~REG_EXTENDED;
494 cflags |= REG_NEWLINE;
497 eflags |= REG_NOTBOL;
500 eflags |= REG_NOTEOL;
513 replace_special_chars (pattern);
514 glibc_re_syntax (pattern);
516 replace_special_chars (string);
518 expect = strtok (NULL, "\t");
522 replace_special_chars (expect);
523 matches = strtok (NULL, "\t");
525 replace_special_chars (matches);
528 if (setlocale (LC_ALL, "C") == NULL)
530 puts ("setlocale C failed");
533 if (test (pattern, cflags, string, eflags, expect, matches, "FAIL")
535 && test (pattern, cflags & ~REG_EXTENDED, string, eflags,
536 expect, matches, "FAIL")))
540 if (setlocale (LC_ALL, "cs_CZ.UTF-8") == NULL)
542 puts ("setlocale cs_CZ.UTF-8 failed");
545 else if (test (pattern, cflags, string, eflags, expect, matches,
548 && test (pattern, cflags & ~REG_EXTENDED, string,
549 eflags, expect, matches, "UTF-8 FAIL")))
551 else if (mb_tests (pattern, cflags, string, eflags, expect, matches)
553 && mb_tests (pattern, cflags & ~REG_EXTENDED, string,
554 eflags, expect, matches)))