1 files changed, 70 insertions, 0 deletions
diff --git a/spec/unit/dir_spec.lua b/spec/unit/dir_spec.lua
new file mode 100644
index 0000000..55dd6e0
--- /dev/null
+++ b/spec/unit/dir_spec.lua
@@ -0,0 +1,70 @@
+local test_env = require("spec.util.test_env")
+local testing_paths = test_env.testing_paths
+local P = test_env.P
+
+test_env.setup_specs()
+local dir = require("luarocks.dir")
+
+describe("luarocks.dir #unit", function()
+   local runner
+
+   lazy_setup(function()
+      runner = require("luacov.runner")
+      runner.init(testing_paths.testrun_dir .. "/luacov.config")
+   end)
+
+   lazy_teardown(function()
+      runner.save_stats()
+   end)
+
+   describe("dir.is_basic_protocol", function()
+      it("checks whether the arguments represent a valid protocol and returns the result of the check", function()
+         assert.truthy(dir.is_basic_protocol("http"))
+         assert.truthy(dir.is_basic_protocol("https"))
+         assert.truthy(dir.is_basic_protocol("ftp"))
+         assert.truthy(dir.is_basic_protocol("file"))
+         assert.falsy(dir.is_basic_protocol("git"))
+         assert.falsy(dir.is_basic_protocol("git+https"))
+         assert.falsy(dir.is_basic_protocol("invalid"))
+      end)
+   end)
+
+   describe("dir.deduce_base_dir", function()
+      it("deduces the base dir from archives", function()
+         assert.are.same("v0.3", dir.deduce_base_dir("https://example.com/hishamhm/lua-compat-5.2/archive/v0.3.zip"))
+         assert.are.same("lua-compat-5.2", dir.deduce_base_dir("https://example.com/hishamhm/lua-compat-5.2.zip"))
+         assert.are.same("lua-compat-5.2", dir.deduce_base_dir("https://example.com/hishamhm/lua-compat-5.2.tar.gz"))
+         assert.are.same("lua-compat-5.2", dir.deduce_base_dir("https://example.com/hishamhm/lua-compat-5.2.tar.bz2"))
+      end)
+      it("returns the basename when not given an archive", function()
+         assert.are.same("parser.moon", dir.deduce_base_dir("git://example.com/Cirru/parser.moon"))
+         assert.are.same("v0.3", dir.deduce_base_dir("https://example.com/hishamhm/lua-compat-5.2/archive/v0.3"))
+      end)
+   end)
+
+   describe("dir.normalize", function()
+      it("converts backslashes and removes trailing slashes", function()
+         assert.are.same(P"/foo/ovo", dir.normalize("\\foo\\ovo\\"))
+         assert.are.same(P"c:/some/dir", dir.normalize("c:\\..\\some\\foo\\..\\dir"))
+         assert.are.same("http://example.com/foo/ovo", dir.normalize("http://example.com/foo\\ovo\\"))
+      end)
+      it("strips unneeded /../ and /./", function()
+         assert.are.same(P"/some/dir/file.txt", dir.normalize("/../../../some/./foo/bar/.././../dir/bla/../file.txt"))
+         assert.are.same(P"/some/dir/file.txt", dir.normalize("/../../../some/./foo/bar/.././../dir/bla/../file.txt"))
+         assert.are.same(P"/some/dir", dir.normalize("/../../../some/./foo/bar/.././../dir/./some/subdir/../.."))
+         assert.are.same(P"/some/dir", dir.normalize("/../../../some/./foo/bar/.././../dir/./."))
+      end)
+      it("respects relative paths", function()
+         assert.are.same(P".", dir.normalize("."))
+         assert.are.same(P"boo", dir.normalize("./boo"))
+         assert.are.same(P"/boo", dir.normalize("/./boo"))
+         assert.are.same(P"../../../../boo", dir.normalize("../../../hello/world/../../../boo"))
+      end)
+      it("respects root directory", function()
+         assert.are.same(P"/", dir.normalize("/"))
+         assert.are.same(P"/", dir.normalize("/////"))
+         assert.are.same(P"/", dir.normalize("/a/b/.././../c/./../../"))
+      end)
+   end)
+
+end)