local test_env = require("test/test_environment") local lfs = require("lfs") local run = test_env.run local testing_paths = test_env.testing_paths test_env.unload_luarocks() local extra_rocks = { "/abelhas-1.0-1.rockspec", "/lualogging-1.3.0-1.src.rock", "/luasocket-3.0rc1-2.src.rock", "/luasocket-3.0rc1-2.rockspec" } describe("LuaRocks remove tests #blackbox #b_remove", function() before_each(function() test_env.setup_specs(extra_rocks) end) describe("LuaRocks remove basic tests", function() it("LuaRocks remove with no flags/arguments", function() assert.is_false(run.luarocks_bool("remove")) end) it("LuaRocks remove invalid rock", function() assert.is_false(run.luarocks_bool("remove invalid.rock")) end) it("LuaRocks remove missing rock", function() assert.is_false(run.luarocks_bool("remove missing_rock")) end) it("LuaRocks remove invalid argument", function() assert.is_false(run.luarocks_bool("remove luacov --deps-mode")) end) it("LuaRocks remove built abelhas", function() assert.is_true(run.luarocks_bool("build abelhas 1.0")) assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/abelhas")) assert.is_true(run.luarocks_bool("remove abelhas 1.0")) assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/abelhas")) end) it("LuaRocks remove built abelhas with uppercase name", function() assert.is_true(run.luarocks_bool("build abelhas 1.0")) assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/abelhas")) assert.is_true(run.luarocks_bool("remove Abelhas 1.0")) assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/abelhas")) end) end) describe("LuaRocks remove more complex tests", function() before_each(function() assert.is.truthy(test_env.need_rock("luasocket")) end) it("LuaRocks remove fail, break dependencies", function() assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/luasocket")) assert.is_true(run.luarocks_bool("build lualogging")) assert.is_false(run.luarocks_bool("remove luasocket")) assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/luasocket")) end) it("LuaRocks remove force", function() assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/luasocket")) assert.is_true(run.luarocks_bool("build lualogging")) local output = run.luarocks("remove --force luasocket") assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/luasocket")) assert.is.truthy(output:find("Checking stability of dependencies")) end) it("LuaRocks remove force fast", function() assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/luasocket")) assert.is_true(run.luarocks_bool("build lualogging")) local output = run.luarocks("remove --force-fast luasocket") assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/luasocket")) assert.is.falsy(output:find("Checking stability of dependencies")) end) end) it("LuaRocks-admin remove #ssh", function() assert.is_true(run.luarocks_admin_bool("--server=testing remove luasocket-3.0rc1-2.src.rock")) end) it("LuaRocks-admin remove missing", function() assert.is_false(run.luarocks_admin_bool("--server=testing remove")) end) end)