1 /* Regular expression tests.
2 Copyright (C) 2003-2020 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, see
18 <https://www.gnu.org/licenses/>. */
20 #include <sys/types.h>
28 main (int argc
, char **argv
)
35 char *pattern
= NULL
, *string
= NULL
;
37 size_t pattern_alloced
= 0, string_alloced
= 0;
39 int pattern_valid
= 0, rm_valid
= 0;
46 fprintf (stderr
, "Missing test filename\n");
50 f
= fopen (argv
[1], "r");
53 fprintf (stderr
, "Couldn't open %s\n", argv
[1]);
57 if ((len
= getline (&line
, &line_len
, f
)) <= 0
58 || strncmp (line
, "# PCRE", 6) != 0)
60 fprintf (stderr
, "Not a PCRE test file\n");
68 while ((len
= getline (&line
, &line_len
, f
)) > 0)
75 if (line
[len
- 1] == '\n')
93 p
= strrchr (line
+ 1, '/');
99 printf ("%zd: Invalid pattern line: %s\n", linenum
, line
);
104 if (p
[1] == 'i' && p
[2] == '\0')
106 else if (p
[1] != '\0')
108 printf ("%zd: Invalid pattern line: %s\n", linenum
, line
);
113 if (pattern_alloced
< (size_t) (p
- line
))
115 pattern
= realloc (pattern
, p
- line
);
118 printf ("%zd: Cannot record pattern: %m\n", linenum
);
122 pattern_alloced
= p
- line
;
125 memcpy (pattern
, line
+ 1, p
- line
- 1);
126 pattern
[p
- line
- 1] = '\0';
131 if (strncmp (line
, " ", 4) == 0)
138 printf ("%zd: No previous valid pattern %s\n", linenum
, line
);
142 if (string_alloced
< (size_t) (len
- 3))
144 string
= realloc (string
, len
- 3);
147 printf ("%zd: Cannot record search string: %m\n", linenum
);
151 string_alloced
= len
- 3;
154 memcpy (string
, line
+ 4, len
- 3);
156 n
= regcomp (&re
, pattern
,
157 REG_EXTENDED
| (ignorecase
? REG_ICASE
: 0));
161 regerror (n
, &re
, buf
, sizeof (buf
));
162 printf ("%zd: regcomp failed for %s: %s\n",
163 linenum
, pattern
, buf
);
168 if (regexec (&re
, string
, 20, rm
, 0))
181 printf ("%zd: No preceeding pattern or search string\n", linenum
);
186 if (strcmp (line
, "No match") == 0)
188 if (rm
[0].rm_so
!= -1 || rm
[0].rm_eo
!= -1)
190 printf ("%zd: /%s/ on %s unexpectedly matched %d..%d\n",
191 linenum
, pattern
, string
, rm
[0].rm_so
, rm
[0].rm_eo
);
202 num
= strtoul (p
, &p
, 10);
203 if (num
>= 20 || *p
!= ':' || p
[1] != ' ')
205 printf ("%zd: Invalid line %s\n", linenum
, line
);
210 if (rm
[num
].rm_so
== -1 || rm
[num
].rm_eo
== -1)
212 if (strcmp (p
+ 2, "<unset>") != 0)
214 printf ("%zd: /%s/ on %s unexpectedly failed to match register %ld %d..%d\n",
215 linenum
, pattern
, string
, num
,
216 rm
[num
].rm_so
, rm
[num
].rm_eo
);
222 if (rm
[num
].rm_eo
< rm
[num
].rm_so
223 || rm
[num
].rm_eo
- rm
[num
].rm_so
!= len
- (p
+ 2 - line
)
224 || strncmp (p
+ 2, string
+ rm
[num
].rm_so
,
225 rm
[num
].rm_eo
- rm
[num
].rm_so
) != 0)
227 printf ("%zd: /%s/ on %s unexpectedly failed to match %s for register %ld %d..%d\n",
228 linenum
, pattern
, string
, p
+ 2, num
,
229 rm
[num
].rm_so
, rm
[num
].rm_eo
);