Add a test harness for the att data files:
http://www2.research.att.com/~gsf/testregex/ Not part of the build yet.
This commit is contained in:
christos
parent
60230be848
commit
a65aa58ff6
|
|
@ -0,0 +1,276 @@
|
|||
/* $NetBSD: att.c,v 1.1 2011/11/06 14:23:04 christos Exp $ */
|
||||
|
||||
/*-
|
||||
* Copyright (c) 2011 The NetBSD Foundation, Inc.
|
||||
* All rights reserved.
|
||||
*
|
||||
* This code is derived from software contributed to The NetBSD Foundation
|
||||
* by Christos Zoulas.
|
||||
*
|
||||
* Redistribution and use in source and binary forms, with or without
|
||||
* modification, are permitted provided that the following conditions
|
||||
* are met:
|
||||
* 1. Redistributions of source code must retain the above copyright
|
||||
* notice, this list of conditions and the following disclaimer.
|
||||
* 2. Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditions and the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* 3. All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed by the NetBSD
|
||||
* Foundation, Inc. and its contributors.
|
||||
* 4. Neither the name of The NetBSD Foundation nor the names of its
|
||||
* contributors may be used to endorse or promote products derived
|
||||
* from this software without specific prior written permission.
|
||||
*
|
||||
* THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
|
||||
* ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
|
||||
* TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
|
||||
* PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
|
||||
* BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
|
||||
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
|
||||
* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
|
||||
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
|
||||
* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
|
||||
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
|
||||
* POSSIBILITY OF SUCH DAMAGE.
|
||||
*/
|
||||
|
||||
#include <sys/cdefs.h>
|
||||
__RCSID("$NetBSD: att.c,v 1.1 2011/11/06 14:23:04 christos Exp $");
|
||||
|
||||
#include <stdio.h>
|
||||
#include <regex.h>
|
||||
#include <string.h>
|
||||
#include <stdlib.h>
|
||||
#include <vis.h>
|
||||
#include <atf-c.h>
|
||||
|
||||
|
||||
ATF_TC(regex_att);
|
||||
|
||||
ATF_TC_HEAD(regex_att, tc)
|
||||
{
|
||||
|
||||
atf_tc_set_md_var(tc, "descr", "Driver for parsing AT&T format"
|
||||
" input files available from:"
|
||||
" http://www2.research.att.com/~gsf/testregex/");
|
||||
}
|
||||
|
||||
static const char sep[] = "\r\n\t";
|
||||
|
||||
static const struct {
|
||||
const char *n;
|
||||
int v;
|
||||
int ce;
|
||||
#define COMP 1
|
||||
#define EXEC 2
|
||||
} nv[] = {
|
||||
#define _DO(a, b) { # a, REG_ ## a, b },
|
||||
_DO(NOMATCH, EXEC)
|
||||
_DO(BADPAT, COMP)
|
||||
_DO(ECOLLATE, COMP)
|
||||
_DO(ECTYPE, COMP)
|
||||
_DO(EESCAPE, COMP)
|
||||
_DO(ESUBREG, COMP)
|
||||
_DO(EBRACK, COMP)
|
||||
_DO(EPAREN, COMP)
|
||||
_DO(EBRACE, COMP)
|
||||
_DO(BADBR, COMP)
|
||||
_DO(ERANGE, COMP)
|
||||
_DO(ESPACE, EXEC)
|
||||
_DO(BADRPT, COMP)
|
||||
_DO(EMPTY, COMP)
|
||||
_DO(ASSERT, COMP)
|
||||
_DO(INVARG, COMP)
|
||||
_DO(ENOSYS, COMP)
|
||||
#undef _DO
|
||||
};
|
||||
|
||||
static void
|
||||
geterror(const char *s, int *comp, int *exec)
|
||||
{
|
||||
*comp = 0;
|
||||
*exec = 0;
|
||||
for (size_t i = 0; i < __arraycount(nv); i++)
|
||||
if (strcmp(s, nv[i].n) == 0) {
|
||||
if (nv[i].ce & COMP)
|
||||
*comp = nv[i].v;
|
||||
if (nv[i].ce & EXEC)
|
||||
*exec = nv[i].v;
|
||||
return;
|
||||
}
|
||||
ATF_REQUIRE_MSG(0, "Unknown error %s", s);
|
||||
return;
|
||||
}
|
||||
|
||||
static int
|
||||
getflags(char *s)
|
||||
{
|
||||
int flags = 0;
|
||||
|
||||
for (;; s++)
|
||||
switch (*s) {
|
||||
case '0': case '1': case '2': case '3': case '4':
|
||||
case '5': case '6': case '7': case '8': case '9':
|
||||
*s = '\0';
|
||||
break;
|
||||
case '\0':
|
||||
return flags;
|
||||
case 'B':
|
||||
case 'E':
|
||||
case 'F':
|
||||
case 'L':
|
||||
break;
|
||||
case 'i':
|
||||
flags |= REG_ICASE;
|
||||
*s = '\0';
|
||||
break;
|
||||
case '$':
|
||||
*s = '\0';
|
||||
break;
|
||||
case 'n':
|
||||
*s = '\0';
|
||||
break;
|
||||
default:
|
||||
ATF_REQUIRE_MSG(0, "Unknown char %c", *s);
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
static size_t
|
||||
getmatches(const char *s)
|
||||
{
|
||||
size_t i;
|
||||
char *q;
|
||||
for (i = 0; (q = strchr(s, '(')) != NULL; i++, s = q + 1)
|
||||
continue;
|
||||
ATF_REQUIRE_MSG(i != 0, "No parentheses found");
|
||||
return i;
|
||||
}
|
||||
|
||||
static void
|
||||
checkmatches(const char *matches, size_t nm, const regmatch_t *pm)
|
||||
{
|
||||
if (nm == 0)
|
||||
return;
|
||||
|
||||
char *res;
|
||||
size_t len = strlen(matches) + 1, off = 0;
|
||||
|
||||
ATF_REQUIRE((res = strdup(matches)) != NULL);
|
||||
for (size_t i = 0; i < nm; i++) {
|
||||
int l;
|
||||
if (pm[i].rm_so == -1 && pm[i].rm_eo == -1)
|
||||
l = snprintf(res + off, len - off, "(?,?)");
|
||||
else
|
||||
l = snprintf(res + off, len - off, "(%lld,%lld)",
|
||||
(long long)pm[i].rm_so, (long long)pm[i].rm_eo);
|
||||
ATF_REQUIRE_MSG((size_t) l < len - off, "String too long %s"
|
||||
" cur=%d, max=%zu", res, l, len - off);
|
||||
off += l;
|
||||
}
|
||||
ATF_REQUIRE_STREQ(res, matches);
|
||||
free(res);
|
||||
}
|
||||
|
||||
ATF_TC_BODY(regex_att, tc)
|
||||
{
|
||||
regex_t re;
|
||||
char *line;
|
||||
size_t len, lineno = 0;
|
||||
|
||||
for (; (line = fparseln(stdin, &len, &lineno, NULL, 0))
|
||||
!= NULL; free(line)) {
|
||||
char *name, *pattern, *input, *matches;
|
||||
regmatch_t *pm;
|
||||
size_t nm;
|
||||
|
||||
fprintf(stderr, "[%s]\n", line);
|
||||
if ((name = strtok(line, sep)) == NULL)
|
||||
continue;
|
||||
|
||||
if (strcmp(name, "NOTE") == 0)
|
||||
continue;
|
||||
|
||||
if (*name == '{')
|
||||
name++;
|
||||
if (*name == '}')
|
||||
continue;
|
||||
|
||||
ATF_REQUIRE_MSG((pattern = strtok(NULL, sep)) != NULL,
|
||||
"Missing pattern at line %zu", lineno);
|
||||
ATF_REQUIRE_MSG((input = strtok(NULL, sep)) != NULL,
|
||||
"Missing input at line %zu", lineno);
|
||||
|
||||
if (strchr(name, '$')) {
|
||||
ATF_REQUIRE(strunvis(pattern, pattern) != -1);
|
||||
ATF_REQUIRE(strunvis(input, input) != -1);
|
||||
}
|
||||
|
||||
|
||||
if (strcmp(input, "NULL") == 0)
|
||||
*input = '\0';
|
||||
ATF_REQUIRE_MSG((matches = strtok(NULL, sep)) != NULL,
|
||||
"Missing matches at line %zu", lineno);
|
||||
|
||||
int comp, exec;
|
||||
if (*matches != '(') {
|
||||
geterror(matches, &comp, &exec);
|
||||
pm = NULL;
|
||||
nm = 0;
|
||||
} else {
|
||||
comp = exec = 0;
|
||||
nm = getmatches(matches);
|
||||
ATF_REQUIRE((pm = calloc(nm, sizeof(*pm))) != NULL);
|
||||
}
|
||||
|
||||
int fail = 0;
|
||||
int iflags = getflags(name);
|
||||
for (; *name; name++) {
|
||||
int flags;
|
||||
switch (*name) {
|
||||
case 'B':
|
||||
flags = REG_BASIC;
|
||||
break;
|
||||
case 'E':
|
||||
flags = REG_EXTENDED;
|
||||
break;
|
||||
case 'L':
|
||||
flags = REG_NOSPEC;
|
||||
break;
|
||||
case 'F':
|
||||
fail++;
|
||||
continue;
|
||||
default:
|
||||
ATF_REQUIRE_MSG(0, "Bad name %c", *name);
|
||||
continue;
|
||||
}
|
||||
int c = regcomp(&re, pattern, flags | iflags);
|
||||
ATF_REQUIRE_MSG(c == comp,
|
||||
"regcomp returned %d for pattern %s at line %zu",
|
||||
c, pattern, lineno);
|
||||
if (c)
|
||||
continue;
|
||||
int e = regexec(&re, input, nm, pm, 0);
|
||||
if (fail)
|
||||
fprintf(stderr,
|
||||
"skipping failed test at line %zu\n",
|
||||
lineno);
|
||||
else {
|
||||
ATF_REQUIRE_MSG(e == exec, "Expected error %d,"
|
||||
" got %d at line %zu", exec, e, lineno);
|
||||
checkmatches(matches, nm, pm);
|
||||
}
|
||||
regfree(&re);
|
||||
}
|
||||
free(pm);
|
||||
}
|
||||
}
|
||||
|
||||
ATF_TP_ADD_TCS(tp)
|
||||
{
|
||||
|
||||
ATF_TP_ADD_TC(tp, regex_att);
|
||||
return atf_no_error();
|
||||
}
|
||||
Loading…
Reference in New Issue