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
|
#include "test.h"
#include <dirent.h>
#include <stdlib.h>
#include <string.h>
void test_location(const char *test_dir) {
char *location_dir = malloc(strlen(test_dir) + 30);
sprintf(location_dir, "%s/location", test_dir);
DIR *dir = opendir(location_dir);
if (!dir) {
test_fail("Couldn't open test directory %s", location_dir);
return;
}
struct dirent *ent;
while ((ent = readdir(dir))) {
const char *name = ent->d_name;
if (strlen(name) >= strlen("x.locations.pom") &&
strcmp(name + strlen(name) - strlen(".locations.pom"), ".locations.pom") == 0) {
printf("Testing %s...\n",name);
char *conf_path = malloc(strlen(location_dir) + strlen(name) + 30);
char *loc_path = malloc(strlen(location_dir) + strlen(name) + 30);
sprintf(conf_path, "%s/%.*s.pom", location_dir,
(int)(strlen(name) - strlen(".locations.pom")), name);
sprintf(loc_path, "%s/%s", location_dir, name);
pom_error *error;
pom_conf *conf = pom_load_path(conf_path, &error);
if (error) {
test_fail("Failed to parse %s\n%s", conf_path,
pom_error_to_string(error));
continue;
}
pom_conf *loc = pom_load_path(loc_path, &error);
if (error) {
test_fail("Failed to parse %s\n%s", loc_path,
pom_error_to_string(error));
continue;
}
const pom_item *item;
pom_item_iter *iter = NULL;
while ((item = pom_conf_next_item(conf, &iter))) {
if (!pom_conf_has(loc, item->key)) {
test_fail("%s has key '%s' but %s doesn't",
conf_path, item->key, loc_path);
}
}
while ((item = pom_conf_next_item(loc, &iter))) {
const char *file;
uint64_t line;
if (!pom_conf_location(conf, item->key, &file, &line)) {
test_fail("%s has key '%s' but %s doesn't",
loc_path, item->key, conf_path);
continue;
}
if (strcmp(file, conf_path) != 0) {
test_fail("Incorrect file name in location of '%s' (expected %s, got %s)",
item->key, conf_path, file);
}
if ((uint64_t)atol(item->value) != line) {
test_fail("Incorrect line number in location of '%s' (expected %ld, got %ld)",
item->key, atol(item->value), (long)line);
}
}
pom_conf_free(conf);
pom_conf_free(loc);
free(conf_path);
free(loc_path);
}
}
closedir(dir);
free(location_dir);
}
|
