fetch tarballHEADmaster

1 files changed, 387 insertions, 0 deletions

diff --git a/spec/make_spec.lua b/spec/make_spec.lua
new file mode 100644
index 0000000..b057263
--- /dev/null
+++ b/spec/make_spec.lua
@@ -0,0 +1,387 @@
+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 env_variables = test_env.env_variables
+local write_file = test_env.write_file
+
+local extra_rocks = {
+   "/luasocket-${LUASOCKET}.src.rock",
+   "/luasocket-${LUASOCKET}.rockspec",
+   "/lpeg-${LPEG}.src.rock",
+   "/lxsh-${LXSH}.src.rock",
+   "/lxsh-${LXSH}.rockspec"
+}
+
+describe("luarocks make #integration", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+   end)
+
+   it("with no flags/arguments", function()
+      finally(function()
+         lfs.chdir(testing_paths.testrun_dir)
+         test_env.remove_dir("empty")
+      end)
+      assert(lfs.mkdir("empty"))
+      assert(lfs.chdir("empty"))
+      assert.is_false(run.luarocks_bool("make"))
+   end)
+
+   it("with rockspec", function()
+      finally(function()
+         -- delete downloaded and unpacked files
+         lfs.chdir(testing_paths.testrun_dir)
+         test_env.remove_dir("luasocket-${LUASOCKET}")
+         os.remove("luasocket-${LUASOCKET}.src.rock")
+      end)
+
+      -- make luasocket
+      assert.is_true(run.luarocks_bool("download --source luasocket ${LUASOCKET}"))
+      assert.is_true(run.luarocks_bool("unpack luasocket-${LUASOCKET}.src.rock"))
+      lfs.chdir("luasocket-${LUASOCKET}/luasocket/")
+      assert.is_true(run.luarocks_bool("make luasocket-${LUASOCKET}.rockspec"))
+
+      -- test it
+      assert.is_true(run.luarocks_bool("show luasocket"))
+      assert.is.truthy(lfs.attributes(testing_paths.testing_sys_rocks .. "/luasocket/${LUASOCKET}/luasocket-${LUASOCKET}.rockspec"))
+   end)
+
+   it("--no-doc", function()
+      finally(function()
+         lfs.chdir(testing_paths.testrun_dir)
+         test_env.remove_dir("luasocket-${LUASOCKET}")
+         os.remove("luasocket-${LUASOCKET}.src.rock")
+      end)
+
+      assert.is_true(run.luarocks_bool("download --source luasocket ${LUASOCKET}"))
+      assert.is_true(run.luarocks_bool("unpack luasocket-${LUASOCKET}.src.rock"))
+      lfs.chdir("luasocket-${LUASOCKET}/luasocket")
+      assert.is_true(run.luarocks_bool("make --no-doc luasocket-${LUASOCKET}.rockspec"))
+
+      assert.is_true(run.luarocks_bool("show luasocket"))
+      assert.is.falsy(lfs.attributes(testing_paths.testing_sys_rocks .. "/luasocket/${LUASOCKET}/doc"))
+   end)
+
+   it("--only-deps", function()
+      local rockspec = "build_only_deps-0.1-1.rockspec"
+      local src_rock = testing_paths.fixtures_dir .. "/build_only_deps-0.1-1.src.rock"
+
+      test_env.remove_dir("build_only_deps-0.1-1/")
+      assert.is_true(run.luarocks_bool("unpack " .. src_rock))
+      lfs.chdir("build_only_deps-0.1-1/")
+      assert.is_true(run.luarocks_bool("make " .. rockspec .. " --only-deps"))
+      assert.is_false(run.luarocks_bool("show build_only_deps"))
+      assert.is.falsy(lfs.attributes(testing_paths.testing_sys_rocks .. "/build_only_deps/0.1-1/build_only_deps-0.1-1.rockspec"))
+      assert.is.truthy(lfs.attributes(testing_paths.testing_sys_rocks .. "/a_rock/1.0-1/a_rock-1.0-1.rockspec"))
+   end)
+
+   describe("LuaRocks making rockspecs (using lxsh)", function()
+      --download lxsh and unpack it
+      before_each(function()
+         assert.is_true(run.luarocks_bool("download --source lxsh ${LXSH}"))
+         assert.is_true(run.luarocks_bool("unpack lxsh-${LXSH}.src.rock"))
+         assert.is_true(lfs.chdir("lxsh-${LXSH}/lxsh-${LXSH_V}-1/"))
+      end)
+
+      -- delete downloaded and unpacked files
+      after_each(function()
+         assert(lfs.chdir(testing_paths.testrun_dir))
+         test_env.remove_dir("lxsh-${LXSH}")
+         assert.is_true(os.remove("lxsh-${LXSH}.src.rock"))
+      end)
+
+      it("default rockspec", function()
+         assert.is_true(run.luarocks_bool("new_version lxsh-${LXSH}.rockspec"))
+         assert.is_true(run.luarocks_bool("make"))
+
+         assert.is_true(run.luarocks_bool("show lxsh"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_rocks .. "/lxsh/${LXSH_V}-3/lxsh-${LXSH_V}-3.rockspec"))
+      end)
+
+      it("unnamed rockspec", function()
+         finally(function()
+            os.remove("rockspec")
+         end)
+
+         test_env.copy("lxsh-${LXSH}.rockspec", "rockspec")
+         assert.is_true(run.luarocks_bool("make"))
+
+         assert.is_true(run.luarocks_bool("show lxsh"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_rocks .. "/lxsh/${LXSH}/lxsh-${LXSH}.rockspec"))
+      end)
+
+      it("ambiguous rockspec", function()
+         assert.is.truthy(os.rename("lxsh-${LXSH}.rockspec", "lxsh2-${LXSH}.rockspec"))
+         local output = run.luarocks("make")
+         assert.is.truthy(output:match("Error: Inconsistency between rockspec filename"))
+
+         assert.is_false(run.luarocks_bool("show lxsh"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_rocks .. "/lxsh/${LXSH}/lxsh-${LXSH}.rockspec"))
+      end)
+
+      it("ambiguous unnamed rockspec", function()
+         assert.is.truthy(os.rename("lxsh-${LXSH}.rockspec", "1_rockspec"))
+         test_env.copy("1_rockspec", "2_rockspec")
+         local output = run.luarocks("make")
+         assert.is.truthy(output:match("Error: Please specify which rockspec file to use"))
+
+         assert.is_false(run.luarocks_bool("show lxsh"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_rocks .. "/lxsh/${LXSH}/lxsh-${LXSH}.rockspec"))
+      end)
+
+      it("pack binary rock", function()
+         assert.is_true(run.luarocks_bool("make --deps-mode=none --pack-binary-rock"))
+         assert.is.truthy(lfs.attributes("lxsh-${LXSH}.all.rock"))
+      end)
+   end)
+
+   it("supports --pin #pinning", 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"
+               }
+            }
+         ]])
+         write_file("test.lua", "return {}")
+
+         assert.is_true(run.luarocks_bool("make --server=" .. testing_paths.fixtures_dir .. "/a_repo --pin --tree=lua_modules"))
+         assert.is.truthy(lfs.attributes("./lua_modules/lib/luarocks/rocks-" .. test_env.lua_version .. "/test/1.0-1/test-1.0-1.rockspec"))
+         assert.is.truthy(lfs.attributes("./lua_modules/lib/luarocks/rocks-" .. test_env.lua_version .. "/a_rock/1.0-1/a_rock-1.0-1.rockspec"))
+         local lockfilename = "./lua_modules/lib/luarocks/rocks-" .. test_env.lua_version .. "/test/1.0-1/luarocks.lock"
+         assert.is.truthy(lfs.attributes(lockfilename))
+         local lockdata = loadfile(lockfilename)()
+         assert.same({
+            dependencies = {
+               ["a_rock"] = "1.0-1",
+               ["lua"] = test_env.lua_version .. "-1",
+            }
+         }, lockdata)
+      end, finally)
+   end)
+
+   it("respects luarocks.lock when present #pinning", function()
+      test_env.run_in_tmp(function(tmpdir)
+         write_file("test-2.0-1.rockspec", [[
+            package = "test"
+            version = "2.0-1"
+            source = {
+               url = "file://]] .. tmpdir:gsub("\\", "/") .. [[/test.lua"
+            }
+            dependencies = {
+               "a_rock >= 0.8"
+            }
+            build = {
+               type = "builtin",
+               modules = {
+                  test = "test.lua"
+               }
+            }
+         ]])
+         write_file("test.lua", "return {}")
+         write_file("luarocks.lock", [[
+            return {
+               dependencies = {
+                  ["a_rock"] = "1.0-1",
+               }
+            }
+         ]])
+
+         print(run.luarocks("make --server=" .. testing_paths.fixtures_dir .. "/a_repo --tree=lua_modules"))
+         assert.is.truthy(lfs.attributes("./lua_modules/lib/luarocks/rocks-" .. test_env.lua_version .. "/test/2.0-1/test-2.0-1.rockspec"))
+         assert.is.truthy(lfs.attributes("./lua_modules/lib/luarocks/rocks-" .. test_env.lua_version .. "/a_rock/1.0-1/a_rock-1.0-1.rockspec"))
+         local lockfilename = "./lua_modules/lib/luarocks/rocks-" .. test_env.lua_version .. "/test/2.0-1/luarocks.lock"
+         assert.is.truthy(lfs.attributes(lockfilename))
+         local lockdata = loadfile(lockfilename)()
+         assert.same({
+            dependencies = {
+               ["a_rock"] = "1.0-1",
+            }
+         }, lockdata)
+      end, finally)
+   end)
+
+   describe("#ddt upgrading rockspecs with double deploy types", function()
+      local deploy_lib_dir = testing_paths.testing_sys_tree .. "/lib/lua/"..env_variables.LUA_VERSION
+      local deploy_lua_dir = testing_paths.testing_sys_tree .. "/share/lua/"..env_variables.LUA_VERSION
+      local so = test_env.lib_extension
+
+      before_each(function()
+         test_env.copy_dir(testing_paths.fixtures_dir .. "/double_deploy_type", "ddt")
+      end)
+
+      after_each(function()
+         test_env.remove_dir("ddt")
+         os.remove("ddt."..test_env.lib_extension)
+      end)
+
+      it("when upgrading", function()
+         assert.is_true(run.luarocks_bool("make ddt/double_deploy_type-0.1.0-1.rockspec"))
+         assert.is.truthy(lfs.attributes(deploy_lib_dir.."/ddt."..so))
+         assert.is.truthy(lfs.attributes(deploy_lua_dir.."/ddt.lua"))
+         assert.same("ddt1", loadfile(deploy_lua_dir.."/ddt.lua")())
+         assert.is.truthy(lfs.attributes(deploy_lua_dir.."/ddt_file"))
+         assert.is.falsy(lfs.attributes(deploy_lib_dir.."/ddt."..so.."~"))
+         assert.is.falsy(lfs.attributes(deploy_lua_dir.."/ddt.lua~"))
+         assert.is.falsy(lfs.attributes(deploy_lua_dir.."/ddt_file~"))
+
+         assert.is_true(run.luarocks_bool("make ddt/double_deploy_type-0.2.0-1.rockspec"))
+         assert.is.truthy(lfs.attributes(deploy_lib_dir.."/ddt."..so))
+         assert.is.truthy(lfs.attributes(deploy_lua_dir.."/ddt.lua"))
+         assert.same("ddt2", loadfile(deploy_lua_dir.."/ddt.lua")())
+         assert.is.truthy(lfs.attributes(deploy_lua_dir.."/ddt_file"))
+         assert.is.falsy(lfs.attributes(deploy_lib_dir.."/ddt."..so.."~"))
+         assert.is.falsy(lfs.attributes(deploy_lua_dir.."/ddt.lua~"))
+         assert.is.falsy(lfs.attributes(deploy_lua_dir.."/ddt_file~"))
+      end)
+
+      it("modules with same name from lua/ and lib/ when upgrading with --keep", function()
+         assert.is_true(run.luarocks_bool("make ddt/double_deploy_type-0.1.0-1.rockspec"))
+         assert.is.truthy(lfs.attributes(deploy_lib_dir.."/ddt."..so))
+         assert.is.truthy(lfs.attributes(deploy_lua_dir.."/ddt.lua"))
+         assert.same("ddt1", loadfile(deploy_lua_dir.."/ddt.lua")())
+         assert.is.truthy(lfs.attributes(deploy_lua_dir.."/ddt_file"))
+         assert.is.falsy(lfs.attributes(deploy_lib_dir.."/ddt."..so.."~"))
+         assert.is.falsy(lfs.attributes(deploy_lua_dir.."/ddt.lua~"))
+         assert.is.falsy(lfs.attributes(deploy_lua_dir.."/ddt_file~"))
+
+         assert.is_true(run.luarocks_bool("make ddt/double_deploy_type-0.2.0-1.rockspec --keep"))
+         assert.is.truthy(lfs.attributes(deploy_lib_dir.."/ddt."..so))
+         assert.is.truthy(lfs.attributes(deploy_lua_dir.."/ddt.lua"))
+         assert.same("ddt2", loadfile(deploy_lua_dir.."/ddt.lua")())
+         assert.is.truthy(lfs.attributes(deploy_lua_dir.."/ddt_file"))
+         assert.is.falsy(lfs.attributes(deploy_lib_dir.."/ddt."..so.."~"))
+         assert.is.falsy(lfs.attributes(deploy_lua_dir.."/ddt.lua~"))
+         assert.is.falsy(lfs.attributes(deploy_lua_dir.."/ddt_file~"))
+         assert.is.truthy(lfs.attributes(deploy_lib_dir.."/double_deploy_type_0_1_0_1-ddt."..so))
+         assert.is.truthy(lfs.attributes(deploy_lua_dir.."/double_deploy_type_0_1_0_1-ddt.lua"))
+         assert.same("ddt1", loadfile(deploy_lua_dir.."/double_deploy_type_0_1_0_1-ddt.lua")())
+         assert.is.truthy(lfs.attributes(deploy_lua_dir.."/double_deploy_type_0_1_0_1-ddt_file"))
+      end)
+
+      it("modules with same name from lua/ and lib/ when downgrading", function()
+         assert.is_true(run.luarocks_bool("make ddt/double_deploy_type-0.2.0-1.rockspec"))
+         assert.is.truthy(lfs.attributes(deploy_lib_dir.."/ddt."..so))
+         assert.is.truthy(lfs.attributes(deploy_lua_dir.."/ddt.lua"))
+         assert.same("ddt2", loadfile(deploy_lua_dir.."/ddt.lua")())
+         assert.is.truthy(lfs.attributes(deploy_lua_dir.."/ddt_file"))
+         assert.is.falsy(lfs.attributes(deploy_lib_dir.."/ddt."..so.."~"))
+         assert.is.falsy(lfs.attributes(deploy_lua_dir.."/ddt.lua~"))
+         assert.is.falsy(lfs.attributes(deploy_lua_dir.."/ddt_file~"))
+
+         assert.is_true(run.luarocks_bool("make ddt/double_deploy_type-0.1.0-1.rockspec"))
+         assert.is.truthy(lfs.attributes(deploy_lib_dir.."/ddt."..so))
+         assert.is.truthy(lfs.attributes(deploy_lua_dir.."/ddt.lua"))
+         assert.same("ddt1", loadfile(deploy_lua_dir.."/ddt.lua")())
+         assert.is.truthy(lfs.attributes(deploy_lua_dir.."/ddt_file"))
+         assert.is.falsy(lfs.attributes(deploy_lib_dir.."/ddt."..so.."~"))
+         assert.is.falsy(lfs.attributes(deploy_lua_dir.."/ddt.lua~"))
+         assert.is.falsy(lfs.attributes(deploy_lua_dir.."/ddt_file~"))
+      end)
+
+      it("modules with same name from lua/ and lib/ when downgrading with --keep", function()
+         assert.is_true(run.luarocks_bool("make ddt/double_deploy_type-0.2.0-1.rockspec"))
+         assert.is.truthy(lfs.attributes(deploy_lib_dir.."/ddt."..so))
+         assert.is.truthy(lfs.attributes(deploy_lua_dir.."/ddt.lua"))
+         assert.same("ddt2", loadfile(deploy_lua_dir.."/ddt.lua")())
+         assert.is.truthy(lfs.attributes(deploy_lua_dir.."/ddt_file"))
+         assert.is.falsy(lfs.attributes(deploy_lib_dir.."/ddt."..so.."~"))
+         assert.is.falsy(lfs.attributes(deploy_lua_dir.."/ddt.lua~"))
+         assert.is.falsy(lfs.attributes(deploy_lua_dir.."/ddt_file~"))
+
+         assert.is_true(run.luarocks_bool("make ddt/double_deploy_type-0.1.0-1.rockspec --keep"))
+         assert.is.truthy(lfs.attributes(deploy_lib_dir.."/ddt."..so))
+         assert.is.truthy(lfs.attributes(deploy_lua_dir.."/ddt.lua"))
+         assert.same("ddt2", loadfile(deploy_lua_dir.."/ddt.lua")())
+         assert.is.truthy(lfs.attributes(deploy_lua_dir.."/ddt_file"))
+         assert.is.falsy(lfs.attributes(deploy_lib_dir.."/ddt."..so.."~"))
+         assert.is.falsy(lfs.attributes(deploy_lua_dir.."/ddt.lua~"))
+         assert.is.falsy(lfs.attributes(deploy_lua_dir.."/ddt_file~"))
+         assert.is.truthy(lfs.attributes(deploy_lib_dir.."/double_deploy_type_0_1_0_1-ddt."..so))
+         assert.is.truthy(lfs.attributes(deploy_lua_dir.."/double_deploy_type_0_1_0_1-ddt.lua"))
+         assert.same("ddt1", loadfile(deploy_lua_dir.."/double_deploy_type_0_1_0_1-ddt.lua")())
+         assert.is.truthy(lfs.attributes(deploy_lua_dir.."/double_deploy_type_0_1_0_1-ddt_file"))
+      end)
+   end)
+
+   describe("upgrading rockspecs with mixed deploy types", function()
+      before_each(function()
+         test_env.copy_dir(testing_paths.fixtures_dir .. "/mixed_deploy_type", "mdt")
+      end)
+
+      after_each(function()
+         test_env.remove_dir("mdt")
+         os.remove("mdt."..test_env.lib_extension)
+      end)
+
+      it("modules with same name from lua/ and lib/ when upgrading", function()
+         assert.is_true(run.luarocks_bool("make mdt/mixed_deploy_type-0.1.0-1.rockspec"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/share/lua/"..env_variables.LUA_VERSION.."/mdt.lua"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/share/lua/"..env_variables.LUA_VERSION.."/mdt_file"))
+
+         assert.is_true(run.luarocks_bool("make mdt/mixed_deploy_type-0.2.0-1.rockspec"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/lua/"..env_variables.LUA_VERSION.."/mdt."..test_env.lib_extension))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/lua/"..env_variables.LUA_VERSION.."/mdt_file"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/share/lua/"..env_variables.LUA_VERSION.."/mdt.lua"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/share/lua/"..env_variables.LUA_VERSION.."/mdt_file"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/share/lua/"..env_variables.LUA_VERSION.."/mixed_deploy_type_0_1_0_1-mdt.lua"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/share/lua/"..env_variables.LUA_VERSION.."/mixed_deploy_type_0_1_0_1-mdt_file"))
+      end)
+
+      it("modules with same name from lua/ and lib/ when upgrading with --keep", function()
+         assert.is_true(run.luarocks_bool("make mdt/mixed_deploy_type-0.1.0-1.rockspec"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/share/lua/"..env_variables.LUA_VERSION.."/mdt.lua"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/share/lua/"..env_variables.LUA_VERSION.."/mdt_file"))
+
+         assert.is_true(run.luarocks_bool("make mdt/mixed_deploy_type-0.2.0-1.rockspec --keep"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/lua/"..env_variables.LUA_VERSION.."/mdt."..test_env.lib_extension))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/lua/"..env_variables.LUA_VERSION.."/mdt_file"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/share/lua/"..env_variables.LUA_VERSION.."/mdt.lua"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/share/lua/"..env_variables.LUA_VERSION.."/mdt_file"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/share/lua/"..env_variables.LUA_VERSION.."/mixed_deploy_type_0_1_0_1-mdt.lua"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/share/lua/"..env_variables.LUA_VERSION.."/mixed_deploy_type_0_1_0_1-mdt_file"))
+      end)
+
+      it("modules with same name from lua/ and lib/ when downgrading", function()
+         assert.is_true(run.luarocks_bool("make mdt/mixed_deploy_type-0.2.0-1.rockspec"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/lua/"..env_variables.LUA_VERSION.."/mdt."..test_env.lib_extension))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/lua/"..env_variables.LUA_VERSION.."/mdt_file"))
+
+         assert.is_true(run.luarocks_bool("make mdt/mixed_deploy_type-0.1.0-1.rockspec"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/lua/"..env_variables.LUA_VERSION.."/mdt."..test_env.lib_extension))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/lua/"..env_variables.LUA_VERSION.."/mdt_file"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/lua/"..env_variables.LUA_VERSION.."/mixed_deploy_type_0_1_0_1-mdt."..test_env.lib_extension))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/lua/"..env_variables.LUA_VERSION.."/mixed_deploy_type_0_1_0_1-mdt_file"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/share/lua/"..env_variables.LUA_VERSION.."/mdt.lua"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/share/lua/"..env_variables.LUA_VERSION.."/mdt_file"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/share/lua/"..env_variables.LUA_VERSION.."/mixed_deploy_type_0_1_0_1-mdt.lua"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/share/lua/"..env_variables.LUA_VERSION.."/mixed_deploy_type_0_1_0_1-mdt_file"))
+      end)
+
+      it("modules with same name from lua/ and lib/ when downgrading with --keep", function()
+         assert.is_true(run.luarocks_bool("make mdt/mixed_deploy_type-0.2.0-1.rockspec"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/lua/"..env_variables.LUA_VERSION.."/mdt."..test_env.lib_extension))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/lua/"..env_variables.LUA_VERSION.."/mdt_file"))
+
+         assert.is_true(run.luarocks_bool("make mdt/mixed_deploy_type-0.1.0-1.rockspec --keep"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/lua/"..env_variables.LUA_VERSION.."/mdt."..test_env.lib_extension))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/lua/"..env_variables.LUA_VERSION.."/mdt_file"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/share/lua/"..env_variables.LUA_VERSION.."/mdt.lua"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/share/lua/"..env_variables.LUA_VERSION.."/mdt_file"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/share/lua/"..env_variables.LUA_VERSION.."/mixed_deploy_type_0_1_0_1-mdt.lua"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/share/lua/"..env_variables.LUA_VERSION.."/mixed_deploy_type_0_1_0_1-mdt_file"))
+      end)
+   end)
+end)