1 files changed, 129 insertions, 0 deletions
diff --git a/spec/remove_spec.lua b/spec/remove_spec.lua
new file mode 100644
index 0000000..3bcfbb2
--- /dev/null
+++ b/spec/remove_spec.lua
@@ -0,0 +1,129 @@
+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 V = test_env.V
+local P = test_env.P
+
+local extra_rocks = {
+   "/abelhas-1.1-1.src.rock",
+   "/copas-${COPAS}.src.rock",
+   "/coxpcall-1.16.0-1.src.rock",
+   "/coxpcall-1.16.0-1.rockspec",
+   "/luafilesystem-${LUAFILESYSTEM}.src.rock",
+   "/luafilesystem-${LUAFILESYSTEM_OLD}.src.rock",
+}
+
+describe("luarocks remove #integration", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+   end)
+
+   describe("basic tests", function()
+      it("with no flags/arguments", function()
+         assert.is_false(run.luarocks_bool("remove"))
+      end)
+
+      it("invalid rock", function()
+         assert.is_false(run.luarocks_bool("remove invalid.rock"))
+      end)
+
+      it("missing rock", function()
+         assert.is_false(run.luarocks_bool("remove missing_rock"))
+      end)
+
+      it("invalid argument", function()
+         assert.is_false(run.luarocks_bool("remove luacov --deps-mode"))
+      end)
+
+      it("built abelhas", function()
+         assert.is_true(run.luarocks_bool("build abelhas 1.1"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_rocks .. "/abelhas"))
+         assert.is_true(run.luarocks_bool("remove abelhas 1.1"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_rocks .. "/abelhas"))
+      end)
+
+      it("built abelhas with uppercase name", function()
+         assert.is_true(run.luarocks_bool("build abelhas 1.1"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_rocks .. "/abelhas"))
+         assert.is_true(run.luarocks_bool("remove Abelhas 1.1"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_rocks .. "/abelhas"))
+      end)
+   end)
+
+   describe("more complex tests", function()
+      before_each(function()
+         assert.is.truthy(test_env.need_rock("coxpcall"))
+      end)
+
+      it("fail, break dependencies", function()
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_rocks .. "/coxpcall"))
+         assert.is_true(run.luarocks_bool("build copas"))
+
+         assert.is_false(run.luarocks_bool("remove coxpcall"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_rocks .. "/coxpcall"))
+      end)
+
+      it("force", function()
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_rocks .. "/coxpcall"))
+         assert.is_true(run.luarocks_bool("build copas"))
+
+         local output = run.luarocks("remove --force coxpcall")
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_rocks .. "/coxpcall"))
+         assert.is.truthy(output:find("Checking stability of dependencies"))
+      end)
+
+      it("force fast", function()
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_rocks .. "/coxpcall"))
+         assert.is_true(run.luarocks_bool("build copas"))
+
+         local output = run.luarocks("remove --force-fast coxpcall")
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_rocks .. "/coxpcall"))
+         assert.is.falsy(output:find("Checking stability of dependencies"))
+      end)
+
+      it("restores old versions", function()
+         local libdir = P(testing_paths.testing_sys_tree .. "/lib/lua/"..env_variables.LUA_VERSION)
+
+         assert.is_true(run.luarocks_bool("install luafilesystem ${LUAFILESYSTEM_OLD_V}"))
+         assert.is.truthy(lfs.attributes(libdir.."/lfs."..test_env.lib_extension))
+
+         if test_env.TEST_TARGET_OS ~= "windows" then
+            local fd = io.open(libdir.."/lfs."..test_env.lib_extension, "r")
+            assert(fd:read("*a"):match(V"LuaFileSystem ${LUAFILESYSTEM_OLD_V}", 1, true))
+            fd:close()
+         end
+
+         local suffix = (V"${LUAFILESYSTEM_OLD}"):gsub("[%.%-]", "_")
+
+         assert.is_true(run.luarocks_bool("install luafilesystem ${LUAFILESYSTEM_V} --keep"))
+         assert.is.truthy(lfs.attributes(libdir.."/lfs."..test_env.lib_extension))
+         assert.is.truthy(lfs.attributes(libdir.."/luafilesystem_"..suffix.."-lfs."..test_env.lib_extension))
+
+         if test_env.TEST_TARGET_OS ~= "windows" then
+            local fd = io.open(libdir.."/lfs."..test_env.lib_extension, "r")
+            assert(fd:read("*a"):match(V"LuaFileSystem ${LUAFILESYSTEM_V}", 1, true))
+            fd:close()
+         end
+
+         assert.is_true(run.luarocks_bool("remove luafilesystem ${LUAFILESYSTEM_V}"))
+         assert.is.truthy(lfs.attributes(libdir.."/lfs."..test_env.lib_extension))
+
+         if test_env.TEST_TARGET_OS ~= "windows" then
+            local fd = io.open(libdir.."/lfs."..test_env.lib_extension, "r")
+            assert(fd:read("*a"):match(V"LuaFileSystem ${LUAFILESYSTEM_OLD_V}", 1, true))
+            fd:close()
+         end
+      end)
+   end)
+
+   it("#admin remove #ssh", function()
+      assert.is_true(run.luarocks_admin_bool("--server=testing remove coxpcall-1.16.0-1.src.rock"))
+   end)
+
+   it("#admin remove missing", function()
+      assert.is_false(run.luarocks_admin_bool("--server=testing remove"))
+   end)
+end)