Merge branch 'master' into luarocks-3

7 files changed, 797 insertions, 1181 deletions

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=<version>, !mandatory! type your full version of Lua (e.g. lua=5.2.4)
+OR
+luajit=<version>, !mandatory! type your full version of LuaJIT (e.g. luajit=5.2.4)
+
+env=<type>,     (default:"minimal") type what kind of environment to use ["minimal", "full"]
+clean,  remove existing testing environment
+travis,  add just if running on TravisCI
+os=<version>,    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/luarocks_site.lua b/test/luarocks_site.lua
new file mode 100644
index 00000000..cfa77dca
--- /dev/null
+++ b/test/luarocks_site.lua
@@ -0,0 +1,6 @@
+-- Config file of LuaRocks site for tests
+upload = {
+   server = "http://localhost:8080",
+   tool_version = "1.0.0",
+   api_version = "1",
+}
\ No newline at end of file
diff --git a/test/mock-server.lua b/test/mock-server.lua
new file mode 100644
index 00000000..797e2bc5
--- /dev/null
+++ b/test/mock-server.lua
@@ -0,0 +1,80 @@
+#!/usr/bin/env lua
+
+--- A simple LuaRocks mock-server for testing.
+local restserver = require("restserver")
+local server = restserver:new():port(8080)
+
+server:add_resource("api/tool_version", {
+   {
+      method = "GET",
+      path = "/",
+      produces = "application/json",
+      handler = function(query)
+         local json = { version = query.current }
+         return restserver.response():status(200):entity(json)
+      end
+   }
+})
+
+server:add_resource("api/1/{id:[0-9]+}/status", {
+   {
+      method = "GET",
+      path = "/",
+      produces = "application/json",
+      handler = function(query)
+         local json = { user_id = "123", created_at = "29.1.1993" }
+         return restserver.response():status(200):entity(json)
+      end
+   }
+})
+
+server:add_resource("/api/1/{id:[0-9]+}/check_rockspec", {
+   {
+      method = "GET",
+      path = "/",
+      produces = "application/json",
+      handler = function(query)
+         local json = {}
+         return restserver.response():status(200):entity(json)
+      end
+   }
+})
+
+server:add_resource("/api/1/{id:[0-9]+}/upload", {
+   {
+      method = "POST",
+      path = "/",
+      produces = "application/json",
+      handler = function(query)
+         local json = {module = "luasocket", version = {id = "1.0"}, module_url = "http://localhost/luasocket", manifests = "root", is_new = "is_new"}
+         return restserver.response():status(200):entity(json)
+      end
+   }
+})
+
+server:add_resource("/api/1/{id:[0-9]+}/upload_rock/{id:[0-9]+}", {
+   {
+      method = "POST",
+      path = "/",
+      produces = "application/json",
+      handler = function(query)
+         local json = {"rock","module_url"}
+         return restserver.response():status(200):entity(json)
+      end
+   }
+})
+
+-- SHUTDOWN this mock-server
+server:add_resource("/shutdown", {
+   {
+      method = "GET",
+      path = "/",
+      handler = function(query)
+         os.exit()
+         return restserver.response():status(200):entity()
+      end
+   }
+})
+
+-- This loads the restserver.xavante plugin
+server:enable("restserver.xavante"):start()
\ No newline at end of file
diff --git a/test/test_environment.lua b/test/test_environment.lua
new file mode 100644
index 00000000..13e548f9
--- /dev/null
+++ b/test/test_environment.lua
@@ -0,0 +1,617 @@
+local lfs = require("lfs")
+local test_env = {}
+
+local help_message = [[
+LuaRocks test-suite
+
+INFORMATION
+   New test-suite for LuaRocks project, using unit testing framework Busted.
+REQUIREMENTS
+   Be sure sshd is running on your system, or use '--exclude-tags=ssh',
+   to not execute tests which require sshd.
+USAGE
+   busted [-Xhelper <arguments>]
+ARGUMENTS
+   env=<type>     Set type of environment to use ("minimal" or "full",
+                  default: "minimal").
+   noreset        Don't reset environment after each test
+   clean          Remove existing testing environment.
+   travis         Add if running on TravisCI.
+   os=<type>      Set OS ("linux", "osx", or "windows").
+]]
+
+local function help()
+   print(help_message)
+   os.exit(1)
+end
+
+local function title(str)
+   print()
+   print(("-"):rep(#str))
+   print(str)
+   print(("-"):rep(#str))
+end
+
+local function exists(path)
+   return lfs.attributes(path, "mode") ~= nil
+end
+
+function test_env.quiet(commad)
+   if not test_env.VERBOSE then
+      if test_env.TEST_TARGET_OS == "linux" or test_env.TEST_TARGET_OS == "osx" then
+         return commad .. " 1> /dev/null 2> /dev/null"
+      elseif test_env.TEST_TARGET_OS == "windows" then
+         return commad .. " 2> NUL 1> NUL"
+      end
+   else
+      return command
+   end
+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
+function test_env.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 = test_env.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 = test_env.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 test_env.LUA_V or test_env.LUAJIT_V based
+-- on version of Lua used to run this script.
+function test_env.set_lua_version()
+   if _G.jit then
+      test_env.LUAJIT_V = _G.jit.version:match("(2%.%d)%.%d")
+   else
+      test_env.LUA_V = _VERSION:match("5%.%d")
+   end
+end
+
+--- Set all arguments from input into global variables
+function test_env.set_args()
+   -- 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"
+   test_env.RESET_ENV = true
+
+   for _, argument in ipairs(arg) do
+      if argument:find("^env=") then
+         test_env.TYPE_TEST_ENV = argument:match("^env=(.*)$")
+      elseif argument == "noreset" then
+         test_env.RESET_ENV = false
+      elseif argument == "clean" then
+         test_env.TEST_ENV_CLEAN = true
+      elseif argument == "verbose" then
+         test_env.VERBOSE = true
+      elseif argument == "travis" then
+         test_env.TRAVIS = true
+      elseif argument:find("^os=") then
+         test_env.TEST_TARGET_OS = argument:match("^os=(.*)$")
+      else
+         help()
+      end
+   end
+
+   if not test_env.TEST_TARGET_OS then
+      title("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
+   end
+   return true
+end
+
+--- Remove directory recursively
+-- @param path string: directory path to delete
+function test_env.remove_dir(path)
+   if exists(path) then
+      for file in lfs.dir(path) do
+         if file ~= "." and file ~= ".." then
+            local full_path = path..'/'..file
+
+            if lfs.attributes(full_path, "mode") == "directory" then
+               test_env.remove_dir(full_path)
+            else
+               os.remove(full_path)
+            end
+         end
+      end
+   end
+   os.remove(path)
+end
+
+--- Remove subdirectories of a directory that match a pattern
+-- @param path string: path to directory
+-- @param pattern string: pattern matching basenames of subdirectories to be removed
+function test_env.remove_subdirs(path, pattern)
+   if exists(path) then
+      for file in lfs.dir(path) do
+         if file ~= "." and file ~= ".." then
+            local full_path = path..'/'..file
+
+            if lfs.attributes(full_path, "mode") == "directory" and file:find(pattern) then
+               test_env.remove_dir(full_path)
+            end
+         end
+      end
+   end
+end
+
+--- Remove files matching a pattern
+-- @param path string: directory where to delete files
+-- @param pattern string: pattern matching basenames of files to be deleted
+-- @return result_check boolean: true if one or more files deleted
+function test_env.remove_files(path, pattern)
+   local result_check = false
+   if exists(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 urls table: array of full names 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(urls, save_path)
+   local luarocks_repo = "https://luarocks.org"   
+   local make_manifest = false
+
+   for _, url in ipairs(urls) do
+      -- check if already downloaded
+      if not exists(save_path .. url) then
+         execute_bool("wget -cP " .. save_path .. " " .. luarocks_repo .. url)
+         make_manifest = true 
+      end
+   end
+   return make_manifest
+end
+
+--- Create a file containing a string.
+-- @param path string: path to file.
+-- @param str string: content of the file.
+local function write_file(path, str)
+   local file = assert(io.open(path, "w"))
+   file:write(str)
+   file:close()
+end
+
+--- Create md5sum of directory structure recursively, based on filename and size
+-- @param path string: path to directory for generate md5sum
+-- @return md5sum string: md5sum of directory
+local function hash_environment(path)
+   if test_env.TEST_TARGET_OS == "linux" then
+      return execute_output("find " .. path .. " -printf \"%s %p\n\" | md5sum")
+   elseif test_env.TEST_TARGET_OS == "osx" then
+      return execute_output("find " .. path .. " -type f -exec stat -f \"%z %N\" {} \\; | md5")
+   else
+      -- TODO: Windows
+      return ""
+   end
+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 make_run_function(cmd_name, exec_function, with_coverage, do_print)
+   local cmd_prefix = test_env.testing_paths.lua .. " "
+
+   if with_coverage then
+      cmd_prefix = cmd_prefix .. "-e \"require('luacov.runner')('" .. test_env.testing_paths.testing_dir .. "/luacov.config')\" "
+   end
+
+   cmd_prefix = cmd_prefix .. test_env.testing_paths.src_dir .. "/bin/" .. cmd_name .. " "
+
+   return function(cmd, new_vars)
+      local temp_vars = {}
+      for k, v in pairs(test_env.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(cmd_prefix .. cmd, do_print, temp_vars)
+   end
+end
+
+local function make_run_functions()
+   return {
+      luarocks = make_run_function("luarocks", execute_output, true, true),
+      luarocks_bool = make_run_function("luarocks", execute_bool, true, true),
+      luarocks_noprint = make_run_function("luarocks", execute_bool, true, false),
+      luarocks_nocov = make_run_function("luarocks", execute_bool, false, true),
+      luarocks_noprint_nocov = make_run_function("luarocks", execute_bool, false, false),
+      luarocks_admin = make_run_function("luarocks-admin", execute_output, true, true),
+      luarocks_admin_bool = make_run_function("luarocks-admin", execute_bool, true, true),
+      luarocks_admin_nocov = make_run_function("luarocks-admin", execute_bool, false, false)
+   }
+end
+
+--- Rebuild environment.
+-- Remove old installed rocks and install new ones,
+-- updating manifests and tree copies.
+local function build_environment(rocks, env_variables)
+   title("BUILDING ENVIRONMENT")
+   local testing_paths = test_env.testing_paths
+   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)
+
+   test_env.run.luarocks_admin_nocov("make_manifest " .. testing_paths.testing_server)
+   test_env.run.luarocks_admin_nocov("make_manifest " .. testing_paths.testing_cache)
+
+   for _, rock in ipairs(rocks) do
+      if not test_env.run.luarocks_nocov("install --only-server=" .. testing_paths.testing_cache .. " --tree=" .. testing_paths.testing_sys_tree .. " " .. rock, env_variables) then
+         test_env.run.luarocks_nocov("build --tree=" .. testing_paths.testing_sys_tree .. " " .. rock, env_variables)
+         test_env.run.luarocks_nocov("pack --tree=" .. testing_paths.testing_sys_tree .. " " .. rock, env_variables)
+         execute_bool("mv " .. rock .. "-*.rock " .. testing_paths.testing_cache)
+      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 cfg = require("luarocks.cfg")
+
+   local testing_paths = {}
+   testing_paths.luadir = cfg.variables.LUA_BINDIR:gsub("/bin/?$", "")
+   testing_paths.lua = cfg.variables.LUA_BINDIR .. "/" .. cfg.lua_interpreter
+
+   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)
+   -- if global variable about successful creation of testing environment doesn't exists, build environment
+   if not test_env.setup_done then
+      if test_env.TRAVIS then
+         if not exists(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
+
+      test_env.main()
+      package.path = test_env.env_variables.LUA_PATH
+
+      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
+      title("RUNNING TESTS")
+   end
+   
+   if extra_rocks then 
+      local make_manifest = download_rocks(extra_rocks, test_env.testing_paths.testing_server)
+      if make_manifest then
+         test_env.run.luarocks_admin_nocov("make_manifest " .. test_env.testing_paths.testing_server)
+      end
+   end
+
+   if test_env.RESET_ENV then
+      reset_environment(test_env.testing_paths, test_env.md5sums, test_env.env_variables)
+   end
+end
+
+--- Test if required rock is installed if not, install it
+function test_env.need_rock(rock)
+   print("Check if " .. rock .. " is installed")
+   if test_env.run.luarocks_noprint_nocov(test_env.quiet("show " .. rock)) then
+      return true
+   else
+      return test_env.run.luarocks_noprint_nocov(test_env.quiet("install " .. rock))
+   end
+end
+
+--- For each key-value pair in replacements table
+-- replace %{key} in given string with value.
+local function substitute(str, replacements)
+   return (str:gsub("%%%b{}", function(marker)
+      return replacements[marker:sub(3, -2)]
+   end))
+end
+
+
+--- Create configs for luacov and several versions of Luarocks
+-- configs needed for some tests.
+local function create_configs()
+   -- testing_config.lua and testing_config_show_downloads.lua
+   local config_content = substitute([[
+      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" },
+         }
+      }
+   ]], {
+      user = os.getenv("USER"),
+      testing_sys_tree = test_env.testing_paths.testing_sys_tree,
+      testing_tree = test_env.testing_paths.testing_tree,
+      testing_server = test_env.testing_paths.testing_server,
+      testing_cache = test_env.testing_paths.testing_cache
+   })
+
+   write_file(test_env.testing_paths.testing_dir .. "/testing_config.lua", config_content .. " \nweb_browser = \"true\"")
+   write_file(test_env.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 = substitute([[
+      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",
+         },
+      }
+   ]], {
+      user = os.getenv("USER"),
+      testing_sys_tree = test_env.testing_paths.testing_sys_tree,
+      testing_tree = test_env.testing_paths.testing_tree,
+      testing_cache = test_env.testing_paths.testing_cache
+   })
+
+   write_file(test_env.testing_paths.testing_dir .. "/testing_config_sftp.lua", config_content)
+
+   -- luacov.config
+   config_content = substitute([[
+      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"
+         }
+      }
+   ]], {
+      testing_dir = test_env.testing_paths.testing_dir
+   })
+
+   write_file(test_env.testing_paths.testing_dir .. "/luacov.config", config_content)
+end
+
+--- Remove testing directories.
+local function clean()
+   print("Cleaning testing directory...")
+   test_env.remove_dir(test_env.testing_paths.luarocks_tmp)
+   test_env.remove_subdirs(test_env.testing_paths.testing_dir, "testing[_%-]")
+   test_env.remove_files(test_env.testing_paths.testing_dir, "testing_")
+   test_env.remove_files(test_env.testing_paths.testing_dir, "luacov")
+   test_env.remove_files(test_env.testing_paths.testing_dir, "upload_config")
+   print("Cleaning done!")
+end
+
+--- Install luarocks into testing prefix.
+local function install_luarocks(install_env_vars)
+   -- Configure LuaRocks testing environment
+   title("Installing LuaRocks")
+   local configure_cmd = "./configure --with-lua=" .. test_env.testing_paths.luadir .. " --prefix=" .. test_env.testing_paths.testing_lrprefix
+   assert(execute_bool(test_env.quiet(configure_cmd), false, install_env_vars))
+   assert(execute_bool(test_env.quiet("make clean"), false, install_env_vars))
+   assert(execute_bool(test_env.quiet("make src/luarocks/site_config.lua"), false, install_env_vars))
+   assert(execute_bool(test_env.quiet("make dev"), false, install_env_vars))
+   print("LuaRocks installed correctly!")
+end
+
+---
+-- Main function to create config files and testing environment 
+function test_env.main()
+   local testing_paths = test_env.testing_paths
+
+   if test_env.TEST_ENV_CLEAN then
+      clean()
+   end
+
+   lfs.mkdir(testing_paths.testing_cache)
+   lfs.mkdir(testing_paths.luarocks_tmp)
+
+   create_configs()
+
+   local install_env_vars = {
+      LUAROCKS_CONFIG = test_env.testing_paths.testing_dir .. "/testing_config.lua",
+      LUA_PATH = "",
+      LUA_CPATH = ""
+   }
+
+   install_luarocks(install_env_vars)
+
+   -- Preparation of rocks for building environment
+   local rocks = {} -- names of rocks, required for building environment
+   local urls = {}  -- names of rock and rockspec files to be downloaded
+   table.insert(urls, "/luacov-0.11.0-1.rockspec")
+   table.insert(urls, "/luacov-0.11.0-1.src.rock")
+
+   if test_env.TYPE_TEST_ENV == "full" then
+      table.insert(urls, "/luafilesystem-1.6.3-1.src.rock")
+      table.insert(urls, "/luasocket-3.0rc1-1.src.rock")
+      table.insert(urls, "/luasocket-3.0rc1-1.rockspec")
+      table.insert(urls, "/luaposix-33.2.1-1.src.rock")
+      table.insert(urls, "/md5-1.2-1.src.rock")
+      table.insert(urls, "/lzlib-0.4.1.53-1.src.rock")
+      rocks = {"luafilesystem", "luasocket", "luaposix", "md5", "lzlib"}
+
+      if test_env.LUA_V ~= "5.1" then
+         table.insert(urls, "/luabitop-1.0.2-1.rockspec")
+         table.insert(urls, "/luabitop-1.0.2-1.src.rock")
+         table.insert(rocks, "luabitop")
+      end
+   end
+
+   table.insert(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(urls, testing_paths.testing_server)
+   build_environment(rocks, install_env_vars)
+end
+
+test_env.set_lua_version()
+test_env.set_args()
+test_env.testing_paths = create_paths(test_env.LUA_V or test_env.LUAJIT_V)
+test_env.env_variables = create_env(test_env.testing_paths)
+test_env.run = make_run_functions()
+
+return test_env
diff --git a/test/testfiles/invalid_validate-args-1.5.4-1.rockspec b/test/testfiles/invalid_validate-args-1.5.4-1.rockspec
new file mode 100644
index 00000000..0b4d807d
--- /dev/null
+++ b/test/testfiles/invalid_validate-args-1.5.4-1.rockspec
@@ -0,0 +1,35 @@
+package = 'validate-args'
+version = '1.5.4-1'
+source = {{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{++{
+  url = "https://bitbucket.org/djerius/validate.args/downloads/validate-args-1.5.4.tar.gz"
+}
+
+description = {
+   summary = "Function argument validation",
+   detailed = [[
+         validate.args is a Lua module that provides a framework for
+         validation of arguments to Lua functions as well as complex data
+         structures. The included validate.inplace module provides "live"
+         validation during assignment of values to elements in tables. ]],
+   license = "GPL-3",
+
+}
+
+dependencies = {
+   "lua >= 5.1"
+}
+
+build = {
+
+   type = "builtin",
+
+   modules = {
+      ["validate.args"] = "validate/args.lua",
+      ["validate.inplace"] = "validate/inplace.lua",
+   },
+
+   copy_directories = {
+   "doc", "tests"
+   }
+
+}
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 0dd34bf1..00000000
--- a/test/testing.sh
+++ /dev/null
@@ -1,698 +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
-
-is_jit=`[ "${luaversion::3}" = "jit" ] && echo 1 || echo 0`
-
-if [ "$is_jit" = 1 ]
-then
-   luashortversion=5.1
-   luajitversion=${luaversion:4}
-else
-   luashortversion=`echo $luaversion | cut -d. -f 1-2`
-fi
-
-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 <<EOF > $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 <<EOF > $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 <<EOF > $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
-      cd lua
-      if [ "$is_jit" = 1 ]
-      then
-         echo "Downloading LuaJIT $luajitversion..."
-         #rm -f "LuaJIT-$luajitversion.tar.gz"
-         wget -c "https://github.com/LuaJIT/LuaJIT/archive/v$luajitversion.tar.gz" &> /dev/null
-         tar zxpf "v$luajitversion.tar.gz"
-         cd "LuaJIT-$luajitversion"
-         echo "Building LuaJIT $luajitversion..."
-         make PREFIX="$luadir" &> /dev/null
-         make install PREFIX="$luadir" &> /dev/null
-      else
-         echo "Downloading Lua $luaversion..."
-         #rm -f "lua-$luaversion.tar.gz"
-         wget -c "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
-   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
-   if [ "$is_jit" = 1 ]
-   then
-      luadir="/Programs/LuaJIT/$luajitversion"
-echo HELLO $luadir
-   else
-      luadir="/Programs/Lua/$luaversion"
-   fi
-   if [ ! -e "$luadir" ]
-   then
-      luadir="/usr/local"
-   fi
-fi
-
-if [ `uname -m` = i686 ]
-then
-   platform="linux-x86"
-else
-   platform="linux-x86_64"
-fi
-
-if [ "$is_jit" = 1 ]
-then
-   lua="$luadir/bin/luajit"
-   luarocks_configure_extra_args="--lua-suffix=jit --with-lua-include=$luadir/include/luajit-2.0"
-else
-   lua="$luadir/bin/lua"
-fi
-
-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" $luarocks_configure_extra_args
-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"
-luajit_luarocks="luajit -e require('luacov.runner')('$testing_dir/luacov.config') $basedir/bin/luarocks"
-
-###################################################
-
-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; }
-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 <<EOF
-   local fetch = require "luarocks.fetch"
-
-   assert("v0.3" == fetch.url_to_base_dir("https://github.com/hishamhm/lua-compat-5.2/archive/v0.3.zip"))
-   assert("lua-compat-5.2" == fetch.url_to_base_dir("https://github.com/hishamhm/lua-compat-5.2.zip"))
-   assert("lua-compat-5.2" == fetch.url_to_base_dir("https://github.com/hishamhm/lua-compat-5.2.tar.gz"))
-   assert("lua-compat-5.2" == fetch.url_to_base_dir("https://github.com/hishamhm/lua-compat-5.2.tar.bz2"))
-   assert("parser.moon" == fetch.url_to_base_dir("git://github.com/Cirru/parser.moon"))
-   assert("v0.3" == fetch.url_to_base_dir("https://github.com/hishamhm/lua-compat-5.2/archive/v0.3"))
-EOF
-}
-
-test_luajit_dependency() {
-   if [ "$is_jit" = 1 ]
-   then $luarocks build "$testing_dir/testfiles/luajit-success-1.0-1.rockspec"
-   else true
-   fi
-}
-fail_luajit_dependency() { 
-   if [ "$is_jit" = 1 ]
-   then $luarocks build "$testing_dir/testfiles/luajit-fail-1.0-1.rockspec"
-   else false
-   fi
-}
-
-test_doc() { $luarocks install luarepl; $luarocks doc luarepl; }
-test_doc_home() { $luarocks install luacov; $luarocks doc luacov --home; }
-fail_doc_invalid() { $luarocks doc invalid; }
-test_doc_list() { $luarocks install luacov; $luarocks doc luacov --list; }
-test_doc_local() { $luarocks install luacov; $luarocks doc luacov --local; }
-test_doc_porcelain() { $luarocks install luacov; $luarocks doc luacov --porcelain; }
-
-# Tests for https://github.com/keplerproject/luarocks/pull/552
-test_install_break_dependencies_warning() { need_luasocket; $luarocks install say ${new_version_say} && $luarocks install luassert && $luarocks install say ${old_version_say}; }
-test_install_break_dependencies_force() { need_luasocket; $luarocks install say ${new_version_say} && $luarocks install luassert && $luarocks install --force say ${old_version_say}; }
-test_install_break_dependencies_forcefast() { need_luasocket; $luarocks install say ${new_version_say} && $luarocks install luassert && $luarocks install --force-fast say ${old_version_say}; }
-
-# Driver #########################################
-run_tests() {
-   grep "^test_$1.*(" < $testing_dir/testing.sh | cut -d'(' -f1 | while read test
-   do
-      echo "-------------------------------------------"
-      echo "$test"
-      echo "-------------------------------------------"
-      reset_environment
-      if $test
-      then
-         echo "OK: Expected success."
-      else
-         if [ $? = 99 ]
-         then echo "FAIL: Unexpected crash!"; exit 99
-         fi
-         echo "FAIL: Unexpected failure."; exit 1
-      fi
-   done
-   grep "^fail_$1.*(" < $testing_dir/testing.sh | cut -d'(' -f1 | while read test
-   do
-      echo "-------------------------------------------"
-      echo "$test"
-      echo "-------------------------------------------"
-      reset_environment
-      if $test
-      then echo "FAIL: Unexpected success."; exit 1
-      else
-         if [ $? = 99 ]
-         then echo "FAIL: Unexpected crash!"; exit 99
-         fi
-         echo "OK: Expected failure."
-      fi
-   done
-}
-
-run_with_minimal_environment() {
-   echo "==========================================="
-   echo "Running with minimal environment"
-   echo "==========================================="
-   build_environment luacov
-   run_tests $1
-}
-
-run_with_full_environment() {
-   echo "==========================================="
-   echo "Running with full environment"
-   echo "==========================================="
-   
-   local bitop=
-   [ "$luaversion" = "5.1.5" ] && bitop=luabitop
-   
-   build_environment luacov luafilesystem luasocket $bitop luaposix md5 lzlib
-   run_tests $1
-}
-
-run_all_tests() {
-   run_with_minimal_environment $1
-   run_with_full_environment $1
-}
-
-run_all_tests $1
-#run_with_minimal_environment $1
-
-cd "$testing_dir/.."
-
-if [ "$travis" ]
-then
-   if [ "$TRAVIS" ]
-   then
-      build_environment luacov luafilesystem luacov-coveralls
-      $testing_sys_tree/bin/luacov-coveralls -c "$testing_dir/luacov.config" || echo "ok"
-   fi
-   $testing_sys_tree/bin/luacov -c "$testing_dir/luacov.config"
-   grep "Summary" -B1 -A1000 "$testing_dir/luacov.report.out"
-else
-   $testing_sys_tree/bin/luacov -c "$testing_dir/luacov.config"
-   cat "$testing_dir/luacov.report.out"
-fi