1 files changed, 130 insertions, 0 deletions

diff --git a/spec/install_spec.lua b/spec/install_spec.lua
new file mode 100644
index 00000000..306bbbc1
--- /dev/null
+++ b/spec/install_spec.lua
@@ -0,0 +1,130 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+local install = require("luarocks.install")
+
+local extra_rocks = {
+   "/cprint-0.1-2.src.rock",
+   "/cprint-0.1-2.rockspec",
+   "/lpeg-0.12-1.src.rock",
+   "/luasec-0.6-1.rockspec",
+   "/luassert-1.7.0-1.src.rock",
+   "/luasocket-3.0rc1-1.src.rock",
+   "/luasocket-3.0rc1-1.rockspec",
+   "/lxsh-0.8.6-2.src.rock",
+   "/lxsh-0.8.6-2.rockspec",
+   "/say-1.2-1.src.rock",
+   "/say-1.0-1.src.rock",
+   "/wsapi-1.6-1.src.rock"
+}
+
+expose("LuaRocks install tests #blackbox #b_install", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      testing_paths = test_env.testing_paths
+      env_variables = test_env.env_variables
+      run = test_env.run
+      platform = test_env.platform
+   end)
+
+   describe("LuaRocks install - basic tests", function()
+      it("LuaRocks install with no flags/arguments", function()
+         assert.is_false(run.luarocks_bool("install"))
+      end)
+
+      it("LuaRocks install with invalid argument", function()
+         assert.is_false(run.luarocks_bool("install invalid"))
+      end)
+
+      it("LuaRocks install invalid patch", function()
+         assert.is_false(run.luarocks_bool("install " .. testing_paths.testing_dir .. "/testfiles/invalid_patch-0.1-1.rockspec"))
+      end)      
+
+      it("LuaRocks install invalid rock", function()
+         assert.is_false(run.luarocks_bool("install \"invalid.rock\" "))
+      end)
+
+      it("LuaRocks install with local flag as root", function()
+         assert.is_false(run.luarocks_bool("install --local luasocket", { USER = "root" } ))
+      end)
+
+      it("LuaRocks install not a zip file", function()
+         assert.is_false(run.luarocks_bool("install " .. testing_paths.testing_dir .. "/testfiles/not_a_zipfile-1.0-1.src.rock"))
+      end)
+
+      it("LuaRocks install only-deps of lxsh show there is no lxsh", function()
+         assert.is_true(run.luarocks_bool("install lxsh 0.8.6-2 --only-deps"))
+         assert.is_false(run.luarocks_bool("show lxsh"))
+      end)
+
+      it("LuaRocks install incompatible architecture", function()
+         assert.is_false(run.luarocks_bool("install \"foo-1.0-1.impossible-x86.rock\" "))
+      end)
+
+      it("LuaRocks install wsapi with bin", function()
+         run.luarocks_bool("install wsapi")
+      end)
+
+      it("LuaRocks install luasec and show luasocket (dependency)", function()
+         assert.is_true(run.luarocks_bool("install luasec"))
+         assert.is_true(run.luarocks_bool("show luasocket"))
+      end)
+   end)
+
+   describe("LuaRocks install - more complex tests", function()
+      it('LuaRocks install luasec with skipping dependency checks', function()
+         run.luarocks(" install luasec --nodeps")
+         assert.is_true(run.luarocks_bool("show luasec"))
+         if env_variables.TYPE_TEST_ENV == "minimal" then
+            assert.is_false(run.luarocks_bool("show luasocket"))
+            assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/luasocket"))
+         end
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/luasec"))
+      end)
+      
+      it("LuaRocks install only-deps of luasocket packed rock", function()
+         assert.is_true(test_env.need_luasocket())
+         local output = run.luarocks("install --only-deps " .. testing_paths.testing_cache .. "/luasocket-3.0rc1-1." .. platform .. ".rock")
+         assert.are.same(output, "Successfully installed dependencies for luasocket 3.0rc1-1")
+      end)
+
+      it("LuaRocks install binary rock of cprint", function()
+         assert.is_true(test_env.need_luasocket())
+         assert.is_true(run.luarocks_bool("build --pack-binary-rock cprint"))
+         assert.is_true(run.luarocks_bool("install cprint-0.1-2." .. platform .. ".rock"))
+         assert.is_true(os.remove("cprint-0.1-2." .. platform .. ".rock"))
+      end)
+
+      it("LuaRocks install reinstall", function()
+         assert.is_true(test_env.need_luasocket())
+         assert.is_true(run.luarocks_bool("install " .. testing_paths.testing_cache .. "/luasocket-3.0rc1-1." .. platform .. ".rock"))
+         assert.is_true(run.luarocks_bool("install --deps-mode=none " .. testing_paths.testing_cache .. "/luasocket-3.0rc1-1." .. platform .. ".rock"))
+      end)
+   end)
+
+   describe("New install functionality based on pull request 552", function()
+      it("LuaRocks install break dependencies warning", function() 
+         assert.is_true(run.luarocks_bool("install say 1.2"))
+         assert.is_true(run.luarocks_bool("install luassert"))
+         assert.is_true(run.luarocks_bool("install say 1.0"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/say/1.2-1"))
+      end)
+      it("LuaRocks install break dependencies force", function() 
+         assert.is_true(run.luarocks_bool("install say 1.2"))
+         assert.is_true(run.luarocks_bool("install luassert"))
+         local output = run.luarocks("install --force say 1.0")
+         assert.is.truthy(output:find("Checking stability of dependencies"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/say/1.2-1"))
+      end)
+      it("LuaRocks install break dependencies force fast", function() 
+         assert.is_true(run.luarocks_bool("install say 1.2"))
+         assert.is_true(run.luarocks_bool("install luassert"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/say/1.2-1"))
+         local output = run.luarocks("install --force-fast say 1.0")
+         assert.is.falsy(output:find("Checking stability of dependencies"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/say/1.0-1"))
+      end)
+   end)
+end)
\ No newline at end of file