From 5af7e0d7c2dcf65e41ae8523f3771e9528be32a7 Mon Sep 17 00:00:00 2001 From: robooo Date: Thu, 7 Jul 2016 21:58:19 +0200 Subject: New test-suite for LuaRocks (#581) First version of new test-suite, using Busted framework based on Google Summer of Code project: https://summerofcode.withgoogle.com/projects/#5695811874717696 * Rewritten from Bash to Lua * Tests now check if they did what they were supposed to, beyond only checking success or failure of the `luarocks` command * Support for black-box (launching `luarocks` as an external command) and white-box (testing functions in modules directly) testing --- test/README.md | 59 +++++ test/test_environment.lua | 625 ++++++++++++++++++++++++++++++++++++++++++++ test/testing.lua | 483 ---------------------------------- test/testing.sh | 651 ---------------------------------------------- 4 files changed, 684 insertions(+), 1134 deletions(-) create mode 100644 test/README.md create mode 100644 test/test_environment.lua delete mode 100644 test/testing.lua delete mode 100755 test/testing.sh (limited to 'test') diff --git a/test/README.md b/test/README.md new file mode 100644 index 00000000..c374438f --- /dev/null +++ b/test/README.md @@ -0,0 +1,59 @@ +#LuaRocks testsuite +##Overview +Test suite for LuaRocks project with Busted unit testing framework(http://olivinelabs.com/busted/). + +* Contains white-box & black-box tests +* Easy setup for your purpose on command line or from configuration file + + +## Dependencies +* Lua >= 5.1 +* Busted with dependencies + + +##Usage +Running of tests is based on basic Busted usage. *-Xhelper* flag is mandatory for inserting arguments into testing (primary black-box). Flag *--tags=* or *-t* is mandatory for specifying which tests will run. Mandatory *-Xhelper* flag always needs version of Lua or LuaJIT (e.g. *lua=5.2.4* or *luajit=2.0.3*). Start tests inside LuaRocks folder or specify with *-C* flag. + +**Arguments for Busted helper script** + +``` +lua=, !mandatory! type your full version of Lua (e.g. lua=5.2.4) +OR +luajit=, !mandatory! type your full version of LuaJIT (e.g. luajit=5.2.4) + +env=, (default:"minimal") type what kind of environment to use ["minimal", "full"] +clean, remove existing testing environment +travis, add just if running on TravisCI +os=, type your OS ["linux", "os x", "windows"] +``` +--------------------------------------------------------------------------------------------- +####_**Tags** of tests are required and are in this format:_ + +**whitebox** - run all whitebox tests + +**blackbox** - run all blackbox tests + +**ssh** - run all tests which require ssh + +**w**\_*name-of-command* - whitebox testing of command + +**b**\_*name-of-command* - blackbox testing of command + +for example: `b_install` or `w_help` + +###Examples +To run white-box tests in LuaRocks directory type : + +`busted -t "whitebox"` + +To run black-box tests just of *install* command (we defined our OS, so OS check is skipped.): + +`busted -Xhelper lua=5.2.4,os=linux -t "b_install"` + +To run black-box tests of *install* command, whitebox of *help* command (using *full* type of environment): + +`busted -Xhelper lua=5.2.4,env=full -t "b_install", "w_help"` + +To run black-box tests without tests, which use ssh: + +`busted -Xhelper lua=5.2.4 -t "blackbox" --exclude-tags=ssh` \ No newline at end of file diff --git a/test/test_environment.lua b/test/test_environment.lua new file mode 100644 index 00000000..6de501fb --- /dev/null +++ b/test/test_environment.lua @@ -0,0 +1,625 @@ +local lfs = require("lfs") +local test_env = {} +local arg = arg or { ... } + +local function help() + print("LuaRocks test-suite\n\n".. + [[ + INFORMATION + New test-suite for LuaRocks project, using unit testing framework Busted. + REQUIREMENTS + Tests require to have Lua installed and added to PATH. Be sure sshd is runnig on your system, or + use '--exclude-tags=ssh', to not execute tests which require sshd. + USAGE -Xhelper + lua= (mandatory) type your full version of Lua (e.g. --lua 5.2.4) + OR + luajit= (mandatory) type your full version of LuaJIT (e.g. --luajit 2.0.3) + + env= (default:"minimal") type what kind of environment to use ["minimal", "full"] + clean remove existing testing environment + travis add just if running on TravisCI + os= type your OS ["linux", "osx", "windows"] + ]]); + os.exit(1) +end + +--- Helper function for execute_bool and execute_output +-- @param command string: command to execute +-- @param print_command boolean: print command if 'true' +-- @param env_variables table: table of environment variables to export {FOO="bar", BAR="foo"} +-- @return final_command string: concatenated command to execution +local function execute_helper(command, print_command, env_variables) + local final_command = "" + + if print_command then + print("\n[EXECUTING]: " .. command) + end + + if env_variables then + final_command = "export " + for k,v in pairs(env_variables) do + final_command = final_command .. k .. "='" .. v .. "' " + end + -- remove last space and add ';' to separate exporting variables from command + final_command = final_command:sub(1, -2) .. "; " + end + + final_command = final_command .. command + + return final_command +end + +--- Execute command and returns true/false +-- In Lua5.1 os.execute returns numeric value, but in Lua5.2+ returns boolean +-- @return true/false boolean: status of the command execution +local function execute_bool(command, print_command, env_variables) + command = execute_helper(command, print_command, env_variables) + + local ok = os.execute(command) + return ok == true or ok == 0 +end + +--- Execute command and returns output of command +-- @return output string: output the command execution +local function execute_output(command, print_command, env_variables) + command = execute_helper(command, print_command, env_variables) + + local file = assert(io.popen(command)) + local output = file:read('*all') + file:close() + return output:gsub("\n","") -- output adding new line, need to be removed +end + +--- Set all arguments from input into global variables +function test_env.set_args() + if arg[1] == nil then + help() + end + + local args_position + + for i=1, #arg do + if arg[i]:find("-Xhelper") and arg[i+1]:find("lua=") and not arg[i+1]:find("luajit=") then + args_position = i+1 + test_env.LUA_V = arg[args_position]:gsub("(.*)lua=([^%,]+)(.*)","%2") + break + elseif arg[i]:find("-Xhelper") and not arg[i+1]:find("lua=") and arg[i+1]:find("luajit=") then + args_position = i+1 + test_env.LUAJIT_V = arg[args_position]:gsub("(.*)luajit=([^%,]+)(.*)","%2") + break + elseif arg[i]:find("-Xhelper") and arg[i+1]:find("lua=") and arg[i+1]:find("luajit=") then + print("Please specify just Lua or LuaJIT version for testing in format 'lua=X.X.X' or 'luajit=X.X.X', for -Xhelper flag") + os.exit(1) + elseif arg[i]:find("-Xhelper") and not arg[i+1]:find("lua=") and not arg[i+1]:find("luajit=") then + print("Please add mandatory argument - version of Lua or LuaJIT in format 'lua=X.X.X' or 'luajit=X.X.X', for -Xhelper flag") + os.exit(1) + end + end + + if not args_position then + help() + end + + -- if at least Lua/LuaJIT version argument was found on input start to parse other arguments to env. variables + test_env.TYPE_TEST_ENV = "minimal" + + if arg[args_position]:find("env=") then + test_env.TYPE_TEST_ENV = arg[args_position]:gsub("(.*)env=([^%,]+)(.*)","%2") + end + if arg[args_position]:find("clean") then + test_env.TEST_ENV_CLEAN = true + end + if arg[args_position]:find("travis") then + test_env.TRAVIS = true + end + if arg[args_position]:find("os=") then + test_env.TEST_TARGET_OS = arg[args_position]:gsub("(.*)os=([^%,]+)(.*)","%2") + end + + if not test_env.TEST_TARGET_OS then + print("[OS CHECK]") + if execute_bool("sw_vers") then + test_env.TEST_TARGET_OS = "osx" + elseif execute_bool("uname -s") then + test_env.TEST_TARGET_OS = "linux" + else + test_env.TEST_TARGET_OS = "windows" + end + print("--------------") + end + return true +end + +--- Remove directory recursively +-- @param path string: directory path to delete +function test_env.remove_dir(path) + if lfs.attributes(path) then + for file in lfs.dir(path) do + if file ~= "." and file ~= ".." then + local full_path = path..'/'..file + local attr = lfs.attributes(full_path) + + if attr.mode == "directory" then + test_env.remove_dir(full_path) + os.remove(full_path) + else + os.remove(full_path) + end + end + end + end + os.remove(path) +end + +--- Remove directory recursively +-- @param path string: directory path to delete +-- @param pattern string: pattern in directories +function test_env.remove_dir_pattern(path, pattern) + if lfs.attributes(path) then + for file in lfs.dir(path) do + if file ~= "." and file ~= ".." then + local full_path = path..'/'..file + local attr = lfs.attributes(full_path) + + if attr.mode == "directory" and file:find(pattern) then + test_env.remove_dir(full_path) + os.remove(full_path) + end + end + end + end +end + +--- Remove files based on filename +-- @param path string: directory where to delete files +-- @param pattern string: pattern in filenames +-- @return result_check boolean: true if one or more files deleted +function test_env.remove_files(path, pattern) + local result_check = false + if lfs.attributes(path) then + for file in lfs.dir(path) do + if file ~= "." and file ~= ".." then + if file:find(pattern) then + if os.remove(path .. "/" .. file) then + result_check = true + end + end + end + end + end + return result_check +end + + +--- Function for downloading rocks and rockspecs +-- @param rocks table: table with full name of rocks/rockspecs to download +-- @param save_path string: path to directory, where to download rocks/rockspecs +-- @return make_manifest boolean: true if new rocks downloaded +local function download_rocks(rocks, save_path) + local luarocks_repo = "https://luarocks.org" + local make_manifest = false + + for _,rock in ipairs(rocks) do + -- check if already downloaded + if not os.rename( save_path .. rock, save_path .. rock) then + execute_bool("wget -cP " .. save_path .. " " .. luarocks_repo .. rock) + make_manifest = true + end + end + return make_manifest +end + +--- Create config files for testing +-- @param config_path string: path where to save config file +-- @param config_content string: content of this config file +local function create_config(config_path, config_content) + local file, err = io.open(config_path, "w+") + if not file then return nil, err end + file:write(config_content) + file:close() +end + +--- Create md5sum of directory structure recursively, based on filename and size +-- @param path string: path to directory for generate md5sum +-- @param testing_os string(optional): version of PC OS +-- @return md5sum string: md5sum of directory +local function hash_environment(path, testing_os) + local md5sum = "" + testing_os = testing_os or test_env.TEST_TARGET_OS + + if testing_os == "linux" then + md5sum = execute_output("find " .. path .. " -printf \"%s %p\n\" | md5sum") + end + if testing_os == "osx" then + md5sum = execute_output("find " .. path .. " -type f -exec stat -f \"%z %N\" {} \\; | md5") + end + --TODO if testing_os == "windows" then + -- md5sum = execute_output("find . -printf \"%s %p\n\" | md5sum") + -- end + return md5sum +end + +--- Create environment variables needed for tests +-- @param testing_paths table: table with paths to testing directory +-- @return env_variables table: table with created environment variables +local function create_env(testing_paths) + local luaversion_short = _VERSION:gsub("Lua ", "") + + if test_env.LUAJIT_V then + luaversion_short="5.1" + end + + local env_variables = {} + env_variables.LUA_VERSION = luaversion_short + env_variables.LUAROCKS_CONFIG = testing_paths.testing_dir .. "/testing_config.lua" + env_variables.LUA_PATH = testing_paths.testing_tree .. "/share/lua/" .. luaversion_short .. "/?.lua;" + env_variables.LUA_PATH = env_variables.LUA_PATH .. testing_paths.testing_tree .. "/share/lua/".. luaversion_short .. "/?/init.lua;" + env_variables.LUA_PATH = env_variables.LUA_PATH .. testing_paths.testing_sys_tree .. "/share/lua/" .. luaversion_short .. "/?.lua;" + env_variables.LUA_PATH = env_variables.LUA_PATH .. testing_paths.testing_sys_tree .. "/share/lua/".. luaversion_short .. "/?/init.lua;" + env_variables.LUA_PATH = env_variables.LUA_PATH .. testing_paths.src_dir .. "/?.lua;" + env_variables.LUA_CPATH = testing_paths.testing_tree .. "/lib/lua/" .. luaversion_short .. "/?.so;" + .. testing_paths.testing_sys_tree .. "/lib/lua/" .. luaversion_short .. "/?.so;" + env_variables.PATH = os.getenv("PATH") .. ":" .. testing_paths.testing_tree .. "/bin:" .. testing_paths.testing_sys_tree .. "/bin" + + return env_variables +end + +--- Create md5sums of origin system and system-copy testing directory +-- @param testing_paths table: table with paths to testing directory +-- @return md5sums table: table of md5sums of system and system-copy testing directory +local function create_md5sums(testing_paths) + local md5sums = {} + md5sums.testing_tree_copy_md5 = hash_environment(testing_paths.testing_tree_copy) + md5sums.testing_sys_tree_copy_md5 = hash_environment(testing_paths.testing_sys_tree_copy) + + return md5sums +end + +local function run_luarocks(testing_paths, env_variables) + + local function make_command_function(exec_function, lua_cmd, do_print) + return function(cmd, new_vars) + local temp_vars = {} + for k, v in pairs(env_variables) do + temp_vars[k] = v + end + if new_vars then + for k, v in pairs(new_vars) do + temp_vars[k] = v + end + end + return exec_function(lua_cmd .. cmd, do_print, temp_vars) + end + end + + local run = {} + + local cov_str = testing_paths.lua .. " -e\"require('luacov.runner')('" .. testing_paths.testing_dir .. "/luacov.config')\" " + + local luarocks_cmd = cov_str .. testing_paths.src_dir .. "/bin/luarocks " + run.luarocks = make_command_function(execute_output, luarocks_cmd, true) + run.luarocks_bool = make_command_function(execute_bool, luarocks_cmd, true) + run.luarocks_noprint = make_command_function(execute_bool, luarocks_cmd, false) + + local luarocks_nocov_cmd = testing_paths.lua .. " " .. testing_paths.src_dir .. "/bin/luarocks " + run.luarocks_nocov = make_command_function(execute_bool, luarocks_nocov_cmd, true) + run.luarocks_noprint_nocov = make_command_function(execute_bool, luarocks_nocov_cmd, false) + + local luarocks_admin_cmd = cov_str .. testing_paths.src_dir .. "/bin/luarocks-admin " + run.luarocks_admin = make_command_function(execute_output, luarocks_admin_cmd, true) + run.luarocks_admin_bool = make_command_function(execute_bool, luarocks_admin_cmd, true) + + local luarocks_admin_nocov_cmd = testing_paths.lua .. " " .. testing_paths.src_dir .. "/bin/luarocks-admin " + run.luarocks_admin_nocov = make_command_function(execute_bool, luarocks_admin_nocov_cmd, false) + + return run +end + +--- Build environment for testing +local function build_environment(env_rocks, testing_paths, env_variables) + print("\n--------------------") + print("BUILDING ENVIRONMENT") + print("--------------------") + test_env.remove_dir(testing_paths.testing_tree) + test_env.remove_dir(testing_paths.testing_sys_tree) + test_env.remove_dir(testing_paths.testing_tree_copy) + test_env.remove_dir(testing_paths.testing_sys_tree_copy) + + lfs.mkdir(testing_paths.testing_tree) + lfs.mkdir(testing_paths.testing_sys_tree) + + local run = run_luarocks(testing_paths, env_variables) + run.luarocks_admin_nocov("make_manifest " .. testing_paths.testing_server) + run.luarocks_admin_nocov("make_manifest " .. testing_paths.testing_cache) + + for _,package in ipairs(env_rocks) do + if not run.luarocks_nocov("install --only-server=" .. testing_paths.testing_cache .. " --tree=" .. testing_paths.testing_sys_tree .. " " .. package, env_variables) then + run.luarocks_nocov("build --tree=" .. testing_paths.testing_sys_tree .. " " .. package, env_variables) + run.luarocks_nocov("pack --tree=" .. testing_paths.testing_sys_tree .. " " .. package .. "; mv " .. package .. "-*.rock " .. testing_paths.testing_cache, env_variables) + end + end + + execute_bool("cp -a " .. testing_paths.testing_tree .. "/. " .. testing_paths.testing_tree_copy) + execute_bool("cp -a " .. testing_paths.testing_sys_tree .. "/. " .. testing_paths.testing_sys_tree_copy) +end + +--- Reset testing environment +local function reset_environment(testing_paths, md5sums) + local testing_tree_md5 = hash_environment(testing_paths.testing_tree) + local testing_sys_tree_md5 = hash_environment(testing_paths.testing_sys_tree) + + if testing_tree_md5 ~= md5sums.testing_tree_copy_md5 then + test_env.remove_dir(testing_paths.testing_tree) + execute_bool("cp -a " .. testing_paths.testing_tree_copy .. "/. " .. testing_paths.testing_tree) + end + if testing_sys_tree_md5 ~= md5sums.testing_sys_tree_copy_md5 then + test_env.remove_dir(testing_paths.testing_sys_tree) + execute_bool("cp -a " .. testing_paths.testing_sys_tree_copy .. "/. " .. testing_paths.testing_sys_tree) + end + + print("\n[ENVIRONMENT RESET]") +end + +local function create_paths(luaversion_full) + local testing_paths = {} + + testing_paths.luadir = "" + + if test_env.TRAVIS then + testing_paths.luadir = lfs.currentdir() .. "/lua_install" + testing_paths.lua = testing_paths.luadir .. "/bin/lua" + end + + if test_env.LUA_V and not test_env.TRAVIS then + if lfs.attributes("/usr/bin/lua") then + testing_paths.luadir = "/usr" + testing_paths.lua = testing_paths.luadir .. "/bin/lua" + elseif lfs.attributes("/usr/local/bin/lua") then + testing_paths.luadir = "/usr/local" + testing_paths.lua = testing_paths.luadir .. "/bin/lua" + end + elseif test_env.LUAJIT_V and not test_env.TRAVIS then + if lfs.attributes("/usr/bin/luajit") then + testing_paths.luadir = "/usr" + testing_paths.lua = testing_paths.luadir .. "/bin/luajit" + elseif lfs.attributes("/usr/local/bin/luajit") then + testing_paths.luadir = "/usr/local" + testing_paths.lua = testing_paths.luadir .. "/bin/luajit" + end + end + + testing_paths.luarocks_tmp = "/tmp/luarocks_testing" --windows? + + testing_paths.luarocks_dir = lfs.currentdir() + testing_paths.testing_dir = testing_paths.luarocks_dir .. "/test" + testing_paths.src_dir = testing_paths.luarocks_dir .. "/src" + testing_paths.testing_lrprefix = testing_paths.testing_dir .. "/testing_lrprefix-" .. luaversion_full + testing_paths.testing_tree = testing_paths.testing_dir .. "/testing-" .. luaversion_full + testing_paths.testing_tree_copy = testing_paths.testing_dir .. "/testing_copy-" .. luaversion_full + testing_paths.testing_sys_tree = testing_paths.testing_dir .. "/testing_sys-" .. luaversion_full + testing_paths.testing_sys_tree_copy = testing_paths.testing_dir .. "/testing_sys_copy-" .. luaversion_full + testing_paths.testing_cache = testing_paths.testing_dir .. "/testing_cache-" .. luaversion_full + testing_paths.testing_server = testing_paths.testing_dir .. "/testing_server-" .. luaversion_full + + return testing_paths +end + +--- Helper function to unload luarocks modules from global table package.loaded +-- Needed to load our local (testing) version of LuaRocks +function test_env.unload_luarocks() + for modname, _ in pairs(package.loaded) do + if modname:match("^luarocks%.") then + package.loaded[modname] = nil + end + end +end + +--- Function for initially setup of environment, variables, md5sums for spec files +function test_env.setup_specs(extra_rocks, luaversion_full) + -- if global variable about successful creation of testing environment doesn't exists, build environment + if not test_env.setup_done then + test_env.set_args() + + if test_env.TRAVIS then + if not os.rename(os.getenv("HOME") .. "/.ssh/id_rsa.pub", os.getenv("HOME") .. "/.ssh/id_rsa.pub") then + execute_bool("ssh-keygen -t rsa -P \"\" -f ~/.ssh/id_rsa") + execute_bool("cat ~/.ssh/id_rsa.pub >> ~/.ssh/authorized_keys") + execute_bool("chmod og-wx ~/.ssh/authorized_keys") + execute_bool("ssh-keyscan localhost >> ~/.ssh/known_hosts") + end + end + + luaversion_full = luaversion_full or test_env.LUA_V or test_env.LUAJIT_V + + test_env.main() + + -- Set paths, env_vars and functions for specs + test_env.testing_paths = create_paths(luaversion_full) + test_env.env_variables = create_env(test_env.testing_paths) + package.path = test_env.env_variables.LUA_PATH + + test_env.run = run_luarocks(test_env.testing_paths, test_env.env_variables) + test_env.platform = execute_output(test_env.testing_paths.lua .. " -e 'print(require(\"luarocks.cfg\").arch)'", false, test_env.env_variables) + test_env.md5sums = create_md5sums(test_env.testing_paths) + test_env.setup_done = true + end + + if extra_rocks then + local make_manifest = download_rocks(extra_rocks, test_env.testing_paths.testing_server) + if make_manifest then + local run = run_luarocks(test_env.testing_paths, test_env.env_variables) + run.luarocks_admin_nocov("make_manifest " .. test_env.testing_paths.testing_server) + end + end + + reset_environment(test_env.testing_paths, test_env.md5sums, test_env.env_variables) + + return true +end + +--- Helper function for tests which needs luasocket installed +function test_env.need_luasocket(luarocks_nocov, testing_cache, platform) + luarocks_nocov = luarocks_nocov or test_env.run.luarocks_nocov + testing_cache = testing_cache or test_env.testing_paths.testing_cache + platform = platform or test_env.platform + + if luarocks_nocov("show luasocket") then + return true + else + testing_cache = testing_cache .. "/" + local luasocket_rock = "luasocket-3.0rc1-1." .. platform .. ".rock" + if not os.rename( testing_cache .. luasocket_rock, testing_cache .. luasocket_rock) then + luarocks_nocov("build --pack-binary-rock luasocket 3.0rc1-1") + os.rename(luasocket_rock, testing_cache .. luasocket_rock) + end + luarocks_nocov("install " .. testing_cache .. luasocket_rock) + end + return true +end + +--- +-- Main function to create config files and testing environment +function test_env.main(luaversion_full, env_type, env_clean) + luaversion_full = luaversion_full or test_env.LUA_V or test_env.LUAJIT_V + local testing_paths = create_paths(luaversion_full) + + env_clean = env_clean or test_env.TEST_ENV_CLEAN + if env_clean then + print("Cleaning testing directory...") + test_env.remove_dir(testing_paths.luarocks_tmp) + test_env.remove_dir_pattern(testing_paths.testing_dir, "testing_") + test_env.remove_dir_pattern(testing_paths.testing_dir, "testing-") + test_env.remove_files(testing_paths.testing_dir, "testing_") + test_env.remove_files(testing_paths.testing_dir, "luacov") + print("Cleaning done!") + end + + lfs.mkdir(testing_paths.testing_cache) + lfs.mkdir(testing_paths.luarocks_tmp) + +--- CONFIG FILES +-- testing_config.lua and testing_config_show_downloads.lua + local config_content = ([[rocks_trees = { + "%{testing_tree}", + { name = "system", root = "%{testing_sys_tree}" }, +} +rocks_servers = { + "%{testing_server}" +} +local_cache = "%{testing_cache}" +upload_server = "testing" +upload_user = "%{user}" +upload_servers = { + testing = { + rsync = "localhost/tmp/luarocks_testing", + }, +} +external_deps_dirs = { + "/usr/local", + "/usr", + -- These are used for a test that fails, so it + -- can point to invalid paths: + { + prefix = "/opt", + bin = "bin", + include = "include", + lib = { "lib", "lib64" }, + } +}]]):gsub("%%%b{}", { + ["%{user}"] = os.getenv("USER"), + ["%{testing_sys_tree}"] = testing_paths.testing_sys_tree, + ["%{testing_tree}"] = testing_paths.testing_tree, + ["%{testing_server}"] = testing_paths.testing_server, + ["%{testing_cache}"] = testing_paths.testing_cache}) + + create_config(testing_paths.testing_dir .. "/testing_config.lua", config_content .. " \nweb_browser = \"true\"") + create_config(testing_paths.testing_dir .. "/testing_config_show_downloads.lua", config_content + .. "show_downloads = true \n rocks_servers={\"http://luarocks.org/repositories/rocks\"}") + +-- testing_config_sftp.lua + config_content=([[rocks_trees = { + "%{testing_tree}", + "%{testing_sys_tree}", +} +local_cache = "%{testing_cache}" +upload_server = "testing" +upload_user = "%{user}" +upload_servers = { + testing = { + sftp = "localhost/tmp/luarocks_testing", + }, +}]]):gsub("%%%b{}", { + ["%{user}"] = os.getenv("USER"), + ["%{testing_sys_tree}"] = testing_paths.testing_sys_tree, + ["%{testing_tree}"] = testing_paths.testing_tree, + ["%{testing_cache}"] = testing_paths.testing_cache}) + + create_config(testing_paths.testing_dir .. "/testing_config_sftp.lua", config_content) + +-- luacov.config + config_content=([[return { + statsfile = "%{testing_dir}/luacov.stats.out", + reportfile = "%{testing_dir}/luacov.report.out", + modules = { + ["luarocks"] = "src/bin/luarocks", + ["luarocks-admin"] = "src/bin/luarocks-admin", + ["luarocks.*"] = "src", + ["luarocks.*.*"] = "src", + ["luarocks.*.*.*"] = "src" + } +}]]):gsub("%%%b{}", { + ["%{testing_dir}"] = testing_paths.testing_dir}) + + create_config(testing_paths.testing_dir .. "/luacov.config", config_content) + + -- Create environment variables for configuration + local temp_env_variables = {LUAROCKS_CONFIG = testing_paths.testing_dir .. "/testing_config.lua",LUA_PATH="",LUA_CPATH=""} + + -- Configure LuaRocks testing environment + local configure_cmd = "./configure --with-lua=" .. testing_paths.luadir .. " --prefix=" .. testing_paths.testing_lrprefix + configure_cmd = configure_cmd .. " && make clean" + + if not execute_bool(configure_cmd, false, temp_env_variables) then + os.exit(1) + end + if not execute_bool("make src/luarocks/site_config.lua && make dev", false, temp_env_variables) then + os.exit(1) + end + + -- Preparation of rocks for building environment + env_type = env_type or test_env.TYPE_TEST_ENV + + local env_rocks = {} -- short names of rocks, required for building environment + local rocks = {} -- full names of rocks required for download + rocks[#rocks+1] = "/luacov-0.11.0-1.rockspec" + rocks[#rocks+1] = "/luacov-0.11.0-1.src.rock" + + if env_type == "full" then + rocks[#rocks+1] = "/luafilesystem-1.6.3-1.src.rock" + rocks[#rocks+1] = "/luasocket-3.0rc1-1.src.rock" + rocks[#rocks+1] = "/luasocket-3.0rc1-1.rockspec" + rocks[#rocks+1] = "/luaposix-33.2.1-1.src.rock" + rocks[#rocks+1] = "/md5-1.2-1.src.rock" + rocks[#rocks+1] = "/lzlib-0.4.1.53-1.src.rock" + env_rocks = {"luafilesystem", "luasocket", "luaposix", "md5", "lzlib"} + end + if env_type == "full" and luaversion_full ~= "5.1.5" then + rocks[#rocks+1] = "/luabitop-1.0.2-1.rockspec" + rocks[#rocks+1] = "/luabitop-1.0.2-1.src.rock" + table.insert(env_rocks, "luabitop") + end + + table.insert(env_rocks, "luacov") -- luacov is needed for minimal or full environment + + -- Download rocks needed for LuaRocks testing environment + lfs.mkdir(testing_paths.testing_server) + download_rocks(rocks, testing_paths.testing_server) + + build_environment(env_rocks, testing_paths, temp_env_variables) + + print("----------------") + print(" RUNNING TESTS") + print("----------------") +end + +return test_env diff --git a/test/testing.lua b/test/testing.lua deleted file mode 100644 index 1a837484..00000000 --- a/test/testing.lua +++ /dev/null @@ -1,483 +0,0 @@ - -local variables = {} - --- Expand variables in the format $foo or ${foo} according --- to the variables table. -local function expand_variables(str) - return str:gsub("%$({?)([A-Za-z0-9_]+)(}?)", function(o, v, c) - return #o <= #c and (variables[v] or "") .. (#o < #c and c or "") - end) -end - --- @param cmd command to run --- @param envtable optional table of temporary environment variables -local function run(cmd, envtable) - cmd = expand_variables(cmd) - local env = {} - for var, val in pairs(envtable) do - table.insert(env, var.."='"..expand_variables(val).."' ") - end - local code = os.execute(table.concat(env)..cmd) - return (code == 0 or code == true) -end - -local function cd_run(dir, cmd, envtable) - return run("cd "..dir.." && "..cmd, envtable) -end - -local function run_get_contents(cmd) -end - -local function mkdir(dirname) - cmd = expand_variables(dirname) - -- TODO -end - -local function rm_rf(...) - -- TODO -end - -local function mv(src, dst) - -- TODO -end - -local function exists(filename) - filename = expand_variables(filename) - -- TODO -end - -local function glob(patt) - -- TODO -end - -local function touch(filename) - -- TODO -end - -local function rm(...) - for _, filename in ipairs {...} do - filename = expand_variables(filename) - -- TODO - end - return true -end - -local function file_set_contents(filename, contents) - filename = expand_variables(filename) - - local fd, err = io.open(filename, "w") - if not fd then return nil, err end - fd:write(contents) - fd:close() - return true -end - -local function need_luasocket() - -- TODO -end - -local tests = { - - test_version = function() return run "$luarocks --version" end, - fail_unknown_command = function() return run "$luarocks unknown_command" end, - fail_arg_boolean_parameter = function() return run "$luarocks --porcelain=invalid" end, - fail_arg_boolean_unknown = function() return run "$luarocks --invalid-flag" end, - fail_arg_string_no_parameter = function() return run "$luarocks --server" end, - fail_arg_string_followed_by_flag = function() return run "$luarocks --server --porcelain" end, - fail_arg_string_unknown = function() return run "$luarocks --invalid-flag=abc" end, - test_empty_list = function() return run "$luarocks list" end, - test_list_outdated = function () return run "$luarocks list --outdated" end, - fail_sysconfig_err = function() - mkdir "$testing_lrprefix/etc/luarocks" - file_set_contents("$testing_lrprefix/etc/luarocks/config.lua", "aoeui") - return run "$luarocks list" - and rm "$testing_lrprefix/etc/luarocks/config.lua" - end, - fail_sysconfig_default_err = function() - mkdir "$testing_lrprefix/etc/luarocks" - file_set_contents("$testing_lrprefix/etc/luarocks/config-$luashortversion.lua", "aoeui") - return run "$luarocks list" - and rm "$testing_lrprefix/etc/luarocks/config-$luashortversion.lua" - end, - fail_build_noarg = function() return run "$luarocks build" end, - fail_download_noarg = function() return run "$luarocks download" end, - fail_install_noarg = function() return run "$luarocks install" end, - fail_lint_noarg = function() return run "$luarocks lint" end, - fail_search_noarg = function() return run "$luarocks search" end, - fail_show_noarg = function() return run "$luarocks show" end, - fail_unpack_noarg = function() return run "$luarocks unpack" end, - fail_upload_noarg = function() return run "$luarocks upload" end, - fail_remove_noarg = function() return run "$luarocks remove" end, - fail_doc_noarg = function() return run "$luarocks doc" end, - fail_new_version_noarg = function() return run "$luarocks new_version" end, - fail_write_rockspec_noarg = function() return run "$luarocks write_rockspec" end, - fail_build_invalid = function() return run "$luarocks build invalid" end, - fail_download_invalid = function() return run "$luarocks download invalid" end, - fail_install_invalid = function() return run "$luarocks install invalid" end, - fail_lint_invalid = function() return run "$luarocks lint invalid" end, - fail_show_invalid = function() return run "$luarocks show invalid" end, - fail_new_version_invalid = function() return run "$luarocks new_version invalid" end, - test_list_invalidtree = function() return run "$luarocks --tree=/some/invalid/tree list" end, - fail_inexistent_dir = function() - -- Unix only? - return run "mkdir idontexist; cd idontexist; rmdir ../idontexist; $luarocks; err=$?; cd ..; return $err" - end, - fail_make_norockspec = function() return run "$luarocks make" end, - fail_build_permissions = function() return run "$luarocks build --tree=/usr lpeg" end, - fail_build_permissions_parent = function() return run "$luarocks build --tree=/usr/invalid lpeg" end, - test_build_verbose = function() return run "$luarocks build --verbose lpeg" end, - fail_build_blank_arg = function() return run "$luarocks build --tree="" lpeg" end, - test_build_withpatch = function() need_luasocket(); return run "$luarocks build luadoc" end, - test_build_diffversion = function() return run "$luarocks build luacov ${version_luacov}" end, - test_build_command = function() return run "$luarocks build stdlib" end, - test_build_install_bin = function() return run "$luarocks build luarepl" end, - test_build_nohttps = function() - need_luasocket() - return run "$luarocks download --rockspec validate-args ${verrev_validate_args}" - and run "$luarocks build ./validate-args-${version_validate_args}-1.rockspec" - and rm "./validate-args-${version_validate_args}-1.rockspec" - end, - test_build_https = function() - need_luasocket() - return run "$luarocks download --rockspec validate-args ${verrev_validate_args}" - and run "$luarocks install luasec" - and run "$luarocks build ./validate-args-${verrev_validate_args}.rockspec" - and rm "./validate-args-${verrev_validate_args}.rockspec" - end, - test_build_supported_platforms = function() return run "$luarocks build lpty" end, - test_build_only_deps_rockspec = function() - return run "$luarocks download --rockspec lxsh ${verrev_lxsh}" - and run "$luarocks build ./lxsh-${verrev_lxsh}.rockspec --only-deps" - and (not run "$luarocks show lxsh") - end, - test_build_only_deps_src_rock = function() - return run "$luarocks download --source lxsh ${verrev_lxsh}" - and run "$luarocks build ./lxsh-${verrev_lxsh}.src.rock --only-deps" - and (not run "$luarocks show lxsh") - end, - test_build_only_deps = function() return run "$luarocks build luasec --only-deps" and (not run "$luarocks show luasec") end, - test_install_only_deps = function() return run "$luarocks install lxsh ${verrev_lxsh} --only-deps" and (not run "$luarocks show lxsh") end, - fail_build_missing_external = function() return run '$luarocks build "$testing_dir/testfiles/missing_external-0.1-1.rockspec" INEXISTENT_INCDIR="/invalid/dir"' end, - fail_build_invalidpatch = function() - need_luasocket() - return run '$luarocks build "$testing_dir/testfiles/invalid_patch-0.1-1.rockspec"' - end, - test_build_deps_partial_match = function() return run "$luarocks build lmathx" end, - test_build_show_downloads = function() - return run("$luarocks build alien", { LUAROCKS_CONFIG="$testing_dir/testing_config_show_downloads.lua" }) - end, - test_download_all = function() - return run "$luarocks download --all validate-args" - and rm(glob("validate-args-*")) - end, - test_download_rockspecversion = function() - return run "$luarocks download --rockspec validate-args ${verrev_validate_args}" - and rm(glob("validate-args-*")) - end, - test_help = function() return run "$luarocks help" end, - fail_help_invalid = function() return run "$luarocks help invalid" end, - test_install_binaryrock = function() - return run "$luarocks build --pack-binary-rock cprint" - and run "$luarocks install ./cprint-${verrev_cprint}.${platform}.rock" - and rm "./cprint-${verrev_cprint}.${platform}.rock" - end, - test_install_with_bin = function() return run "$luarocks install wsapi" end, - fail_install_notazipfile = function() return run '$luarocks install "$testing_dir/testfiles/not_a_zipfile-1.0-1.src.rock"' end, - fail_install_invalidpatch = function() - need_luasocket() - return run '$luarocks install "$testing_dir/testfiles/invalid_patch-0.1-1.rockspec"' - end, - fail_install_invalid_filename = function() return run '$luarocks install "invalid.rock"' end, - fail_install_invalid_arch = function() return run '$luarocks install "foo-1.0-1.impossible-x86.rock"' end, - test_install_reinstall = function() - return run '$luarocks install "$testing_cache/luasocket-$verrev_luasocket.$platform.rock"' - and run '$luarocks install --deps-mode=none "$testing_cache/luasocket-$verrev_luasocket.$platform.rock"' - end, - fail_local_root = function() return run("$luarocks install --local luasocket", { USER="root" }) end, - test_site_config = function() - mv("../src/luarocks/site_config.lua", "../src/luarocks/site_config.lua.tmp") - local ok = run "$luarocks" - mv("../src/luarocks/site_config.lua.tmp", "../src/luarocks/site_config.lua") - return ok - end, - test_lint_ok = function() - return run "$luarocks download --rockspec validate-args ${verrev_validate_args}" - and run "$luarocks lint ./validate-args-${verrev_validate_args}.rockspec" - and rm "./validate-args-${verrev_validate_args}.rockspec" - end, - fail_lint_type_mismatch_string = function() return run '$luarocks lint "$testing_dir/testfiles/type_mismatch_string-1.0-1.rockspec"' end, - fail_lint_type_mismatch_version = function() return run '$luarocks lint "$testing_dir/testfiles/type_mismatch_version-1.0-1.rockspec"' end, - fail_lint_type_mismatch_table = function() return run '$luarocks lint "$testing_dir/testfiles/type_mismatch_table-1.0-1.rockspec"' end, - fail_lint_no_build_table = function() return run '$luarocks lint "$testing_dir/testfiles/no_build_table-0.1-1.rockspec"' end, - test_list = function() return run "$luarocks list" end, - test_list_porcelain = function() return run "$luarocks list --porcelain" end, - test_make_with_rockspec = function() - return rm_rf "./luasocket-${verrev_luasocket}" - and run "$luarocks download --source luasocket" - and run "$luarocks unpack ./luasocket-${verrev_luasocket}.src.rock" - and cd_run("luasocket-${verrev_luasocket}/${srcdir_luasocket}", "$luarocks make luasocket-${verrev_luasocket}.rockspec") - and rm_rf "./luasocket-${verrev_luasocket}" - end, - test_make_default_rockspec = function() - return rm_rf "./lxsh-${verrev_lxsh}" - and run "$luarocks download --source lxsh ${verrev_lxsh}" - and run "$luarocks unpack ./lxsh-${verrev_lxsh}.src.rock" - and cd_run("lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1", "$luarocks make") - and rm_rf "./lxsh-${verrev_lxsh}" - end, - test_make_pack_binary_rock = function() - return rm_rf "./lxsh-${verrev_lxsh}" - and run "$luarocks download --source lxsh ${verrev_lxsh}" - and run "$luarocks unpack ./lxsh-${verrev_lxsh}.src.rock" - and cd_run("lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1", "$luarocks make --deps-mode=none --pack-binary-rock") - and exists "lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1/lxsh-${verrev_lxsh}.all.rock" - and rm_rf "./lxsh-${verrev_lxsh}" - end, - fail_make_which_rockspec = function() - rm_rf "./luasocket-${verrev_luasocket}" - run "$luarocks download --source luasocket" - run "$luarocks unpack ./luasocket-${verrev_luasocket}.src.rock" - local ok = cd_run("luasocket-${verrev_luasocket}/${srcdir_luasocket}", "$luarocks make") - rm_rf "./luasocket-${verrev_luasocket}" - return ok - end, - test_new_version = function() - return run "$luarocks download --rockspec luacov ${version_luacov}" - and run "$luarocks new_version ./luacov-${version_luacov}-1.rockspec 0.2" - and rm(glob("./luacov-0.*")) - end, - test_new_version_url = function() - return run "$luarocks download --rockspec abelhas 1.0" - and run "$luarocks new_version ./abelhas-1.0-1.rockspec 1.1 https://github.com/downloads/ittner/abelhas/abelhas-1.1.tar.gz" - and rm(glob("./abelhas-*")) - end, - test_pack = function() - return run "$luarocks list" - and run "$luarocks pack luacov" - and rm(glob("./luacov-*.rock")) - end, - test_pack_src = function() - return run "$luarocks install luasec" - and run "$luarocks download --rockspec luasocket" - and run "$luarocks pack ./luasocket-${verrev_luasocket}.rockspec" - and rm(glob("./luasocket-${version_luasocket}-*.rock")) - end, - test_path = function() return run "$luarocks path --bin" end, - test_path_lr_path = function() return run "$luarocks path --lr-path" end, - test_path_lr_cpath = function() return run "$luarocks path --lr-cpath" end, - test_path_lr_bin = function() return run "$luarocks path --lr-bin" end, - test_path_with_tree = function() return run "$luarocks path --tree=lua_modules" end, - fail_purge_missing_tree = function() return run '$luarocks purge --tree="$testing_tree"' end, - test_purge = function() return run '$luarocks purge --tree="$testing_sys_tree"' end, - test_remove = function() - return run "$luarocks build abelhas ${version_abelhas}" - and run "$luarocks remove abelhas ${version_abelhas}" - end, - test_remove_force = function() - need_luasocket() - return run "$luarocks build lualogging" - and run "$luarocks remove --force luasocket" - end, - fail_remove_deps = function() - need_luasocket() - return run "$luarocks build lualogging" - and run "$luarocks remove luasocket" - end, - fail_remove_missing = function() return run "$luarocks remove missing_rock" end, - fail_remove_invalid_name = function() return run "$luarocks remove invalid.rock" end, - test_search_found = function() return run "$luarocks search zlib" end, - test_search_missing = function() return run "$luarocks search missing_rock" end, - test_show = function() return run "$luarocks show luacov" end, - test_show_modules = function() return run "$luarocks show --modules luacov" end, - test_show_home = function() return run "$luarocks show --home luacov" end, - test_show_depends = function() - need_luasocket() - return run "$luarocks install luasec" - and run "$luarocks show luasec" - end, - test_show_oldversion = function() - return run "$luarocks install luacov ${version_luacov}" - and run "$luarocks show luacov ${version_luacov}" - end, - test_unpack_download = function() - return rm_rf "./cprint-${verrev_cprint}" - and run "$luarocks unpack cprint" - and rm_rf "./cprint-${verrev_cprint}" - end, - test_unpack_src = function() - return rm_rf "./cprint-${verrev_cprint}" - and run "$luarocks download --source cprint" - and run "$luarocks unpack ./cprint-${verrev_cprint}.src.rock" - and rm_rf "./cprint-${verrev_cprint}" - end, - test_unpack_rockspec = function() - return rm_rf "./cprint-${verrev_cprint}" - and run "$luarocks download --rockspec cprint" - and run "$luarocks unpack ./cprint-${verrev_cprint}.rockspec" - and rm_rf "./cprint-${verrev_cprint}" - end, - test_unpack_binary = function() - return rm_rf "./cprint-${verrev_cprint}" - and run "$luarocks build cprint" - and run "$luarocks pack cprint" - and run "$luarocks unpack ./cprint-${verrev_cprint}.${platform}.rock" - and rm_rf "./cprint-${verrev_cprint}" - end, - fail_unpack_invalidpatch = function() - need_luasocket() - return run '$luarocks unpack "$testing_dir/testfiles/invalid_patch-0.1-1.rockspec"' - end, - fail_unpack_invalidrockspec = function() - need_luasocket() - return run '$luarocks unpack "invalid.rockspec"' - end, - fail_upload_invalidrockspec = function() return run '$luarocks upload "invalid.rockspec"' end, - fail_upload_invalidkey = function() return run '$luarocks upload --api-key="invalid" "invalid.rockspec"' end, - test_admin_help = function() return run "$luarocks_admin help" end, - test_admin_make_manifest = function() return run "$luarocks_admin make_manifest" end, - test_admin_add_rsync = function() return run '$luarocks_admin --server=testing add "$testing_server/luasocket-${verrev_luasocket}.src.rock"' end, - test_admin_add_sftp = function() - return run("$luarocks_admin --server=testing add ./luasocket-${verrev_luasocket}.src.rock", { LUAROCKS_CONFIG="$testing_dir/testing_config_sftp.lua" }) - end, - fail_admin_add_missing = function() return run "$luarocks_admin --server=testing add" end, - fail_admin_invalidserver = function() return run '$luarocks_admin --server=invalid add "$testing_server/luasocket-${verrev_luasocket}.src.rock"' end, - fail_admin_invalidrock = function() return run "$luarocks_admin --server=testing add invalid" end, - test_admin_refresh_cache = function() return run "$luarocks_admin --server=testing refresh_cache" end, - test_admin_remove = function() return run "$luarocks_admin --server=testing remove luasocket-${verrev_luasocket}.src.rock" end, - fail_admin_remove_missing = function() return run "$luarocks_admin --server=testing remove" end, - fail_deps_mode_invalid_arg = function() return run "$luarocks remove luacov --deps-mode" end, - - test_deps_mode_one = function() - return run '$luarocks build --tree="system" lpeg' - and run '$luarocks list' - and run '$luarocks build --deps-mode=one --tree="$testing_tree" lxsh' - and run_get_contents '$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg' ~= "" - end, - test_deps_mode_order = function() - return run '$luarocks build --tree="system" lpeg' - and run '$luarocks build --deps-mode=order --tree="$testing_tree" lxsh' - and run '$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg' - and run_get_contents '$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg' == "" - end, - test_deps_mode_order_sys = function() - return run '$luarocks build --tree="$testing_tree" lpeg' - and run '$luarocks build --deps-mode=order --tree="$testing_sys_tree" lxsh' - and run_get_contents '$luarocks_noecho list --tree="$testing_sys_tree" --porcelain lpeg' ~= "" - end, - test_deps_mode_all_sys = function() - return run '$luarocks build --tree="$testing_tree" lpeg' - and run '$luarocks build --deps-mode=all --tree="$testing_sys_tree" lxsh' - and run_get_contents '$luarocks_noecho list --tree="$testing_sys_tree" --porcelain lpeg' == "" - end, - - test_deps_mode_none = function() - return run '$luarocks build --tree="$testing_tree" --deps-mode=none lxsh' - and run_get_contents '$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg' == "" - end, - test_deps_mode_nodeps_alias = function() - return run '$luarocks build --tree="$testing_tree" --nodeps lxsh' - and run_get_contents '$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg' == "" - end, - test_deps_mode_make_order = function() - local ok = run '$luarocks build --tree="$testing_sys_tree" lpeg' - and rm_rf "./lxsh-${verrev_lxsh}" - and run "$luarocks download --source lxsh ${verrev_lxsh}" - and run "$luarocks unpack ./lxsh-${verrev_lxsh}.src.rock" - and cd_run("lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1", '$luarocks make --tree="$testing_tree" --deps-mode=order') - if not ok then - return false - end - local found = run_get_contents '$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg' - rm_rf "./lxsh-${verrev_lxsh}" - return found == "" - end, - test_deps_mode_make_order_sys = function() - local ok = run '$luarocks build --tree="$testing_tree" lpeg' - and rm_rf "./lxsh-${verrev_lxsh}" - and run "$luarocks download --source lxsh ${verrev_lxsh}" - and run "$luarocks unpack ./lxsh-${verrev_lxsh}.src.rock" - and cd_run("lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1", '$luarocks make --tree="$testing_sys_tree" --deps-mode=order') - if not ok then - return false - end - local found = run_get_contents '$luarocks_noecho list --tree="$testing_sys_tree" --porcelain lpeg' - rm_rf "./lxsh-${verrev_lxsh}" - return found ~= "" - end, - test_write_rockspec = function() return run "$luarocks write_rockspec git://github.com/keplerproject/luarocks" end, - test_write_rockspec_lib = function() return run '$luarocks write_rockspec git://github.com/mbalmer/luafcgi --lib=fcgi --license="3-clause BSD" --lua-version=5.1,5.2' end, - test_write_rockspec_format = function() return run '$luarocks write_rockspec git://github.com/keplerproject/luarocks --rockspec-format=1.1 --lua-version=5.1,5.2' end, - test_write_rockspec_fullargs = function() return run '$luarocks write_rockspec git://github.com/keplerproject/luarocks --lua-version=5.1,5.2 --license="MIT/X11" --homepage="http://www.luarocks.org" --summary="A package manager for Lua modules"' end, - fail_write_rockspec_args = function() return run "$luarocks write_rockspec invalid" end, - fail_write_rockspec_args_url = function() return run "$luarocks write_rockspec http://example.com/invalid.zip" end, - test_write_rockspec_http = function() return run "$luarocks write_rockspec http://luarocks.org/releases/luarocks-2.1.0.tar.gz --lua-version=5.1" end, - test_write_rockspec_basedir = function() return run "$luarocks write_rockspec https://github.com/downloads/Olivine-Labs/luassert/luassert-1.2.tar.gz --lua-version=5.1" end, - - fail_config_noflags = function() return run "$luarocks config; " end, - test_config_lua_incdir = function() return run "$luarocks config --lua-incdir; " end, - test_config_lua_libdir = function() return run "$luarocks config --lua-libdir; " end, - test_config_lua_ver = function() return run "$luarocks config --lua-ver; " end, - fail_config_system_config = function() - return rm "$testing_lrprefix/etc/luarocks/config.lua" - and run "$luarocks config --system-config; " - end, - test_config_system_config = function() - local ok = mkdir "$testing_lrprefix/etc/luarocks" - and touch "$testing_lrprefix/etc/luarocks/config.lua" - and run "$luarocks config --system-config; " - rm "$testing_lrprefix/etc/luarocks/config.lua" - return ok - end, - fail_config_system_config_invalid = function() - local ok = mkdir "$testing_lrprefix/etc/luarocks" - and run "echo 'if if if' > '$testing_lrprefix/etc/luarocks/config.lua' ;" - and run "$luarocks config --system-config" - rm "$testing_lrprefix/etc/luarocks/config.lua" - return ok - end, - test_config_user_config = function() return run "$luarocks config --user-config; " end, - fail_config_user_config = function() return run "LUAROCKS_CONFIG='/missing_file.lua' $luarocks config --user-config; " end, - test_config_rock_trees = function() return run "$luarocks config --rock-trees;" end, - test_config_help = function() return run "$luarocks help config;" end, - test_doc = function() - return run "$luarocks install luarepl" - and run "$luarocks doc luarepl" - end, - test_doc_home = function() - return run "$luarocks install luacov" - and run "$luarocks doc luacov --home" - end, - fail_doc_invalid = function () return run "$luarocks doc invalid" end, - - -- Tests for https://github.com/keplerproject/luarocks/issues/375 - test_fetch_base_dir = function() - local fetch = require "luarocks.fetch" - - return assert("v0.3" == fetch.url_to_base_dir("https://github.com/hishamhm/lua-compat-5.2/archive/v0.3.zip")) - and assert("lua-compat-5.2" == fetch.url_to_base_dir("https://github.com/hishamhm/lua-compat-5.2.zip")) - and assert("lua-compat-5.2" == fetch.url_to_base_dir("https://github.com/hishamhm/lua-compat-5.2.tar.gz")) - and assert("lua-compat-5.2" == fetch.url_to_base_dir("https://github.com/hishamhm/lua-compat-5.2.tar.bz2")) - and assert("parser.moon" == fetch.url_to_base_dir("git://github.com/Cirru/parser.moon")) - and assert("v0.3" == fetch.url_to_base_dir("https://github.com/hishamhm/lua-compat-5.2/archive/v0.3")) - end, - - -- Tests for https://github.com/keplerproject/luarocks/issues/552 - test_install_break_dependencies_warning = function() - need_luasocket() - return run "$luarocks install say ${new_version_say}" - and run "$luarocks install luassert" - and run "$luarocks install say ${old_version_say}" - end, - test_install_break_dependencies_force = function() - need_luasocket() - return run "$luarocks install say ${new_version_say}" - and run "$luarocks install luassert" - and run "$luarocks install --force say ${old_version_say}" - end, - test_install_break_dependencies_force = function() - need_luasocket() - return run "$luarocks install say ${new_version_say}" - and run "$luarocks install luassert" - and run "$luarocks install --force-fast say ${old_version_say}" - end -} diff --git a/test/testing.sh b/test/testing.sh deleted file mode 100755 index cb10441c..00000000 --- a/test/testing.sh +++ /dev/null @@ -1,651 +0,0 @@ -#!/bin/bash -e - -# Setup ######################################### - -[ -e ../configure ] || { - echo "Please run this from the test/ directory." - exit 1 -} - -if [ -z "$*" ] -then - ps aux | grep -q '[s]shd' || { - echo "Run sudo /bin/sshd in order to perform all tests." - exit 1 - } -fi - -if [ "$1" == "--travis" ] -then - travis=true - shift -fi - -luaversion=5.1.5 - -if [ "$1" == "--lua" ] -then - shift - luaversion=$1 - shift -fi - -luashortversion=`echo $luaversion | cut -d. -f 1-2` - -testing_dir="$PWD" - -testing_lrprefix="$testing_dir/testing_lrprefix-$luaversion" -testing_tree="$testing_dir/testing-$luaversion" -testing_sys_tree="$testing_dir/testing_sys-$luaversion" -testing_tree_copy="$testing_dir/testing_copy-$luaversion" -testing_sys_tree_copy="$testing_dir/testing_sys_copy-$luaversion" -testing_cache="$testing_dir/testing_cache-$luaversion" -testing_server="$testing_dir/testing_server-$luaversion" - -if [ "$1" == "--clean" ] -then - shift - rm -rf "$testing_cache" - rm -rf "$testing_server" -fi - -[ "$1" ] || rm -f luacov.stats.out -rm -f luacov.report.out -rm -rf /tmp/luarocks_testing -mkdir /tmp/luarocks_testing -rm -rf "$testing_lrprefix" -rm -rf "$testing_tree" -rm -rf "$testing_sys_tree" -rm -rf "$testing_tree_copy" -rm -rf "$testing_sys_tree_copy" -rm -rf "$testing_dir/testing_config.lua" -rm -rf "$testing_dir/testing_config_show_downloads.lua" -rm -rf "$testing_dir/testing_config_sftp.lua" -rm -rf "$testing_dir/luacov.config" - -mkdir -p "$testing_cache" - -[ "$1" = "clean" ] && { - rm -f luacov.stats.out - exit 0 -} - -cat < $testing_dir/testing_config.lua -rocks_trees = { - "$testing_tree", - { name = "system", root = "$testing_sys_tree" }, -} -rocks_servers = { - "$testing_server" -} -local_cache = "$testing_cache" -upload_server = "testing" -upload_user = "$USER" -upload_servers = { - testing = { - rsync = "localhost/tmp/luarocks_testing", - }, -} -external_deps_dirs = { - "/usr/local", - "/usr", - -- These are used for a test that fails, so it - -- can point to invalid paths: - { - prefix = "/opt", - bin = "bin", - include = "include", - lib = { "lib", "lib64" }, - } -} -EOF -( - cat $testing_dir/testing_config.lua - echo "show_downloads = true" -) > $testing_dir/testing_config_show_downloads.lua -cat < $testing_dir/testing_config_sftp.lua -rocks_trees = { - "$testing_tree", - "$testing_sys_tree", -} -local_cache = "$testing_cache" -upload_server = "testing" -upload_user = "$USER" -upload_servers = { - testing = { - sftp = "localhost/tmp/luarocks_testing", - }, -} -EOF -cat < $testing_dir/luacov.config -return { - statsfile = "$testing_dir/luacov.stats.out", - reportfile = "$testing_dir/luacov.report.out", - modules = { - ["luarocks"] = "src/bin/luarocks", - ["luarocks-admin"] = "src/bin/luarocks-admin", - ["luarocks.*"] = "src", - ["luarocks.*.*"] = "src", - ["luarocks.*.*.*"] = "src" - } -} -EOF - -export LUAROCKS_CONFIG="$testing_dir/testing_config.lua" -export LUA_PATH= -export LUA_CPATH= - -if [ "$travis" ] -then - luadir=/tmp/lua-$luaversion - pushd /tmp - if [ ! -e "$luadir/bin/lua" ] - then - mkdir -p lua - echo "Downloading lua $luaversion..." - wget "http://www.lua.org/ftp/lua-$luaversion.tar.gz" &> /dev/null - tar zxpf "lua-$luaversion.tar.gz" - cd "lua-$luaversion" - echo "Building lua $luaversion..." - make linux INSTALL_TOP="$luadir" &> /dev/null - make install INSTALL_TOP="$luadir" &> /dev/null - fi - popd - [ -e ~/.ssh/id_rsa.pub ] || ssh-keygen -t rsa -P "" -f ~/.ssh/id_rsa - cat ~/.ssh/id_rsa.pub >> ~/.ssh/authorized_keys - chmod og-wx ~/.ssh/authorized_keys - ssh-keyscan localhost >> ~/.ssh/known_hosts -else - luadir="/Programs/Lua/Current" - if [ ! -e "$luadir" ] - then - luadir="/usr/local" - fi -fi - -if [ `uname -m` = i686 ] -then - platform="linux-x86" -else - platform="linux-x86_64" -fi - -lua="$luadir/bin/lua" - -version_luasocket=3.0rc1 -verrev_luasocket=${version_luasocket}-1 -srcdir_luasocket=luasocket-3.0-rc1 - -version_cprint=0.1 -verrev_cprint=0.1-2 - -new_version_say=1.2-1 -old_version_say=1.0-1 - -version_luacov=0.11.0 -verrev_luacov=${version_luacov}-1 -version_lxsh=0.8.6 -version_validate_args=1.5.4 -verrev_validate_args=1.5.4-1 -verrev_lxsh=${version_lxsh}-2 -version_abelhas=1.0 -verrev_abelhas=${version_abelhas}-1 - -luasec=luasec - -cd .. -./configure --with-lua="$luadir" --prefix="$testing_lrprefix" -make clean -make src/luarocks/site_config.lua -make dev -cd src -basedir=$PWD -run_lua() { - if [ "$1" = "--noecho" ]; then shift; noecho=1; else noecho=0; fi - if [ "$1" = "--nocov" ]; then shift; nocov=1; else nocov=0; fi - if [ "$noecho" = 0 ] - then - echo $* - fi - cmd=$1 - shift - if [ "$nocov" = 0 ] - then - "$lua" -e"require('luacov.runner')('$testing_dir/luacov.config')" "$basedir/bin/$cmd" "$@" - else - "$lua" "$basedir/bin/$cmd" "$@" - fi -} -luarocks="run_lua luarocks" -luarocks_nocov="run_lua --nocov luarocks" -luarocks_noecho="run_lua --noecho luarocks" -luarocks_noecho_nocov="run_lua --noecho --nocov luarocks" -luarocks_admin="run_lua luarocks-admin" -luarocks_admin_nocov="run_lua --nocov luarocks-admin" - -################################################### - -mkdir -p "$testing_server" -( - cd "$testing_server" - luarocks_repo="https://luarocks.org" - get() { [ -e `basename "$1"` ] || wget -c "$1"; } - get "$luarocks_repo/luacov-${verrev_luacov}.src.rock" - get "$luarocks_repo/luacov-${verrev_luacov}.rockspec" - get "$luarocks_repo/luadoc-3.0.1-1.src.rock" - get "$luarocks_repo/lualogging-1.3.0-1.src.rock" - get "$luarocks_repo/luasocket-${verrev_luasocket}.src.rock" - get "$luarocks_repo/luasocket-${verrev_luasocket}.rockspec" - get "$luarocks_repo/luafilesystem-1.6.3-1.src.rock" - get "$luarocks_repo/stdlib-41.0.0-1.src.rock" - get "$luarocks_repo/luarepl-0.4-1.src.rock" - get "$luarocks_repo/validate-args-1.5.4-1.rockspec" - get "$luarocks_repo/luasec-0.6-1.rockspec" - get "$luarocks_repo/luabitop-1.0.2-1.rockspec" - get "$luarocks_repo/luabitop-1.0.2-1.src.rock" - get "$luarocks_repo/lpty-1.0.1-1.src.rock" - get "$luarocks_repo/cprint-${verrev_cprint}.src.rock" - get "$luarocks_repo/cprint-${verrev_cprint}.rockspec" - get "$luarocks_repo/wsapi-1.6-1.src.rock" - get "$luarocks_repo/lxsh-${verrev_lxsh}.src.rock" - get "$luarocks_repo/lxsh-${verrev_lxsh}.rockspec" - get "$luarocks_repo/abelhas-${verrev_abelhas}.rockspec" - get "$luarocks_repo/lzlib-0.4.1.53-1.src.rock" - get "$luarocks_repo/lpeg-0.12-1.src.rock" - get "$luarocks_repo/luaposix-33.2.1-1.src.rock" - get "$luarocks_repo/md5-1.2-1.src.rock" - get "$luarocks_repo/lmathx-20120430.51-1.src.rock" - get "$luarocks_repo/lmathx-20120430.51-1.rockspec" - get "$luarocks_repo/lmathx-20120430.52-1.src.rock" - get "$luarocks_repo/lmathx-20120430.52-1.rockspec" - get "$luarocks_repo/lmathx-20150505-1.src.rock" - get "$luarocks_repo/lmathx-20150505-1.rockspec" - get "$luarocks_repo/lua-path-0.2.3-1.src.rock" - get "$luarocks_repo/lua-cjson-2.1.0-1.src.rock" - get "$luarocks_repo/luacov-coveralls-0.1.1-1.src.rock" - get "$luarocks_repo/say-1.2-1.src.rock" - get "$luarocks_repo/say-1.0-1.src.rock" - get "$luarocks_repo/luassert-1.7.0-1.src.rock" -) -$luarocks_admin_nocov make_manifest "$testing_server" - -################################################### - -checksum_path() { - ( cd "$1"; find . -printf "%s %p\n" | md5sum ) -} - -build_environment() { - rm -rf "$testing_tree" - rm -rf "$testing_sys_tree" - rm -rf "$testing_tree_copy" - rm -rf "$testing_sys_tree_copy" - mkdir -p "$testing_tree" - mkdir -p "$testing_sys_tree" - $luarocks_admin_nocov make_manifest "$testing_cache" - for package in "$@" - do - $luarocks_nocov install --only-server="$testing_cache" --tree="$testing_sys_tree" $package || { - $luarocks_nocov build --tree="$testing_sys_tree" $package - $luarocks_nocov pack --tree="$testing_sys_tree" $package; mv $package-*.rock "$testing_cache" - } - done - export LUA_PATH= - export LUA_CPATH= - eval `$luarocks_noecho_nocov path --bin` - cp -a "$testing_tree" "$testing_tree_copy" - cp -a "$testing_sys_tree" "$testing_sys_tree_copy" - testing_tree_copy_md5=`checksum_path "$testing_tree_copy"` - testing_sys_tree_copy_md5=`checksum_path "$testing_sys_tree_copy"` -} - -reset_environment() { - testing_tree_md5=`checksum_path "$testing_tree"` - testing_sys_tree_md5=`checksum_path "$testing_sys_tree"` - if [ "$testing_tree_md5" != "$testing_tree_copy_md5" ] - then - rm -rf "$testing_tree" - cp -a "$testing_tree_copy" "$testing_tree" - fi - if [ "$testing_sys_tree_md5" != "$testing_sys_tree_copy_md5" ] - then - rm -rf "$testing_sys_tree" - cp -a "$testing_sys_tree_copy" "$testing_sys_tree" - fi -} - -need() { - echo "Obtaining $1 $2..." - if $luarocks show $1 &> /dev/null - then - echo "Already available" - return - fi - platrock="$1-$2.$platform.rock" - if [ ! -e "$testing_cache/$platrock" ] - then - echo "Building $1 $2..." - $luarocks_nocov build --pack-binary-rock $1 $2 - mv "$platrock" "$testing_cache" - fi - echo "Installing $1 $2..." - $luarocks_nocov install "$testing_cache/$platrock" - return -} -need_luasocket() { need luasocket $verrev_luasocket; } - -# Tests ######################################### -test_version() { $luarocks --version; } - -fail_unknown_command() { $luarocks unknown_command; } - -fail_arg_boolean_parameter() { $luarocks --porcelain=invalid; } -fail_arg_boolean_unknown() { $luarocks --invalid-flag; } -fail_arg_string_no_parameter() { $luarocks --server; } -fail_arg_string_followed_by_flag() { $luarocks --server --porcelain; } -fail_arg_string_unknown() { $luarocks --invalid-flag=abc; } - -fail_invalid_assignment() { $luarocks invalid=5; } - -test_empty_list() { $luarocks list; } -test_list_outdated() { $luarocks list --outdated; } - -fail_sysconfig_err() { local err=0; local scdir="$testing_lrprefix/etc/luarocks/"; mkdir -p "$scdir"; local sysconfig="$scdir/config.lua"; echo "aoeui" > "$sysconfig"; echo $sysconfig; $luarocks list; err=$?; rm "$sysconfig"; return "$err"; } -fail_sysconfig_default_err() { local err=0; local scdir="$testing_lrprefix/etc/luarocks/"; mkdir -p "$scdir"; local sysconfig="$scdir/config-$luashortversion.lua"; echo "aoeui" > "$sysconfig"; echo $sysconfig; $luarocks list; err=$?; rm "$sysconfig"; return "$err"; } - -fail_build_noarg() { $luarocks build; } -fail_download_noarg() { $luarocks download; } -fail_install_noarg() { $luarocks install; } -fail_lint_noarg() { $luarocks lint; } -fail_search_noarg() { $luarocks search; } -fail_show_noarg() { $luarocks show; } -fail_unpack_noarg() { $luarocks unpack; } -fail_upload_noarg() { $luarocks upload; } -fail_remove_noarg() { $luarocks remove; } -fail_doc_noarg() { $luarocks doc; } - -fail_build_invalid() { $luarocks build invalid; } -fail_download_invalid() { $luarocks download invalid; } -fail_install_invalid() { $luarocks install invalid; } -fail_lint_invalid() { $luarocks lint invalid; } -fail_show_invalid() { $luarocks show invalid; } -fail_new_version_invalid() { $luarocks new_version invalid; } - -test_list_invalidtree() { $luarocks --tree=/some/invalid/tree list; } - -fail_inexistent_dir() { mkdir idontexist; cd idontexist; rmdir ../idontexist; $luarocks; err=$?; cd ..; return $err; } - -fail_make_norockspec() { $luarocks make; } - -fail_build_permissions() { $luarocks build --tree=/usr lpeg; } -fail_build_permissions_parent() { $luarocks build --tree=/usr/invalid lpeg; } - -test_build_verbose() { $luarocks build --verbose lpeg; } -test_build_timeout() { $luarocks --timeout=10; } -fail_build_timeout_invalid() { $luarocks --timeout=abc; } -test_build_branch() { $luarocks build --branch=master lpeg; } -fail_build_invalid_entry_deps_mode() { $luarocks build --deps-mode=123 lpeg; } -test_build_only_server() { $luarocks --only-server=testing; } -test_build_only_sources() { $luarocks build --only-sources="http://example.com" lpeg; } -fail_build_blank_arg() { $luarocks build --tree="" lpeg; } -test_build_withpatch() { need_luasocket; $luarocks build luadoc; } -test_build_diffversion() { $luarocks build luacov ${version_luacov}; } -test_build_command() { $luarocks build stdlib; } -test_build_install_bin() { $luarocks build luarepl; } -test_build_nohttps() { need_luasocket; $luarocks download --rockspec validate-args ${verrev_validate_args} && $luarocks build ./validate-args-${version_validate_args}-1.rockspec && rm ./validate-args-${version_validate_args}-1.rockspec; } -test_build_https() { need_luasocket; $luarocks download --rockspec validate-args ${verrev_validate_args} && $luarocks install $luasec && $luarocks build ./validate-args-${verrev_validate_args}.rockspec && rm ./validate-args-${verrev_validate_args}.rockspec; } -test_build_supported_platforms() { $luarocks build lpty; } -test_build_only_deps_rockspec() { $luarocks download --rockspec lxsh ${verrev_lxsh} && $luarocks build ./lxsh-${verrev_lxsh}.rockspec --only-deps && { $luarocks show lxsh; [ $? -ne 0 ]; }; } -test_build_only_deps_src_rock() { $luarocks download --source lxsh ${verrev_lxsh} && $luarocks build ./lxsh-${verrev_lxsh}.src.rock --only-deps && { $luarocks show lxsh; [ $? -ne 0 ]; }; } -test_build_only_deps() { $luarocks build luasec --only-deps && { $luarocks show luasec; [ $? -ne 0 ]; }; } -test_install_only_deps() { $luarocks install lxsh ${verrev_lxsh} --only-deps && { $luarocks show lxsh; [ $? -ne 0 ]; }; } -test_build_no_deps() { $luarocks build luasec --nodeps; } -test_install_no_deps() { $luarocks install luasec --nodeps; } -fail_build_missing_external() { $luarocks build "$testing_dir/testfiles/missing_external-0.1-1.rockspec" INEXISTENT_INCDIR="/invalid/dir"; } -fail_build_invalidpatch() { need_luasocket; $luarocks build "$testing_dir/testfiles/invalid_patch-0.1-1.rockspec"; } - -test_build_deps_partial_match() { $luarocks build lmathx; } -test_build_show_downloads() { export LUAROCKS_CONFIG="$testing_dir/testing_config_show_downloads.lua" && $luarocks build alien; export LUAROCKS_CONFIG="$testing_dir/testing_config.lua"; } - -test_download_all() { $luarocks download --all validate-args && rm validate-args-*; } -test_download_rockspecversion() { $luarocks download --rockspec validate-args ${verrev_validate_args} && rm validate-args-*; } - -test_help() { $luarocks help; } -fail_help_invalid() { $luarocks help invalid; } - -test_install_only_deps() { $luarocks install --only-deps "$testing_cache/luasocket-$verrev_luasocket.$platform.rock"; } -test_install_binaryrock() { $luarocks build --pack-binary-rock cprint && $luarocks install ./cprint-${verrev_cprint}.${platform}.rock && rm ./cprint-${verrev_cprint}.${platform}.rock; } -test_install_with_bin() { $luarocks install wsapi; } -fail_install_notazipfile() { $luarocks install "$testing_dir/testfiles/not_a_zipfile-1.0-1.src.rock"; } -fail_install_invalidpatch() { need_luasocket; $luarocks install "$testing_dir/testfiles/invalid_patch-0.1-1.rockspec"; } -fail_install_invalid_filename() { $luarocks install "invalid.rock"; } -fail_install_invalid_arch() { $luarocks install "foo-1.0-1.impossible-x86.rock"; } -test_install_reinstall() { $luarocks install "$testing_cache/luasocket-$verrev_luasocket.$platform.rock"; $luarocks install --deps-mode=none "$testing_cache/luasocket-$verrev_luasocket.$platform.rock"; } - -fail_local_root() { USER=root $luarocks install --local luasocket; } - -test_site_config() { mv ../src/luarocks/site_config.lua ../src/luarocks/site_config.lua.tmp; $luarocks; mv ../src/luarocks/site_config.lua.tmp ../src/luarocks/site_config.lua; } - -test_lint_ok() { $luarocks download --rockspec validate-args ${verrev_validate_args} && $luarocks lint ./validate-args-${verrev_validate_args}.rockspec && rm ./validate-args-${verrev_validate_args}.rockspec; } -fail_lint_type_mismatch_string() { $luarocks lint "$testing_dir/testfiles/type_mismatch_string-1.0-1.rockspec"; } -fail_lint_type_mismatch_version() { $luarocks lint "$testing_dir/testfiles/type_mismatch_version-1.0-1.rockspec"; } -fail_lint_type_mismatch_table() { $luarocks lint "$testing_dir/testfiles/type_mismatch_table-1.0-1.rockspec"; } -fail_lint_no_build_table() { $luarocks lint "$testing_dir/testfiles/no_build_table-0.1-1.rockspec"; } - -test_list() { $luarocks list; } -test_list_porcelain() { $luarocks list --porcelain; } - -test_make_with_rockspec() { rm -rf ./luasocket-${verrev_luasocket} && $luarocks download --source luasocket && $luarocks unpack ./luasocket-${verrev_luasocket}.src.rock && cd luasocket-${verrev_luasocket}/${srcdir_luasocket} && $luarocks make luasocket-${verrev_luasocket}.rockspec && cd ../.. && rm -rf ./luasocket-${verrev_luasocket}; } -test_make_default_rockspec() { rm -rf ./lxsh-${verrev_lxsh} && $luarocks download --source lxsh ${verrev_lxsh} && $luarocks unpack ./lxsh-${verrev_lxsh}.src.rock && cd lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1 && $luarocks new_version lxsh-${verrev_lxsh}.rockspec && $luarocks make && cd ../.. && rm -rf ./lxsh-${verrev_lxsh}; } -test_make_unnamed_rockspec() { rm -rf ./lxsh-${verrev_lxsh} && $luarocks download --source lxsh ${verrev_lxsh} && $luarocks unpack ./lxsh-${verrev_lxsh}.src.rock && cd lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1 && cp lxsh-${verrev_lxsh}.rockspec rockspec && $luarocks make && cd ../.. && rm -rf ./lxsh-${verrev_lxsh}; } -fail_make_ambiguous_rockspec() { rm -rf ./lxsh-${verrev_lxsh} && $luarocks download --source lxsh ${verrev_lxsh} && $luarocks unpack ./lxsh-${verrev_lxsh}.src.rock && cd lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1 && cp lxsh-${verrev_lxsh}.rockspec lxsh2-${verrev_lxsh}.rockspec && $luarocks make && cd ../.. && rm -rf ./lxsh-${verrev_lxsh}; } -fail_make_ambiguous_unnamed_rockspec() { rm -rf ./lxsh-${verrev_lxsh} && $luarocks download --source lxsh ${verrev_lxsh} && $luarocks unpack ./lxsh-${verrev_lxsh}.src.rock && cd lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1 && mv lxsh-${verrev_lxsh}.rockspec 1_rockspec && cp 1_rockspec 2_rockspec && $luarocks make && cd ../.. && rm -rf ./lxsh-${verrev_lxsh}; } -test_make_pack_binary_rock() { rm -rf ./lxsh-${verrev_lxsh} && $luarocks download --source lxsh ${verrev_lxsh} && $luarocks unpack ./lxsh-${verrev_lxsh}.src.rock && cd lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1 && $luarocks make --deps-mode=none --pack-binary-rock && [ -e ./lxsh-${verrev_lxsh}.all.rock ] && cd ../.. && rm -rf ./lxsh-${verrev_lxsh}; } - -test_new_version() { $luarocks download --rockspec luacov ${version_luacov} && $luarocks new_version ./luacov-${version_luacov}-1.rockspec 0.2 && rm ./luacov-0.*; } -test_new_version_url() { $luarocks download --rockspec abelhas 1.0 && $luarocks new_version ./abelhas-1.0-1.rockspec 1.1 https://github.com/downloads/ittner/abelhas/abelhas-1.1.tar.gz && rm ./abelhas-*; } -test_new_version_tag() { $luarocks download --rockspec luacov ${version_luacov} && $luarocks new_version ./luacov-${version_luacov}-1.rockspec --tag v0.3 && rm ./luacov-0.3-1.rockspec; } -test_new_version_tag_without_arg() { rm -rf ./*rockspec && $luarocks download --rockspec luacov ${version_luacov} && $luarocks new_version --tag v0.3 && rm ./luacov-0.3-1.rockspec; } - -test_pack() { $luarocks list && $luarocks pack luacov && rm ./luacov-*.rock; } -test_pack_src() { $luarocks install $luasec && $luarocks download --rockspec luasocket && $luarocks pack ./luasocket-${verrev_luasocket}.rockspec && rm ./luasocket-${version_luasocket}-*.rock; } - -test_path() { $luarocks path --bin; } -test_path_lr_path() { $luarocks path --lr-path; } -test_path_lr_cpath() { $luarocks path --lr-cpath; } -test_path_lr_bin() { $luarocks path --lr-bin; } -test_path_with_tree() { $luarocks path --tree=lua_modules; } - -fail_purge_missing_tree() { $luarocks purge --tree="$testing_tree"; } -fail_purge_tree_notstring() { $luarocks purge --tree=1; } -test_purge() { $luarocks purge --tree="$testing_sys_tree"; } -test_purge_oldversions() { $luarocks purge --old-versions --tree="$testing_sys_tree"; } - -test_remove() { $luarocks build abelhas ${version_abelhas} && $luarocks remove abelhas ${version_abelhas}; } -test_remove_force() { need_luasocket; $luarocks build lualogging && $luarocks remove --force luasocket; } -test_remove_force_fast() { need_luasocket; $luarocks build lualogging && $luarocks remove --force-fast luasocket; } -fail_remove_deps() { need_luasocket; $luarocks build lualogging && $luarocks remove luasocket; } -fail_remove_missing() { $luarocks remove missing_rock; } -fail_remove_invalid_name() { $luarocks remove invalid.rock; } - -test_search_found() { $luarocks search zlib; } -test_search_missing() { $luarocks search missing_rock; } -test_search_version() { $luarocks search zlib 1.1; } -test_search_all() { $luarocks search --all; } -fail_search_nostring() { $var=123; $luarocks search $var; } - -test_show() { $luarocks show luacov; } -test_show_modules() { $luarocks show --modules luacov; } -test_show_home() { $luarocks show --home luacov; } -test_show_deps() { $luarocks show --deps luacov; } -test_show_rockspec() { $luarocks show --rockspec luacov; } -test_show_mversion() { $luarocks show --mversion luacov; } -test_show_rocktree() { $luarocks show --rock-tree luacov; } -test_show_rockdir() { $luarocks show --rock-dir luacov; } -test_show_depends() { need_luasocket; $luarocks install $luasec && $luarocks show luasec; } -test_show_oldversion() { $luarocks install luacov ${version_luacov} && $luarocks show luacov ${version_luacov}; } - -test_unpack_download() { rm -rf ./cprint-${verrev_cprint} && $luarocks unpack cprint && rm -rf ./cprint-${verrev_cprint}; } -test_unpack_src() { rm -rf ./cprint-${verrev_cprint} && $luarocks download --source cprint && $luarocks unpack ./cprint-${verrev_cprint}.src.rock && rm -rf ./cprint-${verrev_cprint}; } -test_unpack_rockspec() { rm -rf ./cprint-${verrev_cprint} && $luarocks download --rockspec cprint && $luarocks unpack ./cprint-${verrev_cprint}.rockspec && rm -rf ./cprint-${verrev_cprint}; } -test_unpack_binary() { rm -rf ./cprint-${verrev_cprint} && $luarocks build cprint && $luarocks pack cprint && $luarocks unpack ./cprint-${verrev_cprint}.${platform}.rock && rm -rf ./cprint-${verrev_cprint}; } -fail_unpack_invalidpatch() { need_luasocket; $luarocks unpack "$testing_dir/testfiles/invalid_patch-0.1-1.rockspec"; } -fail_unpack_invalidrockspec() { need_luasocket; $luarocks unpack "invalid.rockspec"; } - -fail_upload_invalidrockspec() { $luarocks upload "invalid.rockspec"; } -fail_upload_invalidkey() { $luarocks upload --api-key="invalid" "invalid.rockspec"; } -fail_upload_skippack() { $luarocks upload --api-key="invalid" --skip-pack "luacov-${verrev_luacov}.rockspec"; } -fail_upload_force() { $luarocks install lua-cjson && $luarocks upload --api-key="invalid" --force "luacov-${verrev_luacov}.rockspec" && $luarocks remove lua-cjson; } - - -test_admin_help() { $luarocks_admin help; } - -test_admin_make_manifest() { $luarocks_admin make_manifest; } -test_admin_add_rsync() { $luarocks_admin --server=testing add "$testing_server/luasocket-${verrev_luasocket}.src.rock"; } -test_admin_add_sftp() { export LUAROCKS_CONFIG="$testing_dir/testing_config_sftp.lua" && $luarocks_admin --server=testing add ./luasocket-${verrev_luasocket}.src.rock; export LUAROCKS_CONFIG="$testing_dir/testing_config.lua"; } -fail_admin_add_missing() { $luarocks_admin --server=testing add; } -fail_admin_invalidserver() { $luarocks_admin --server=invalid add "$testing_server/luasocket-${verrev_luasocket}.src.rock"; } -fail_admin_invalidrock() { $luarocks_admin --server=testing add invalid; } -test_admin_refresh_cache() { $luarocks_admin --server=testing refresh_cache; } -test_admin_remove() { $luarocks_admin --server=testing remove luasocket-${verrev_luasocket}.src.rock; } -fail_admin_remove_missing() { $luarocks_admin --server=testing remove; } -fail_admin_split_server_url() { $luarocks_admin --server="localhost@/tmp/luarocks_testing" add "$testing_server/luasocket-${verrev_luasocket}.src.rock"; } - -fail_deps_mode_invalid_arg() { $luarocks remove luacov --deps-mode; } -test_deps_mode_one() { $luarocks build --tree="system" lpeg && $luarocks list && $luarocks build --deps-mode=one --tree="$testing_tree" lxsh && [ `$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg | wc -l` = 1 ]; } -test_deps_mode_order() { $luarocks build --tree="system" lpeg && $luarocks build --deps-mode=order --tree="$testing_tree" lxsh && $luarocks_noecho list --tree="$testing_tree" --porcelain lpeg && [ `$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg | wc -l` = 0 ]; } -test_deps_mode_order_sys() { $luarocks build --tree="$testing_tree" lpeg && $luarocks build --deps-mode=order --tree="$testing_sys_tree" lxsh && [ `$luarocks_noecho list --tree="$testing_sys_tree" --porcelain lpeg | wc -l` = 1 ]; } -test_deps_mode_all_sys() { $luarocks build --tree="$testing_tree" lpeg && $luarocks build --deps-mode=all --tree="$testing_sys_tree" lxsh && [ `$luarocks_noecho list --tree="$testing_sys_tree" --porcelain lpeg | wc -l` = 0 ]; } -test_deps_mode_none() { $luarocks build --tree="$testing_tree" --deps-mode=none lxsh; [ `$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg | wc -l` = 0 ]; } -test_deps_mode_nodeps_alias() { $luarocks build --tree="$testing_tree" --nodeps lxsh; [ `$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg | wc -l` = 0 ]; } -test_deps_mode_make_order() { $luarocks build --tree="$testing_sys_tree" lpeg && rm -rf ./lxsh-${verrev_lxsh} && $luarocks download --source lxsh ${verrev_lxsh} && $luarocks unpack ./lxsh-${verrev_lxsh}.src.rock && cd lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1 && $luarocks make --tree="$testing_tree" --deps-mode=order && cd ../.. && [ `$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg | wc -l` = 0 ] && rm -rf ./lxsh-${verrev_lxsh}; } -test_deps_mode_make_order_sys() { $luarocks build --tree="$testing_tree" lpeg && rm -rf ./lxsh-${verrev_lxsh} && $luarocks download --source lxsh ${verrev_lxsh} && $luarocks unpack ./lxsh-${verrev_lxsh}.src.rock && cd lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1 && $luarocks make --tree="$testing_sys_tree" --deps-mode=order && cd ../.. && [ `$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg | wc -l` = 1 ] && rm -rf ./lxsh-${verrev_lxsh}; } - -test_write_rockspec() { $luarocks write_rockspec git://github.com/keplerproject/luarocks; } -test_write_rockspec_name() { $luarocks write_rockspec luarocks git://github.com/keplerproject/luarocks; } -test_write_rockspec_name_version() { $luarocks write_rockspec luarocks 7.8.9 git://github.com/keplerproject/luarocks; } -test_write_rockspec_current_dir() { $luarocks write_rockspec; } -test_write_rockspec_tag() { $luarocks write_rockspec git://github.com/keplerproject/luarocks --tag=v2.3.0; } -test_write_rockspec_lib() { $luarocks write_rockspec git://github.com/mbalmer/luafcgi --lib=fcgi --license="3-clause BSD" --lua-version=5.1,5.2; } -test_write_rockspec_format() { $luarocks write_rockspec git://github.com/keplerproject/luarocks --rockspec-format=1.1 --lua-version=5.1,5.2; } -test_write_rockspec_fullargs() { $luarocks write_rockspec git://github.com/keplerproject/luarocks --lua-version=5.1,5.2 --license="MIT/X11" --homepage="http://www.luarocks.org" --summary="A package manager for Lua modules"; } -fail_write_rockspec_args() { $luarocks write_rockspec invalid; } -fail_write_rockspec_args_url() { $luarocks write_rockspec http://example.com/invalid.zip; } -test_write_rockspec_http() { $luarocks write_rockspec http://luarocks.org/releases/luarocks-2.1.0.tar.gz --lua-version=5.1; } -test_write_rockspec_basedir() { $luarocks write_rockspec https://github.com/downloads/Olivine-Labs/luassert/luassert-1.2.tar.gz --lua-version=5.1; } - -fail_config_noflags() { $luarocks config; } -test_config_lua_incdir() { $luarocks config --lua-incdir; } -test_config_lua_libdir() { $luarocks config --lua-libdir; } -test_config_lua_ver() { $luarocks config --lua-ver; } -fail_config_system_config() { rm -f "$testing_lrprefix/etc/luarocks/config.lua"; $luarocks config --system-config; } -test_config_system_config() { mkdir -p "$testing_lrprefix/etc/luarocks"; touch "$testing_lrprefix/etc/luarocks/config.lua"; $luarocks config --system-config; err=$?; rm -f "$testing_lrprefix/etc/luarocks/config.lua"; return $err; } -fail_config_system_config_invalid() { mkdir -p "$testing_lrprefix/etc/luarocks"; echo "if if if" > "$testing_lrprefix/etc/luarocks/config.lua"; $luarocks config --system-config; err=$?; rm -f "$testing_lrprefix/etc/luarocks/config.lua"; return $err; } -test_config_user_config() { $luarocks config --user-config; } -fail_config_user_config() { LUAROCKS_CONFIG="/missing_file.lua" $luarocks config --user-config; } -test_config_rock_trees() { $luarocks config --rock-trees; } -test_config_help() { $luarocks help config; } - -# Tests for https://github.com/keplerproject/luarocks/issues/375 -test_fetch_base_dir() { $lua <