1 files changed, 72 insertions, 0 deletions
diff --git a/tests/location.c b/tests/location.c
new file mode 100644
index 0000000..5694f78
--- /dev/null
+++ b/tests/location.c
@@ -0,0 +1,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);
+}