shithub: mc

ref: 6c561486a8359a7c6858be5b47170e9341633da5
dir: /lib/std/test/pathjoin.myr/

use std

const main = {
	/* untouched */
	norm("foo", "foo")
	norm("foo/bar", "foo/bar")
	norm("/foo/bar", "/foo/bar")
	norm(".", ".")

	/* empty path becomes "." */
	norm("", ".")

	/* delete //, trailing / */
	norm("foo/", "foo")
	norm("foo//bar/baz", "foo/bar/baz")
	norm("//foo//bar/", "/foo/bar")

	/* delete '.' */
	norm("foo/./bar", "foo/bar")
	norm("/foo/bar/.", "/foo/bar")
	norm("./foo/bar/.", "foo/bar")

	/* elide '..' */
	norm("/../foo/bar", "/foo/bar")
	norm("../../foo/bar", "../../foo/bar")
	norm("foo/bar/..", "foo")
	norm("foo/bar/../..", ".")
	norm("foo/../bar/../..", "..")
	norm("/foo/../bar/../..", "/")

	/* mix all of the above */
	norm("./", ".")
	norm("/../foo//bar", "/foo/bar")
	norm("..//../foo/bar", "../../foo/bar")
	norm("foo//./bar/..", "foo")
	norm("foo/bar/.././..", ".")
	norm("//foo/../bar/../..", "/")
	norm("foo/../bar/../..", "..")

	/* vanilla pathjoin */
	eq(std.pathcat("a", "b"), "a/b")
	eq(std.pathjoin(["a", "b", "c"][:]), "a/b/c")
	/* pathjoin with empty dirs */
	eq(std.pathcat("", "foo"), "foo")
	eq(std.pathjoin(["", "foo", "bar"][:]), "foo/bar")
}

const norm = {a, b
	var p

	p = std.pathnorm(a)
	if !std.sleq(p, b)
		std.fatal("mismatched paths: '{}' => '{}' != '{}'\n", a, p, b)
	;;
	std.slfree(p)
}

const eq = {a, b
	if !std.sleq(a, b)
		std.fatal("mismatched paths: '{}' != '{}'\n", a, b)
	;;
}