// 19 january 2020 #include "test.h" // Do not put any test cases in this file; they will not be run. struct test { const char *name; void (*f)(void); }; static struct test *tests = NULL; static size_t lenTests = 0; static size_t capTests = 0; void testingprivRegisterTest(const char *name, void (*f)(void)) { if (lenTests == capTests) { struct test *newtests; capTests += 32; newtests = (struct test *) realloc(tests, capTests * sizeof (struct test)); if (newtests == NULL) { fprintf(stderr, "memory exhausted registering test %s\n", name); exit(1); } tests = newtests; } tests[lenTests].name = name; tests[lenTests].f = f; lenTests++; } static int testcmp(const void *aa, const void *bb) { const struct test *a = (const struct test *) aa; const struct test *b = (const struct test *) bb; return strcmp(a->name, b->name); } static int testingprivRet = 0; void TestFail(void) { testingprivRet = 1; } void TestFailNow(void) { exit(1); } void TestSkipNow(void) { // see https://mesonbuild.com/Unit-tests.html#skipped-tests-and-hard-errors exit(77); } static const char *basename(const char *file) { const char *p; for (;;) { p = strpbrk(file, "/\\"); if (p == NULL) break; file = p + 1; } return file; } void testingprivLogfFullThen(FILE *f, void (*then)(void), const char *filename, long line, const char *fmt, ...) { va_list ap; va_start(ap, fmt); fprintf(f, "%s:%ld: ", basename(filename), line); vfprintf(f, fmt, ap); fprintf(f, "\n"); va_end(ap); if (then != NULL) (*then)(); } int main(int argc, char *argv[]) { struct test *t; struct test want; if (argc != 2) { fprintf(stderr, "usage: %s TestName\n", argv[0]); return 1; } qsort(tests, lenTests, sizeof (struct test), testcmp); want.name = argv[1]; t = (struct test *) bsearch(&want, tests, lenTests, sizeof (struct test), testcmp); if (t == NULL) { fprintf(stderr, "%s: no such test\n", argv[1]); return 1; } testingprivRet = 0; (*(t->f))(); return testingprivRet; }