aboutsummaryrefslogtreecommitdiff
path: root/test/_case-test.h
blob: 8f18b69a463daffb57e5d7961a477420892c3a70 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
#if !defined(CASETYPE) || !defined(CASETYPE_VERB)
#	error "CASETYPE and CASETYPE_VERB must be defined"
#endif

#define _GNU_SOURCE
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include <alloc.h>
#include <errors.h>
#include <macros.h>
#include <mbstring.h>
#include <unicode/string.h>

#define TESTFILE STR(CASETYPE) ".in"
#define FUNC     CONCAT(u8, CASETYPE)

static bool test(const char8_t *, int);

int
main(int, char **argv)
{
	int rv;
	size_t n;
	ssize_t nr;
	char *line;
	FILE *fp;

	rv = EXIT_SUCCESS;
	line = nullptr;
	mlib_setprogname(argv[0]);

	if ((fp = fopen(TESTFILE, "r")) == nullptr)
		err("fopen: %s:", TESTFILE);

	for (int id = 1; (nr = getline(&line, &n, fp)) > 0; id++) {
		if (line[nr - 1] == '\n')
			line[--nr] = '\0';

		if (!test(line, id))
			rv = EXIT_FAILURE;
	}
	if (ferror(fp))
		err("getline: %s:", TESTFILE);

	free(line);
	fclose(fp);
	return rv;
}

bool
test(const char8_t *line, int id)
{
	struct u8view sv = {line, strlen(line)};
	struct u8view before, after, flags;
	u8cut(&before, &sv, U";", 1);
	u8cut(&after,  &sv, U";", 1);
	u8cut(&flags,  &sv, U";", 1);

	enum caseflags cf = u8eq(flags, U8("ẞ"))  ? CF_ẞ
	                  : u8eq(flags, U8("AZ")) ? CF_LANG_AZ
	                  : u8eq(flags, U8("LT")) ? CF_LANG_LT
	                  : u8eq(flags, U8("NL")) ? CF_LANG_NL
	                                          : 0;
	char8_t *buf = bufalloc(nullptr, 1, after.len);
	size_t bufsz = FUNC(nullptr, 0, before, cf);
	if (bufsz != after.len) {
		warn("case %d: expected %s buffer size of %zu but got %zu",
		     id, STR(CASETYPE_VERB), after.len, bufsz);
		return false;
	}

	bufsz = FUNC(buf, bufsz, before, cf);
	if (bufsz != after.len) {
		warn("case %d: expected %s length of %zu but got %zu",
		     id, STR(CASETYPE_VERB), after.len, bufsz);
		return false;
	}

	if (!memeq(buf, after.p, bufsz)) {
		warn("case %d: expected ‘%.*s’ but got ‘%.*s’",
		     id, SV_PRI_ARGS(after), (int)bufsz, buf);
		return false;
	}

	free(buf);
	return true;
}