tal/path: new module

[ccan] / ccan / tal / path / test / run-simplify.c

diff --git a/ccan/tal/path/test/run-simplify.c b/ccan/tal/path/test/run-simplify.c
new file mode 100644 (file)
index 0000000..3d1b351
--- /dev/null
+++ b/ccan/tal/path/test/run-simplify.c
@@ -0,0 +1,244 @@
+#include <ccan/tal/path/path.h>
+#include <ccan/tal/path/path.c>
+#include <ccan/tap/tap.h>
+
+int main(void)
+{
+       char cwd[1024], *path, *ctx = tal_strdup(NULL, "ctx");
+
+       plan_tests(87);
+
+       if (!getcwd(cwd, sizeof(cwd)))
+               abort();
+
+       rmdir("run-simplify-foo");
+       unlink("run-simplify-link");
+       if (mkdir("run-simplify-foo", 0700) != 0)
+               abort();
+       if (symlink("run-simplify-foo", "run-simplify-link") != 0)
+               abort();
+
+       /* Handling of . and .. */
+       path = path_simplify(ctx, ".");
+       ok1(streq(path, "."));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "./");
+       ok1(streq(path, "."));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "..");
+       ok1(streq(path, ".."));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "../");
+       ok1(streq(path, ".."));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "./..");
+       ok1(streq(path, ".."));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "./../");
+       ok1(streq(path, ".."));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "./../.");
+       ok1(streq(path, ".."));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "./.././");
+       ok1(streq(path, ".."));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "./../..");
+       ok1(streq(path, "../.."));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "./../../");
+       ok1(streq(path, "../.."));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       /* Handling of /. and /.. */
+       path = path_simplify(ctx, "/");
+       ok1(streq(path, "/"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "//");
+       ok1(streq(path, "/"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "/.");
+       ok1(streq(path, "/"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "/./");
+       ok1(streq(path, "/"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "/..");
+       ok1(streq(path, "/"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "/../");
+       ok1(streq(path, "/"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "/./..");
+       ok1(streq(path, "/"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "/./../");
+       ok1(streq(path, "/"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "/./../.");
+       ok1(streq(path, "/"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "/./.././");
+       ok1(streq(path, "/"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "/./../..");
+       ok1(streq(path, "/"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "/./../../");
+       ok1(streq(path, "/"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       /* Don't trace back over a symlink link */
+       path = path_simplify(ctx, "run-simplify-foo");
+       ok1(streq(path, "run-simplify-foo"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "./run-simplify-foo");
+       ok1(streq(path, "run-simplify-foo"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "./run-simplify-foo/.");
+       ok1(streq(path, "run-simplify-foo"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "run-simplify-link");
+       ok1(streq(path, "run-simplify-link"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "./run-simplify-link");
+       ok1(streq(path, "run-simplify-link"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "./run-simplify-link/.");
+       ok1(streq(path, "run-simplify-link"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "run-simplify-foo/..");
+       ok1(streq(path, "."));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "run-simplify-foo//..");
+       ok1(streq(path, "."));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "run-simplify-foo//../");
+       ok1(streq(path, "."));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       /* This is expected to be a real directory. */
+       path = path_simplify(ctx, "/tmp");
+       ok1(streq(path, "/tmp"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "/tmp/");
+       ok1(streq(path, "/tmp"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "/tmp/.");
+       ok1(streq(path, "/tmp"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "/./tmp/.");
+       ok1(streq(path, "/tmp"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "/../tmp/.");
+       ok1(streq(path, "/tmp"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "/tmp/..");
+       ok1(streq(path, "/"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "/tmp/../");
+       ok1(streq(path, "/"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "/tmp/../tmp");
+       ok1(streq(path, "/tmp"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "/tmp/../tmp/");
+       ok1(streq(path, "/tmp"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       path = path_simplify(ctx, "/tmp/../tmp/.");
+       ok1(streq(path, "/tmp"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+
+       /* take tests */
+       path = path_simplify(ctx, take(tal_strdup(ctx, "/tmp/../tmp/.")));
+       ok1(streq(path, "/tmp"));
+       ok1(tal_parent(path) == ctx);
+       tal_free(path);
+       ok1(tal_first(ctx) == NULL);
+
+       path = path_simplify(ctx, take(NULL));
+       ok1(!path);
+       ok1(tal_first(ctx) == NULL);
+
+       tal_free(ctx);
+
+       return exit_status();
+}