1 files changed, 102 insertions, 0 deletions
diff --git a/spec/pack_spec.lua b/spec/pack_spec.lua
new file mode 100644
index 0000000..2a2fb3a
--- /dev/null
+++ b/spec/pack_spec.lua
@@ -0,0 +1,102 @@
+local test_env = require("spec.util.test_env")
+local lfs = require("lfs")
+local run = test_env.run
+local testing_paths = test_env.testing_paths
+local write_file = test_env.write_file
+
+describe("luarocks pack #integration", function()
+
+   lazy_setup(function()
+      test_env.setup_specs()
+   end)
+
+   describe("#mock", function()
+
+      lazy_setup(function()
+         test_env.setup_specs(extra_rocks, "mock")
+         test_env.mock_server_init()
+      end)
+
+      lazy_teardown(function()
+         test_env.mock_server_done()
+      end)
+
+      it("can pack a rockspec into a .src.rock", function()
+         finally(function()
+            os.remove("a_rock-1.0-1.src.rock")
+         end)
+         assert(run.luarocks_bool("download --rockspec --server=" .. testing_paths.fixtures_dir .. "/a_repo a_rock 1.0-1"))
+         assert(run.luarocks_bool("pack a_rock-1.0-1.rockspec"))
+         assert.is_truthy(lfs.attributes("a_rock-1.0-1.src.rock"))
+      end)
+
+      it("can pack a rockspec with a bare file:// in the url", function()
+         test_env.run_in_tmp(function(tmpdir)
+            write_file("test-1.0-1.rockspec", [[
+               package = "test"
+               version = "1.0-1"
+               source = {
+                  url = "file://]] .. tmpdir:gsub("\\", "/") .. [[/test.lua"
+               }
+               dependencies = {
+                  "a_rock 1.0"
+               }
+               build = {
+                  type = "builtin",
+                  modules = {
+                     test = "test.lua"
+                  }
+               }
+            ]], finally)
+            write_file("test.lua", "return {}", finally)
+
+            assert.is.truthy(run.luarocks_bool("pack test-1.0-1.rockspec"))
+            assert.is.truthy(lfs.attributes("test-1.0-1.src.rock"))
+
+            assert.is.truthy(run.luarocks_bool("unpack test-1.0-1.src.rock"))
+            assert.is.truthy(lfs.attributes("test-1.0-1/test.lua"))
+         end, finally)
+      end)
+
+      it("can pack a rockspec with a bare file:// fails if doesn't exist", function()
+         test_env.run_in_tmp(function(tmpdir)
+            write_file("test-1.0-1.rockspec", [[
+               package = "test"
+               version = "1.0-1"
+               source = {
+                  url = "file://]] .. tmpdir:gsub("\\", "/") .. [[/test_doesnt_exist.lua"
+               }
+               dependencies = {
+                  "a_rock 1.0"
+               }
+               build = {
+                  type = "builtin",
+                  modules = {
+                     test = "test.lua"
+                  }
+               }
+            ]], finally)
+
+            assert.is.falsy(run.luarocks_bool("pack test-1.0-1.rockspec"))
+            assert.is.falsy(lfs.attributes("test-1.0-1.src.rock"))
+         end, finally)
+      end)
+
+
+      it("fails packing a rockspec into a .src.rock if dir doesn't exist", function()
+         local output = run.luarocks("pack " .. testing_paths.fixtures_dir .. "/bad_pack-0.1-1.rockspec")
+         assert.match("Directory invalid_dir not found", output)
+         assert.is_falsy(lfs.attributes("bad_pack-0.1-1.src.rock"))
+      end)
+
+      describe("namespaced dependencies", function()
+         it("can pack rockspec with namespaced dependencies", function()
+            finally(function()
+               os.remove("has_namespaced_dep-1.0-1.src.rock")
+            end)
+            assert(run.luarocks_bool("pack " .. testing_paths.fixtures_dir .. "/a_repo/has_namespaced_dep-1.0-1.rockspec"))
+            assert.is_truthy(lfs.attributes("has_namespaced_dep-1.0-1.src.rock"))
+         end)
+      end)
+   end)
+end)