local test_env = require("test/test_environment") local lfs = require("lfs") local run = test_env.run local testing_paths = test_env.testing_paths local env_variables = test_env.env_variables describe("Basic tests #blackbox #b_util", function() before_each(function() test_env.setup_specs() end) it("LuaRocks version", function() assert.is_true(run.luarocks_bool("--version")) end) it("LuaRocks unknown command", function() assert.is_false(run.luarocks_bool("unknown_command")) end) it("LuaRocks arguments fail", function() assert.is_false(run.luarocks_bool("--porcelain=invalid")) assert.is_false(run.luarocks_bool("--invalid-flag")) assert.is_false(run.luarocks_bool("--server")) assert.is_false(run.luarocks_bool("--server --porcelain")) assert.is_false(run.luarocks_bool("--invalid-flag=abc")) assert.is_false(run.luarocks_bool("invalid=5")) end) it("LuaRocks execute from not existing directory #unix", function() local main_path = lfs.currentdir() assert.is_true(lfs.mkdir("idontexist")) assert.is_true(lfs.chdir("idontexist")) local delete_path = lfs.currentdir() assert.is_true(os.remove(delete_path)) local output = run.luarocks("") assert.is.falsy(output:find("LuaRocks scm, a module deployment system for Lua")) assert.is_true(lfs.chdir(main_path)) output = run.luarocks("") assert.is.truthy(output:find("LuaRocks scm, a module deployment system for Lua")) end) it("LuaRocks timeout", function() assert.is.truthy(run.luarocks("--timeout=10")) end) it("LuaRocks timeout invalid", function() assert.is_false(run.luarocks_bool("--timeout=abc")) end) it("LuaRocks only server=testing", function() assert.is.truthy(run.luarocks("--only-server=testing")) end) it("LuaRocks test site config", function() assert.is.truthy(os.rename("src/luarocks/site_config.lua", "src/luarocks/site_config.lua.tmp")) assert.is.falsy(lfs.attributes("src/luarocks/site_config.lua")) assert.is.truthy(lfs.attributes("src/luarocks/site_config.lua.tmp")) assert.is.truthy(run.luarocks("")) assert.is.truthy(os.rename("src/luarocks/site_config.lua.tmp", "src/luarocks/site_config.lua")) assert.is.falsy(lfs.attributes("src/luarocks/site_config.lua.tmp")) assert.is.truthy(lfs.attributes("src/luarocks/site_config.lua")) end) -- Disable versioned config temporarily, because it always takes -- precedence over config.lua (config-5.x.lua is installed by default on Windows, -- but not on Unix, so on Unix the os.rename commands below will fail silently, but this is harmless) describe("LuaRocks config - more complex tests", function() local scdir = testing_paths.testing_lrprefix .. "/etc/luarocks" local versioned_scname = scdir .. "/config-" .. env_variables.LUA_VERSION .. ".lua" local scname = scdir .. "/config.lua" local configfile if test_env.TEST_TARGET_OS == "windows" then configfile = versioned_scname else configfile = scname end it("LuaRocks fail system config", function() os.rename(versioned_scname, versioned_scname .. "bak") local ok = run.luarocks_bool("config --system-config") os.rename(versioned_scname .. ".bak", versioned_scname) assert.is_false(ok) end) it("LuaRocks system config", function() lfs.mkdir(testing_paths.testing_lrprefix) lfs.mkdir(testing_paths.testing_lrprefix .. "/etc/") lfs.mkdir(scdir) local sysconfig = io.open(configfile, "w+") sysconfig:write(" ") sysconfig:close() local output = run.luarocks("config --system-config") os.remove(configfile) assert.are.same(output, configfile) end) it("LuaRocks fail system config invalid", function() lfs.mkdir(testing_paths.testing_lrprefix) lfs.mkdir(testing_paths.testing_lrprefix .. "/etc/") lfs.mkdir(scdir) local sysconfig = io.open(configfile, "w+") sysconfig:write("if if if") sysconfig:close() local ok = run.luarocks_bool("config --system-config") os.remove(configfile) assert.is_false(ok) end) end) end) test_env.unload_luarocks() local util = require("luarocks.util") describe("Luarocks util test #whitebox #w_util", function() describe("util.sortedpairs", function() local function collect(iter, state, var) local collected = {} while true do local returns = {iter(state, var)} if returns[1] == nil then return collected else table.insert(collected, returns) var = returns[1] end end end it("default sort", function() assert.are.same({}, collect(util.sortedpairs({}))) assert.are.same({ {1, "v1"}, {2, "v2"}, {3, "v3"}, {"bar", "v5"}, {"foo", "v4"} }, collect(util.sortedpairs({"v1", "v2", "v3", foo = "v4", bar = "v5"}))) end) it("sort by function", function() local function compare(a, b) return a > b end assert.are.same({}, collect(util.sortedpairs({}, compare))) assert.are.same({ {3, "v3"}, {2, "v2"}, {1, "v1"} }, collect(util.sortedpairs({"v1", "v2", "v3"}, compare))) end) it("sort by priority table", function() assert.are.same({}, collect(util.sortedpairs({}, {"k1", "k2"}))) assert.are.same({ {"k3", "v3"}, {"k2", "v2", {"sub order"}}, {"k1", "v1"}, {"k4", "v4"}, {"k5", "v5"}, }, collect(util.sortedpairs({ k1 = "v1", k2 = "v2", k3 = "v3", k4 = "v4", k5 = "v5" }, {"k3", {"k2", {"sub order"}}, "k1"}))) end) end) end)