40 files changed, 2480 insertions, 1199 deletions

diff --git a/.busted b/.busted
new file mode 100644
index 00000000..29a8137b
--- /dev/null
+++ b/.busted
@@ -0,0 +1,6 @@
+return {
+   default = {
+      helper = "test/test_environment",
+      ["auto-insulate"] = false
+   }
+}
diff --git a/.travis.yml b/.travis.yml
index f946bb99..02bdb6c9 100644
--- a/.travis.yml
+++ b/.travis.yml
@@ -1,14 +1,65 @@
-language: c
+language: python
 
-compiler: gcc
+matrix:
+  include:
+    - os: linux
+      env:
+        - LUA="lua=5.1"
+    - os: linux
+      env:
+        - LUA="lua=5.2"
+    - os: linux
+      env:
+        - LUA="lua=5.3"
+    - os: linux
+      env:
+        - LUA="luajit=2.0"
+    - os: linux
+      env:
+        - LUA="luajit=2.1"
+    - os: osx
+      language: generic
+      env:
+        - LUA="lua=5.1"
+    - os: osx
+      language: generic
+      env:
+        - LUA="lua=5.2"
+    - os: osx
+      language: generic
+      env:
+        - LUA="lua=5.3"
+    - os: osx
+      language: generic
+      env:
+        - LUA="luajit=2.0"
+    - os: osx
+      language: generic
+      env:
+        - LUA="luajit=2.1"
 
-sudo: false
 
-env:
-  matrix:
-    - LUA_VER=5.1.5
-    - LUA_VER=5.2.4
-    - LUA_VER=5.3.1
-    - LUA_VER=jit-2.0.4
+before_install:
+  - if [[ "$TRAVIS_OS_NAME" == "osx" ]]; then brew update; brew install python; fi
+  - pip install hererocks
+  - hererocks lua_install -r^ --$LUA
+  - export PATH=$PATH:$PWD/lua_install/bin # Add directory with all installed binaries to PATH
 
-script: cd test && ./testing.sh --travis --lua $LUA_VER
+install:
+  - luarocks install busted
+  - luarocks install luacov
+  - luarocks install luacov-coveralls
+
+script:
+  - busted -Xhelper travis --verbose
+  - busted -Xhelper travis,env=full --verbose
+
+after_success:
+  - luacov-coveralls -c $TRAVIS_BUILD_DIR/test/luacov.config --exclude $TRAVIS_BUILD_DIR/test/
+  - luacov -c $TRAVIS_BUILD_DIR/test/luacov.config
+  - grep "Summary" -B1 -A1000 $TRAVIS_BUILD_DIR/test/luacov.report.out
+
+notifications:
+  email:
+    on_success: change
+    on_failure: change
diff --git a/spec/add_spec.lua b/spec/add_spec.lua
new file mode 100644
index 00000000..dca6f850
--- /dev/null
+++ b/spec/add_spec.lua
@@ -0,0 +1,44 @@
+local test_env = require("test/test_environment")
+local run = test_env.run
+local testing_paths = test_env.testing_paths
+
+test_env.unload_luarocks()
+
+local extra_rocks = {
+   "/luasocket-3.0rc1-1.src.rock",
+   "/luasocket-3.0rc1-1.rockspec"
+}
+
+describe("LuaRocks add tests #blackbox #b_add", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+   end)
+
+   describe("LuaRocks-admin add tests", function()
+      it("LuaRocks-admin add invalid rock #ssh", function()
+         assert.is_false(run.luarocks_admin_bool("--server=testing add invalid"))
+      end)
+
+      it("LuaRocks-admin add missing argument", function()
+         assert.is_false(run.luarocks_admin_bool("--server=testing add"))
+      end)
+      
+      it("LuaRocks-admin add invalid server", function()
+         assert.is_false(run.luarocks_admin_bool("--server=invalid add " .. testing_paths.testing_server .. "/luasocket-3.0rc1-1.src.rock"))
+      end)
+      
+      it("LuaRocks-admin add invalid server #ssh", function()
+         assert.is_true(run.luarocks_admin_bool("--server=testing add " .. testing_paths.testing_server .. "/luasocket-3.0rc1-1.src.rock"))
+      end)
+      
+      --TODO This test fails, sftp not implemented
+      it("LuaRocks-admin add invalid server", function() --?
+         assert.is_false(run.luarocks_admin_bool("--server=testing add luasocket-3.0rc1-1.src.rock", { LUAROCKS_CONFIG = testing_paths.testing_dir .. "/testing_config_sftp.lua" } ))
+      end)
+      
+      it("LuaRocks-admin add, split server url", function()
+         assert.is_false(run.luarocks_admin_bool("--server=\"localhost@/tmp/luarocks_testing\" add " .. testing_paths.testing_server .. "luasocket-3.0rc1-1.src.rock"))
+      end)
+   end)
+end)
diff --git a/spec/build_spec.lua b/spec/build_spec.lua
new file mode 100644
index 00000000..2ede5211
--- /dev/null
+++ b/spec/build_spec.lua
@@ -0,0 +1,181 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+local run = test_env.run
+local testing_paths = test_env.testing_paths
+
+test_env.unload_luarocks()
+
+local extra_rocks = {
+   "/lmathx-20120430.51-1.src.rock",
+   "/lmathx-20120430.51-1.rockspec",
+   "/lmathx-20120430.52-1.src.rock",
+   "/lmathx-20120430.52-1.rockspec",
+   "/lmathx-20150505-1.src.rock",
+   "/lmathx-20150505-1.rockspec",
+   "/lpeg-0.12-1.src.rock",
+   "/lpty-1.0.1-1.src.rock",
+   "/luadoc-3.0.1-1.src.rock",
+   "/luafilesystem-1.6.3-1.src.rock",
+   "/lualogging-1.3.0-1.src.rock",
+   "/luarepl-0.4-1.src.rock",
+   "/luasec-0.6-1.rockspec",
+   "/luasocket-3.0rc1-1.src.rock",
+   "/luasocket-3.0rc1-1.rockspec",
+   "/lxsh-0.8.6-2.src.rock",
+   "/lxsh-0.8.6-2.rockspec",
+   "/stdlib-41.0.0-1.src.rock",
+   "/validate-args-1.5.4-1.rockspec"
+}
+
+describe("LuaRocks build tests #blackbox #b_build", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+   end)
+
+   describe("LuaRocks build - basic testing set", function()
+      it("LuaRocks build with no flags/arguments", function()
+         assert.is_false(run.luarocks_bool("build"))
+      end)
+      
+      it("LuaRocks build invalid", function()
+         assert.is_false(run.luarocks_bool("build invalid"))
+      end)
+   end)
+
+   describe("LuaRocks build - building lpeg with flags", function()
+      it("LuaRocks build fail build permissions", function()
+         if test_env.TEST_TARGET_OS == "osx" or test_env.TEST_TARGET_OS == "linux" then
+            assert.is_false(run.luarocks_bool("build --tree=/usr lpeg"))
+         end
+      end)
+      
+      it("LuaRocks build fail build permissions parent", function()
+         if test_env.TEST_TARGET_OS == "osx" or test_env.TEST_TARGET_OS == "linux" then
+            assert.is_false(run.luarocks_bool("build --tree=/usr/invalid lpeg"))
+         end
+      end)
+      
+      it("LuaRocks build lpeg verbose", function()
+         assert.is.truthy(run.luarocks("build --verbose lpeg"))
+      end)
+      
+      it("LuaRocks build lpeg branch=master", function()
+         assert.is_true(run.luarocks_bool("build --branch=master lpeg"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lpeg"))
+      end)
+      
+      it("LuaRocks build lpeg deps-mode=123", function()
+         assert.is_false(run.luarocks_bool("build --deps-mode=123 lpeg"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lpeg"))
+      end)
+      
+      it("LuaRocks build lpeg only-sources example", function()
+         assert.is_true(run.luarocks_bool("build --only-sources=\"http://example.com\" lpeg"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lpeg"))
+      end)
+      
+      it("LuaRocks build lpeg with empty tree", function()
+         assert.is_false(run.luarocks_bool("build --tree=\"\" lpeg"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lpeg"))
+      end)
+   end)
+
+   describe("LuaRocks build - basic builds", function()
+      it("LuaRocks build luadoc", function()
+         assert.is_true(run.luarocks_bool(test_env.quiet("build luadoc")))
+      end)
+      
+      it("LuaRocks build luacov diff version", function()
+         assert.is_true(run.luarocks_bool("build luacov 0.11.0-1"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/luacov"))
+      end)
+      
+      it("LuaRocks build command stdlib", function()
+         assert.is_true(run.luarocks_bool("build stdlib"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/stdlib"))
+      end)
+      
+      it("LuaRocks build install bin luarepl", function()
+         assert.is_true(run.luarocks_bool("build luarepl"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/luarepl"))
+      end)
+      
+      it("LuaRocks build supported platforms lpty", function()
+         assert.is_true(run.luarocks_bool(test_env.quiet("build lpty")))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lpty"))
+      end)
+      
+      it("LuaRocks build luasec with skipping dependency checks", function()
+         assert.is_true(run.luarocks_bool(test_env.quiet("build luasec --nodeps")))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/luasec"))
+      end)
+      
+      it("LuaRocks build lmathx deps partial match", function()
+         assert.is_true(run.luarocks_bool("build lmathx"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lmathx"))
+      end)
+   end)
+
+   describe("LuaRocks build - more complex tests", function()
+      if test_env.TYPE_TEST_ENV == "full" then
+         it("LuaRocks build luacheck show downloads test_config", function()
+            local output = run.luarocks("build luacheck", { LUAROCKS_CONFIG = testing_paths.testing_dir .. "/testing_config_show_downloads.lua"} )
+            assert.is.truthy(output:match("%.%.%."))
+         end)
+      end
+
+      it("LuaRocks build luasec only deps", function()
+         assert.is_true(run.luarocks_bool(test_env.quiet("build luasec --only-deps")))
+         assert.is_false(run.luarocks_bool("show luasec"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/luasec"))
+      end)
+      
+      it("LuaRocks build only deps of downloaded rockspec of lxsh", function()
+         assert.is_true(run.luarocks_bool("download --rockspec lxsh 0.8.6-2"))
+         assert.is.truthy(run.luarocks("build lxsh-0.8.6-2.rockspec --only-deps"))
+         assert.is_false(run.luarocks_bool("show lxsh"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lxsh"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lpeg"))
+         assert.is_true(os.remove("lxsh-0.8.6-2.rockspec"))
+      end)
+
+      it("LuaRocks build only deps of downloaded rock of lxsh", function()
+         assert.is_true(run.luarocks_bool("download --source lxsh 0.8.6-2"))
+         assert.is.truthy(run.luarocks("build lxsh-0.8.6-2.src.rock --only-deps"))
+         assert.is_false(run.luarocks_bool("show lxsh"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lxsh"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lpeg"))
+         assert.is_true(os.remove("lxsh-0.8.6-2.src.rock"))
+      end)
+
+      it("LuaRocks build no https", function()
+         assert.is_true(run.luarocks_bool("download --rockspec validate-args 1.5.4-1"))
+         assert.is_true(run.luarocks_bool("build validate-args-1.5.4-1.rockspec"))
+
+         assert.is.truthy(run.luarocks("show validate-args"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/validate-args"))
+
+         assert.is_true(os.remove("validate-args-1.5.4-1.rockspec"))
+      end)
+      
+      it("LuaRocks build with https", function()
+         assert.is_true(run.luarocks_bool("download --rockspec validate-args 1.5.4-1"))
+         assert.is_true(run.luarocks_bool(test_env.quiet("install luasec")))
+         assert.is_true(run.luarocks_bool("build validate-args-1.5.4-1.rockspec"))
+
+         assert.is.truthy(run.luarocks("show validate-args"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/validate-args"))
+
+         assert.is_true(os.remove("validate-args-1.5.4-1.rockspec"))
+      end)
+
+      it("LuaRocks build missing external", function()
+         assert.is_false(run.luarocks_bool("build " .. testing_paths.testing_dir .. "/testfiles/missing_external-0.1-1.rockspec INEXISTENT_INCDIR=\"/invalid/dir\""))
+      end)
+      
+      it("LuaRocks build invalid patch", function()
+         assert.is_false(run.luarocks_bool("build " .. testing_paths.testing_dir .. "/testfiles/invalid_patch-0.1-1.rockspec"))
+      end)
+   end)
+end)
diff --git a/spec/config_spec.lua b/spec/config_spec.lua
new file mode 100644
index 00000000..0dee8620
--- /dev/null
+++ b/spec/config_spec.lua
@@ -0,0 +1,90 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+local run = test_env.run
+local testing_paths = test_env.testing_paths
+local site_config
+
+test_env.unload_luarocks()
+
+describe("LuaRocks config tests #blackbox #b_config", function()
+   
+   before_each(function()
+      test_env.setup_specs()
+      test_env.unload_luarocks() -- need to be required here, because site_config is created after first loading of specs
+      site_config = require("luarocks.site_config")
+   end)
+
+   describe("LuaRocks config - basic tests", function()
+      it("LuaRocks config with no flags/arguments", function()
+         assert.is_false(run.luarocks_bool("config"))
+      end)
+      
+      it("LuaRocks config include dir", function()
+         local output = run.luarocks("config --lua-incdir")
+         assert.are.same(output, site_config.LUA_INCDIR)
+      end)
+      
+      it("LuaRocks config library dir", function()
+         local output = run.luarocks("config --lua-libdir")
+         assert.are.same(output, site_config.LUA_LIBDIR)
+      end)
+      
+      it("LuaRocks config lua version", function()
+         local output = run.luarocks("config --lua-ver")
+         local lua_version = _VERSION:gsub("Lua ", "")
+         if test_env.LUAJIT_V then
+            lua_version = "5.1"
+         end
+         assert.are.same(output, lua_version)
+      end)
+      
+      it("LuaRocks config rock trees", function()
+         assert.is_true(run.luarocks_bool("config --rock-trees"))
+      end)
+      
+      it("LuaRocks config user config", function()
+         local user_config_path = run.luarocks("config --user-config")
+         assert.is.truthy(lfs.attributes(user_config_path))
+      end)
+      
+      it("LuaRocks config missing user config", function()
+         assert.is_false(run.luarocks_bool("config --user-config", {LUAROCKS_CONFIG = "missing_file.lua"}))
+      end)
+   end)
+
+   describe("LuaRocks config - more complex tests", function()
+      it("LuaRocks fail system config", function()
+         os.remove(testing_paths.testing_lrprefix .. "/etc/luarocks/config.lua")
+         assert.is_false(run.luarocks_bool("config --system-config;"))
+      end)
+      
+      it("LuaRocks system config", function()
+         local scdir = testing_paths.testing_lrprefix .. "/etc/luarocks"
+         lfs.mkdir(testing_paths.testing_lrprefix)
+         lfs.mkdir(testing_paths.testing_lrprefix .. "/etc/")
+         lfs.mkdir(scdir)
+
+         local sysconfig = io.open(scdir .. "/config.lua", "w+")
+         sysconfig:write(" ")
+         sysconfig:close()
+
+         local output = run.luarocks("config --system-config;")
+         assert.are.same(output, scdir .. "/config.lua")
+         test_env.remove_dir(testing_paths.testing_lrprefix)
+      end)
+      
+      it("LuaRocks fail system config invalid", function()
+         local scdir = testing_paths.testing_lrprefix .. "/etc/luarocks"
+         lfs.mkdir(testing_paths.testing_lrprefix)
+         lfs.mkdir(testing_paths.testing_lrprefix .. "/etc/")
+         lfs.mkdir(scdir)
+
+         local sysconfig = io.open(scdir .. "/config.lua", "w+")
+         sysconfig:write("if if if")
+         sysconfig:close()
+
+         assert.is_false(run.luarocks_bool("config --system-config;"))
+         test_env.remove_dir(testing_paths.testing_lrprefix)
+      end)
+   end)
+end)
diff --git a/spec/deps_spec.lua b/spec/deps_spec.lua
new file mode 100644
index 00000000..c1bd404d
--- /dev/null
+++ b/spec/deps_spec.lua
@@ -0,0 +1,114 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+local run = test_env.run
+local testing_paths = test_env.testing_paths
+
+test_env.unload_luarocks()
+
+local extra_rocks = {
+   "/lxsh-0.8.6-2.src.rock",
+   "/lxsh-0.8.6-2.rockspec",
+   "/luasocket-3.0rc1-1.src.rock",
+   "/luasocket-3.0rc1-1.rockspec",
+   "/lpeg-0.12-1.src.rock"
+}
+
+describe("LuaRocks deps tests #blackbox #b_deps", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+   end)
+
+   it("LuaRocks deps mode one", function()
+      assert.is_true(run.luarocks_bool("build --tree=system lpeg"))
+      assert.is_true(run.luarocks_bool("build --deps-mode=one --tree=" .. testing_paths.testing_tree .. " lxsh"))
+      
+      assert.is.truthy(lfs.attributes(testing_paths.testing_tree .. "/lib/luarocks/rocks/lpeg"))
+      assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lpeg"))
+      assert.is.truthy(lfs.attributes(testing_paths.testing_tree .. "/lib/luarocks/rocks/lxsh"))
+      assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lxsh"))
+   end)
+
+   it("LuaRocks deps mode order", function()
+      assert.is_true(run.luarocks_bool("build --tree=system lpeg"))
+      assert.is_true(run.luarocks_bool("build --deps-mode=order --tree=" .. testing_paths.testing_tree .. " lxsh"))
+
+      assert.is.falsy(lfs.attributes(testing_paths.testing_tree .. "/lib/luarocks/rocks/lpeg"))
+      assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lpeg"))
+      assert.is.truthy(lfs.attributes(testing_paths.testing_tree .. "/lib/luarocks/rocks/lxsh"))
+      assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lxsh"))
+   end)
+
+   it("LuaRocks deps mode order sys", function()
+      assert.is_true(run.luarocks_bool("build --tree=" .. testing_paths.testing_tree .. " lpeg"))
+      assert.is_true(run.luarocks_bool("build --deps-mode=order --tree=" .. testing_paths.testing_sys_tree .. " lxsh"))
+
+      assert.is.truthy(lfs.attributes(testing_paths.testing_tree .. "/lib/luarocks/rocks/lpeg"))
+      assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lpeg"))
+      assert.is.falsy(lfs.attributes(testing_paths.testing_tree .. "/lib/luarocks/rocks/lxsh"))
+      assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lxsh"))
+   end)
+
+   it("LuaRocks deps mode all sys", function()
+      assert.is_true(run.luarocks_bool("build --tree=" .. testing_paths.testing_tree .. " lpeg"))
+      assert.is_true(run.luarocks_bool("build --deps-mode=all --tree=" .. testing_paths.testing_sys_tree .. " lxsh"))
+
+      assert.is.truthy(lfs.attributes(testing_paths.testing_tree .. "/lib/luarocks/rocks/lpeg"))
+      assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lpeg"))
+      assert.is.falsy(lfs.attributes(testing_paths.testing_tree .. "/lib/luarocks/rocks/lxsh"))
+      assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lxsh"))
+   end)
+
+   it("LuaRocks deps mode none", function()
+      assert.is_true(run.luarocks_bool("build --tree=" .. testing_paths.testing_tree .. " lpeg"))
+      assert.is_true(run.luarocks_bool("build --deps-mode=none lxsh"))
+
+      assert.is.truthy(lfs.attributes(testing_paths.testing_tree .. "/lib/luarocks/rocks/lpeg"))
+      assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lpeg"))
+      assert.is.falsy(lfs.attributes(testing_paths.testing_tree .. "/lib/luarocks/rocks/lxsh"))
+      assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lxsh"))
+   end)
+
+   it("LuaRocks nodeps alias", function()
+      assert.is_true(run.luarocks_bool("build --tree=" .. testing_paths.testing_tree .. " --nodeps lxsh"))
+
+      assert.is.falsy(lfs.attributes(testing_paths.testing_tree .. "/lib/luarocks/rocks/lpeg"))
+      assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lpeg"))
+      assert.is.truthy(lfs.attributes(testing_paths.testing_tree .. "/lib/luarocks/rocks/lxsh"))
+      assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lxsh"))
+   end)
+
+   it("LuaRocks deps mode make order", function()
+      assert.is_true(run.luarocks_bool("build --tree=" .. testing_paths.testing_sys_tree .. " lpeg"))
+      assert.is_true(run.luarocks_bool("download --source lxsh 0.8.6"))
+      assert.is_true(run.luarocks_bool("unpack lxsh-0.8.6-2.src.rock"))
+      lfs.chdir("lxsh-0.8.6-2/lxsh-0.8.6-1/")
+      assert.is_true(run.luarocks_bool("make --tree=" .. testing_paths.testing_tree .. " --deps-mode=order"))
+
+      lfs.chdir(testing_paths.luarocks_dir)
+      test_env.remove_dir("lxsh-0.8.6-2")
+      assert.is_true(os.remove("lxsh-0.8.6-2.src.rock"))
+
+      assert.is.falsy(lfs.attributes(testing_paths.testing_tree .. "/lib/luarocks/rocks/lpeg"))
+      assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lpeg"))
+      assert.is.truthy(lfs.attributes(testing_paths.testing_tree .. "/lib/luarocks/rocks/lxsh"))
+      assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lxsh"))
+   end)
+   
+   it("LuaRocks deps mode make order sys", function()
+      assert.is_true(run.luarocks_bool("build --tree=" .. testing_paths.testing_tree .. " lpeg"))
+      assert.is_true(run.luarocks_bool("download --source lxsh 0.8.6"))
+      assert.is_true(run.luarocks_bool("unpack lxsh-0.8.6-2.src.rock"))
+      lfs.chdir("lxsh-0.8.6-2/lxsh-0.8.6-1/")
+      assert.is_true(run.luarocks_bool("make --tree=" .. testing_paths.testing_sys_tree .. " --deps-mode=order"))
+
+      lfs.chdir(testing_paths.luarocks_dir)
+      test_env.remove_dir("lxsh-0.8.6-2")
+      assert.is_true(os.remove("lxsh-0.8.6-2.src.rock"))
+
+      assert.is.truthy(lfs.attributes(testing_paths.testing_tree .. "/lib/luarocks/rocks/lpeg"))
+      assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lpeg"))
+      assert.is.falsy(lfs.attributes(testing_paths.testing_tree .. "/lib/luarocks/rocks/lxsh"))
+      assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lxsh"))
+   end)
+end)
diff --git a/spec/doc_spec.lua b/spec/doc_spec.lua
new file mode 100644
index 00000000..a04d3c14
--- /dev/null
+++ b/spec/doc_spec.lua
@@ -0,0 +1,71 @@
+local test_env = require("test/test_environment")
+local run = test_env.run
+local testing_paths = test_env.testing_paths
+
+test_env.unload_luarocks()
+
+local extra_rocks = {
+  "/luarepl-0.4-1.src.rock",
+  "/c3-1.0-1.src.rock"
+}
+
+describe("LuaRocks doc tests #blackbox #b_doc", function()
+   
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+   end)
+
+   describe("LuaRocks doc basic tests", function()
+      it("LuaRocks doc with no flags/arguments", function()
+         assert.is_false(run.luarocks_bool("doc"))
+      end)
+      it("LuaRocks doc with invalid argument", function()
+         assert.is_false(run.luarocks_bool("doc invalid"))
+      end)
+      it("LuaRocks doc with no homepage", function()
+         assert.is_true(run.luarocks_bool("install c3"))
+         assert.is_false(run.luarocks_bool("doc c3 --home"))
+      end)
+      it("LuaRocks doc with no home page and no doc folder", function()
+         assert.is_true(run.luarocks_bool("install c3"))
+         test_env.remove_dir(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/c3/1.0-1/doc")
+         assert.is_false(run.luarocks_bool("doc c3"))
+      end)
+      it("LuaRocks doc with no doc folder opening descript.homepage", function()
+         assert.is_true(run.luarocks_bool("install luarepl"))
+         test_env.remove_dir(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/luarepl/0.4-1/doc")
+         local output = run.luarocks("doc luarepl")
+         assert.is.truthy(output:find("Local documentation directory not found"))
+      end)
+   end)
+   
+   describe("LuaRocks doc tests with flags", function()
+      it("LuaRocks doc of installed luarepl", function()
+         assert.is_true(run.luarocks_bool("install luarepl"))
+         assert.is_true(run.luarocks_bool("doc luarepl"))
+      end)
+
+      it("LuaRocks doc of luacov and access its home page", function()
+         assert.is_true(run.luarocks_bool("install luacov"))
+         assert.is_true(run.luarocks_bool("doc luacov --home"))
+      end)
+      
+      it("LuaRocks doc of luacov and list doc folder", function()
+         assert.is_true(run.luarocks_bool("install luacov"))
+         local output = assert.is.truthy(run.luarocks("doc luacov --list"))
+         assert.is.truthy(output:find("/lib/luarocks/rocks/luacov/0.11.0--1/doc/"))
+      end)
+      
+      it("LuaRocks doc of luacov local", function()
+         assert.is_true(run.luarocks_bool("install luacov"))
+         assert.is_true(run.luarocks_bool("doc luacov --local"))
+      end)
+      
+      it("LuaRocks doc of luacov porcelain", function()
+         assert.is_true(run.luarocks_bool("install luacov"))
+         assert.is_true(run.luarocks_bool("doc luacov --porcelain"))
+      end)
+   end)
+end)
+
+
diff --git a/spec/download_spec.lua b/spec/download_spec.lua
new file mode 100644
index 00000000..320d9304
--- /dev/null
+++ b/spec/download_spec.lua
@@ -0,0 +1,36 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+local run = test_env.run
+
+test_env.unload_luarocks()
+
+local extra_rocks = {
+   "/validate-args-1.5.4-1.rockspec"
+}
+
+describe("LuaRocks download tests #blackbox #b_download", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+   end)
+
+   it("LuaRocks download with no flags/arguments", function()
+      assert.is_false(run.luarocks_bool("download"))
+   end)
+
+   it("LuaRocks download invalid", function()
+      assert.is_false(run.luarocks_bool("download invalid"))
+   end)
+
+   it("LuaRocks download all with delete downloaded files", function() --TODO maybe download --all more rocks
+      assert.is_true(run.luarocks_bool("download --all validate-args"))
+      assert.is.truthy(lfs.attributes("validate-args-1.5.4-1.rockspec"))
+      test_env.remove_files(lfs.currentdir(), "validate--args--")
+   end)
+   
+   it("LuaRocks download rockspec version", function()
+      assert.is_true(run.luarocks_bool("download --rockspec validate-args 1.5.4-1"))
+      assert.is.truthy(lfs.attributes("validate-args-1.5.4-1.rockspec"))
+      test_env.remove_files(lfs.currentdir(), "validate--args--")
+   end)
+end)
diff --git a/spec/fetch_spec.lua b/spec/fetch_spec.lua
new file mode 100644
index 00000000..05a709e4
--- /dev/null
+++ b/spec/fetch_spec.lua
@@ -0,0 +1,15 @@
+local test_env = require("test/test_environment")
+
+test_env.unload_luarocks()
+local fetch = require("luarocks.fetch")
+
+describe("Luarocks fetch test #whitebox #w_fetch", function()
+   it("Fetch url to base dir", function()
+      assert.are.same("v0.3", fetch.url_to_base_dir("https://github.com/hishamhm/lua-compat-5.2/archive/v0.3.zip"))
+      assert.are.same("lua-compat-5.2", fetch.url_to_base_dir("https://github.com/hishamhm/lua-compat-5.2.zip"))
+      assert.are.same("lua-compat-5.2", fetch.url_to_base_dir("https://github.com/hishamhm/lua-compat-5.2.tar.gz"))
+      assert.are.same("lua-compat-5.2", fetch.url_to_base_dir("https://github.com/hishamhm/lua-compat-5.2.tar.bz2"))
+      assert.are.same("parser.moon", fetch.url_to_base_dir("git://github.com/Cirru/parser.moon"))
+      assert.are.same("v0.3", fetch.url_to_base_dir("https://github.com/hishamhm/lua-compat-5.2/archive/v0.3"))
+   end)
+end)
diff --git a/spec/help_spec.lua b/spec/help_spec.lua
new file mode 100644
index 00000000..88aa5030
--- /dev/null
+++ b/spec/help_spec.lua
@@ -0,0 +1,27 @@
+local test_env = require("test/test_environment")
+local run = test_env.run
+
+test_env.unload_luarocks()
+
+describe("LuaRocks help tests #blackbox #b_help", function()
+
+   before_each(function()
+      test_env.setup_specs()
+   end)
+
+   it("LuaRocks help with no flags/arguments", function()
+      assert.is_true(run.luarocks_bool(test_env.quiet("help")))
+   end)
+
+   it("LuaRocks help invalid argument", function()
+      assert.is_false(run.luarocks_bool("help invalid"))
+   end)
+   
+   it("LuaRocks help config", function()
+      assert.is_true(run.luarocks_bool(test_env.quiet("help config")))
+   end)
+   
+   it("LuaRocks-admin help with no flags/arguments", function()
+      assert.is_true(run.luarocks_admin_bool(test_env.quiet("help")))
+   end)
+end)
diff --git a/spec/install_spec.lua b/spec/install_spec.lua
new file mode 100644
index 00000000..bd480c21
--- /dev/null
+++ b/spec/install_spec.lua
@@ -0,0 +1,129 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+local run = test_env.run
+local testing_paths = test_env.testing_paths
+local env_variables = test_env.env_variables
+
+test_env.unload_luarocks()
+
+local extra_rocks = {
+   "/cprint-0.1-2.src.rock",
+   "/cprint-0.1-2.rockspec",
+   "/lpeg-0.12-1.src.rock",
+   "/luasec-0.6-1.rockspec",
+   "/luassert-1.7.0-1.src.rock",
+   "/luasocket-3.0rc1-1.src.rock",
+   "/luasocket-3.0rc1-1.rockspec",
+   "/lxsh-0.8.6-2.src.rock",
+   "/lxsh-0.8.6-2.rockspec",
+   "/say-1.2-1.src.rock",
+   "/say-1.0-1.src.rock",
+   "/wsapi-1.6-1.src.rock"
+}
+
+describe("LuaRocks install tests #blackbox #b_install", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+   end)
+
+   describe("LuaRocks install - basic tests", function()
+      it("LuaRocks install with no flags/arguments", function()
+         assert.is_false(run.luarocks_bool("install"))
+      end)
+
+      it("LuaRocks install with invalid argument", function()
+         assert.is_false(run.luarocks_bool("install invalid"))
+      end)
+
+      it("LuaRocks install invalid patch", function()
+         assert.is_false(run.luarocks_bool("install " .. testing_paths.testing_dir .. "/testfiles/invalid_patch-0.1-1.rockspec"))
+      end)      
+
+      it("LuaRocks install invalid rock", function()
+         assert.is_false(run.luarocks_bool("install \"invalid.rock\" "))
+      end)
+
+      it("LuaRocks install with local flag as root", function()
+         assert.is_false(run.luarocks_bool("install --local luasocket", { USER = "root" } ))
+      end)
+
+      it("LuaRocks install not a zip file", function()
+         assert.is_false(run.luarocks_bool("install " .. testing_paths.testing_dir .. "/testfiles/not_a_zipfile-1.0-1.src.rock"))
+      end)
+
+      it("LuaRocks install only-deps of lxsh show there is no lxsh", function()
+         assert.is_true(run.luarocks_bool("install lxsh 0.8.6-2 --only-deps"))
+         assert.is_false(run.luarocks_bool("show lxsh"))
+      end)
+
+      it("LuaRocks install incompatible architecture", function()
+         assert.is_false(run.luarocks_bool("install \"foo-1.0-1.impossible-x86.rock\" "))
+      end)
+
+      it("LuaRocks install wsapi with bin", function()
+         run.luarocks_bool("install wsapi")
+      end)
+
+      it("LuaRocks install luasec and show luasocket (dependency)", function()
+         assert.is_true(run.luarocks_bool("install luasec"))
+         assert.is_true(run.luarocks_bool("show luasocket"))
+      end)
+   end)
+
+   describe("LuaRocks install - more complex tests", function()
+      it('LuaRocks install luasec with skipping dependency checks', function()
+         run.luarocks_bool(test_env.quiet(" install luasec --nodeps"))
+         assert.is_true(run.luarocks_bool(test_env.quiet("show luasec")))
+         if env_variables.TYPE_TEST_ENV == "minimal" then
+            assert.is_false(run.luarocks_bool(test_env.quiet("show luasocket")))
+            assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/luasocket"))
+         end
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/luasec"))
+      end)
+      
+      it("LuaRocks install only-deps of luasocket packed rock", function()
+         assert.is_true(run.luarocks_bool(test_env.quiet("build --pack-binary-rock luasocket 3.0rc1-1")))
+         local output = run.luarocks("install --only-deps " .. "luasocket-3.0rc1-1." .. test_env.platform .. ".rock")
+         assert.are.same(output, "Successfully installed dependencies for luasocket 3.0rc1-1")
+         assert.is_true(os.remove("luasocket-3.0rc1-1." .. test_env.platform .. ".rock"))
+      end)
+
+      it("LuaRocks install reinstall", function()
+         assert.is_true(run.luarocks_bool(test_env.quiet("build --pack-binary-rock luasocket 3.0rc1-1")))
+         assert.is_true(run.luarocks_bool("install " .. "luasocket-3.0rc1-1." .. test_env.platform .. ".rock"))
+         assert.is_true(run.luarocks_bool("install --deps-mode=none " .. "luasocket-3.0rc1-1." .. test_env.platform .. ".rock"))
+         assert.is_true(os.remove("luasocket-3.0rc1-1." .. test_env.platform .. ".rock"))
+      end)
+
+      it("LuaRocks install binary rock of cprint", function()
+         assert.is_true(run.luarocks_bool(test_env.quiet("build --pack-binary-rock cprint")))
+         assert.is_true(run.luarocks_bool("install cprint-0.1-2." .. test_env.platform .. ".rock"))
+         assert.is_true(os.remove("cprint-0.1-2." .. test_env.platform .. ".rock"))
+      end)     
+   end)
+
+   describe("New install functionality based on pull request 552", function()
+      it("LuaRocks install break dependencies warning", function() 
+         assert.is_true(run.luarocks_bool("install say 1.2"))
+         assert.is_true(run.luarocks_bool("install luassert"))
+         assert.is_true(run.luarocks_bool("install say 1.0"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/say/1.2-1"))
+      end)
+      it("LuaRocks install break dependencies force", function() 
+         assert.is_true(run.luarocks_bool("install say 1.2"))
+         assert.is_true(run.luarocks_bool("install luassert"))
+         local output = run.luarocks("install --force say 1.0")
+         assert.is.truthy(output:find("Checking stability of dependencies"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/say/1.2-1"))
+      end)
+      it("LuaRocks install break dependencies force fast", function() 
+         assert.is_true(run.luarocks_bool("install say 1.2"))
+         assert.is_true(run.luarocks_bool("install luassert"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/say/1.2-1"))
+         local output = run.luarocks("install --force-fast say 1.0")
+         assert.is.falsy(output:find("Checking stability of dependencies"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/say/1.0-1"))
+      end)
+   end)
+end)
diff --git a/spec/lint_spec.lua b/spec/lint_spec.lua
new file mode 100644
index 00000000..f7496037
--- /dev/null
+++ b/spec/lint_spec.lua
@@ -0,0 +1,49 @@
+local test_env = require("test/test_environment")
+local run = test_env.run
+local testing_paths = test_env.testing_paths
+
+test_env.unload_luarocks()
+
+local extra_rocks = {
+   "/validate-args-1.5.4-1.rockspec"
+}
+
+describe("LuaRocks lint tests #blackbox #b_lint", function()
+   
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+   end)
+
+   it("LuaRocks lint with no flags/arguments", function()
+      assert.is_false(run.luarocks_bool("lint"))
+   end)
+
+   it("LuaRocks lint invalid argument", function()
+      assert.is_false(run.luarocks_bool("lint invalid"))
+   end)
+   
+   it("LuaRocks lint OK", function()
+      assert.is_true(run.luarocks_bool("download --rockspec validate-args 1.5.4-1"))
+      local output = run.luarocks("lint validate-args-1.5.4-1.rockspec")
+      assert.are.same(output, "")
+      assert.is_true(os.remove("validate-args-1.5.4-1.rockspec"))
+   end)
+   
+   describe("LuaRocks lint mismatch set", function()
+      it("LuaRocks lint mismatch string", function()
+         assert.is_false(run.luarocks_bool("lint " .. testing_paths.testing_dir .. "/testfiles/type_mismatch_string-1.0-1.rockspec"))
+      end)
+   
+      it("LuaRocks lint mismatch version", function()
+         assert.is_false(run.luarocks_bool("lint " .. testing_paths.testing_dir .. "/testfiles/type_mismatch_version-1.0-1.rockspec"))
+      end)
+   
+      it("LuaRocks lint mismatch table", function()
+         assert.is_false(run.luarocks_bool("lint " .. testing_paths.testing_dir .. "/testfiles/type_mismatch_table-1.0-1.rockspec"))
+      end)
+   
+      it("LuaRocks lint mismatch no build table", function()
+         assert.is_false(run.luarocks_bool("lint " .. testing_paths.testing_dir .. "/testfiles/no_build_table-1.0-1.rockspec"))
+      end)
+   end)
+end)
diff --git a/spec/list_spec.lua b/spec/list_spec.lua
new file mode 100644
index 00000000..1b082ab6
--- /dev/null
+++ b/spec/list_spec.lua
@@ -0,0 +1,39 @@
+local test_env = require("test/test_environment")
+local run = test_env.run
+local testing_paths = test_env.testing_paths
+
+test_env.unload_luarocks()
+
+local extra_rocks = {
+   "/say-1.0-1.src.rock",
+   "/say-1.2-1.src.rock"
+}
+
+describe("LuaRocks list tests #blackbox #b_list", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+   end)
+
+   it("LuaRocks list with no flags/arguments", function()
+      local output = run.luarocks("list")
+      assert.is.truthy(output:find("luacov"))
+   end)
+
+   it("LuaRocks list porcelain", function()
+      local output = run.luarocks("list --porcelain")
+      local path = testing_paths.testing_sys_tree:gsub("-", "--") -- !not sure! why this is good
+      assert.is.truthy(output:find("luacov\t0.11.0--1\tinstalled\t" .. path .. "/lib/luarocks/rocks" ))
+   end)
+
+   it("LuaRocks install outdated and list it", function()
+      assert.is_true(run.luarocks_bool("install say 1.0-1"))
+      local output = run.luarocks("list --outdated")
+      assert.is.truthy(output:find("say"))
+   end)
+   
+   it("LuaRocks list invalid tree", function()
+      local output = run.luarocks("--tree=/some/invalid/tree list")
+      assert.are.same(output, "Installed rocks:----------------")
+   end)
+end)
diff --git a/spec/make_manifest_spec.lua b/spec/make_manifest_spec.lua
new file mode 100644
index 00000000..1c7f5bf8
--- /dev/null
+++ b/spec/make_manifest_spec.lua
@@ -0,0 +1,17 @@
+local test_env = require("test/test_environment")
+local run = test_env.run
+
+test_env.unload_luarocks()
+
+describe("LuaRocks make_manifest tests #blackbox #b_make_manifest", function()
+        
+   before_each(function()
+      test_env.setup_specs()
+   end)
+
+   describe("LuaRocks-admin make manifest tests", function()
+      it("LuaRocks-admin make manifest", function()
+         assert.is_true(run.luarocks_admin_bool("make_manifest"))
+      end)
+   end)
+end)
diff --git a/spec/make_spec.lua b/spec/make_spec.lua
new file mode 100644
index 00000000..e684033a
--- /dev/null
+++ b/spec/make_spec.lua
@@ -0,0 +1,98 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+local run = test_env.run
+local testing_paths = test_env.testing_paths
+
+test_env.unload_luarocks()
+
+local extra_rocks = {
+   "/lpeg-0.12-1.src.rock",
+   "/luasocket-3.0rc1-1.src.rock",
+   "/luasocket-3.0rc1-1.rockspec",
+   "/lxsh-0.8.6-2.src.rock",
+   "/lxsh-0.8.6-2.rockspec"
+}
+
+describe("LuaRocks make tests #blackbox #b_make", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+   end)
+
+   it("LuaRocks make with no flags/arguments", function()
+      lfs.chdir("test")
+      assert.is_false(run.luarocks_bool("make"))
+      lfs.chdir(testing_paths.luarocks_dir)
+   end)
+
+   it("LuaRocks make with rockspec", function()
+      -- make luasocket
+      assert.is_true(run.luarocks_bool("download --source luasocket 3.0rc1-1"))
+      assert.is_true(run.luarocks_bool("unpack luasocket-3.0rc1-1.src.rock"))
+      lfs.chdir("luasocket-3.0rc1-1/luasocket-3.0-rc1/")
+      assert.is_true(run.luarocks_bool(test_env.quiet("make luasocket-3.0rc1-1.rockspec")))
+
+      -- test it
+      assert.is_true(run.luarocks_bool(test_env.quiet("show luasocket")))
+      assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/luasocket"))
+
+      -- delete downloaded and unpacked files
+      lfs.chdir(testing_paths.luarocks_dir)
+      test_env.remove_dir("luasocket-3.0rc1-1")
+      assert.is_true(os.remove("luasocket-3.0rc1-1.src.rock"))
+   end)
+
+   describe("LuaRocks making rockspecs (using lxsh)", function()
+      --download lxsh and unpack it
+      before_each(function()
+         assert.is_true(run.luarocks_bool("download --source lxsh 0.8.6-2"))
+         assert.is_true(run.luarocks_bool("unpack lxsh-0.8.6-2.src.rock"))
+         assert.is_true(lfs.chdir("lxsh-0.8.6-2/lxsh-0.8.6-1/"))
+      end)
+   
+      -- delete downloaded and unpacked files
+      after_each(function()
+         assert.is_true(lfs.chdir(testing_paths.luarocks_dir))
+         test_env.remove_dir("lxsh-0.8.6-2")
+         assert.is_true(os.remove("lxsh-0.8.6-2.src.rock"))
+      end)         
+
+      it("LuaRocks make default rockspec", function()
+         assert.is_true(run.luarocks_bool("new_version lxsh-0.8.6-2.rockspec"))
+         assert.is_true(run.luarocks_bool("make"))
+
+         assert.is_true(run.luarocks_bool(test_env.quiet("show lxsh")))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lxsh"))
+      end)
+
+      it("LuaRocks make unnamed rockspec", function()
+         os.execute("cp lxsh-0.8.6-2.rockspec rockspec") --rewrite with lfs
+         assert.is_true(run.luarocks_bool("make"))
+
+         assert.is_true(run.luarocks_bool(test_env.quiet("show lxsh")))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lxsh"))
+      end)
+      
+      it("LuaRocks make ambiguous rockspec", function()
+         assert.is.truthy(os.rename("lxsh-0.8.6-2.rockspec", "lxsh2-0.8.6-2.rockspec"))
+         assert.is_false(run.luarocks_bool("make"))
+
+         assert.is_false(run.luarocks_bool("show lxsh"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lxsh"))
+      end)
+      
+      it("LuaRocks make ambiguous unnamed rockspec", function()
+         assert.is.truthy(os.rename("lxsh-0.8.6-2.rockspec", "1_rockspec"))
+         os.execute("cp 1_rockspec 2_rockspec") --rewrite with lfs
+         assert.is_false(run.luarocks_bool("make"))
+
+         assert.is_false(run.luarocks_bool("show lxsh"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/lxsh"))
+      end)
+      
+      it("LuaRocks make pack binary rock", function()
+         assert.is_true(run.luarocks_bool(test_env.quiet("make --deps-mode=none --pack-binary-rock")))
+         assert.is.truthy(lfs.attributes("lxsh-0.8.6-2.all.rock"))
+      end)
+   end)
+end)
diff --git a/spec/new_version_spec.lua b/spec/new_version_spec.lua
new file mode 100644
index 00000000..c4185b1d
--- /dev/null
+++ b/spec/new_version_spec.lua
@@ -0,0 +1,73 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+local run = test_env.run
+local testing_paths = test_env.testing_paths
+
+test_env.unload_luarocks()
+
+local extra_rocks = {
+   "/abelhas-1.0-1.rockspec",
+   "/lpeg-0.12-1.rockspec"
+}
+
+describe("LuaRocks new_version tests #blackbox #b_new_version", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+   end)
+   
+   describe("LuaRocks new_version basic tests", function()
+      it("LuaRocks new version with no flags/arguments", function()
+         lfs.chdir("test")
+         assert.is_false(run.luarocks_bool("new_version"))
+         lfs.chdir(testing_paths.luarocks_dir)
+      end)
+      
+      it("LuaRocks new version invalid", function()
+         assert.is_false(run.luarocks_bool("new_version invalid"))
+      end)
+
+      it("LuaRocks new version invalid url", function()
+         assert.is_true(run.luarocks_bool("download --rockspec abelhas 1.0"))
+         assert.is_true(run.luarocks_bool("new_version abelhas-1.0-1.rockspec 1.1 http://luainvalid"))
+         assert.is.truthy(lfs.attributes("abelhas-1.1-1.rockspec"))
+         test_env.remove_files(lfs.currentdir(), "abelhas--")
+      end)
+   end)
+
+   describe("LuaRocks new_version more complex tests", function()
+      it("LuaRocks new version with remote spec", function()
+         assert.is_true(run.luarocks_bool("new_version https://luarocks.org/manifests/luarocks/luasocket-2.0.2-6.rockspec"))
+         assert.is.truthy(lfs.attributes("luasocket-2.0.2-6.rockspec"))
+         assert.is.truthy(lfs.attributes("luasocket-2.0.2-7.rockspec"))
+         test_env.remove_files(lfs.currentdir(), "luasocket--")
+      end)
+
+      it("LuaRocks new_version of luacov", function()
+         assert.is_true(run.luarocks_bool("download --rockspec luacov 0.11.0"))
+         assert.is_true(run.luarocks_bool("new_version luacov-0.11.0-1.rockspec 0.2"))
+         assert.is.truthy(lfs.attributes("luacov-0.2-1.rockspec"))
+         test_env.remove_files(lfs.currentdir(), "luacov--")
+      end)
+
+      it("LuaRocks new_version url of abelhas", function()
+         assert.is_true(run.luarocks_bool("download --rockspec abelhas 1.0"))
+         assert.is_true(run.luarocks_bool("new_version abelhas-1.0-1.rockspec 1.1 http://luaforge.net/frs/download.php/2658/abelhas-1.0.tar.gz"))
+         assert.is.truthy(lfs.attributes("abelhas-1.1-1.rockspec"))
+         test_env.remove_files(lfs.currentdir(), "abelhas--")
+      end)
+      
+      it("LuaRocks new_version of luacov with tag", function()
+         assert.is_true(run.luarocks_bool("download --rockspec luacov 0.11.0"))
+         assert.is_true(run.luarocks_bool("new_version luacov-0.11.0-1.rockspec --tag v0.3"))
+         assert.is.truthy(lfs.attributes("luacov-0.3-1.rockspec"))
+         test_env.remove_files(lfs.currentdir(), "luacov--")
+      end)
+
+      it("LuaRocks new version updating md5", function()
+         assert.is_true(run.luarocks_bool("download --rockspec lpeg 0.12"))
+         assert.is_true(run.luarocks_bool("new_version lpeg-0.12-1.rockspec 0.2 https://luarocks.org/manifests/gvvaughan/lpeg-1.0.0-1.rockspec"))
+         test_env.remove_files(lfs.currentdir(), "lpeg--")
+      end)
+   end)
+end)
diff --git a/spec/pack_spec.lua b/spec/pack_spec.lua
new file mode 100644
index 00000000..0e5b31c6
--- /dev/null
+++ b/spec/pack_spec.lua
@@ -0,0 +1,59 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+local run = test_env.run
+local testing_paths = test_env.testing_paths
+
+test_env.unload_luarocks()
+
+local extra_rocks = {
+        "/luasec-0.6-1.rockspec",
+        "/luasocket-3.0rc1-1.src.rock",
+        "/luasocket-3.0rc1-1.rockspec",
+   "/say-1.2-1.src.rock",
+   "/say-1.0-1.src.rock"
+}
+
+describe("LuaRocks pack tests #blackbox #b_pack", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+   end)
+
+   it("LuaRocks pack with no flags/arguments", function()
+      assert.is_false(run.luarocks_bool("pack"))
+   end)
+
+   it("LuaRocks pack basic", function()
+      assert.is_true(run.luarocks_bool(test_env.quiet("pack luacov")))
+      assert.is_true(test_env.remove_files(lfs.currentdir(), "luacov-"))
+   end)
+
+   it("LuaRocks pack invalid rockspec", function()
+      assert.is_false(run.luarocks_bool("pack " .. testing_paths.testing_dir .. "/testfiles/invaild_validate-args-1.5.4-1.rockspec"))
+   end)
+
+   it("LuaRocks pack not installed rock", function()
+      assert.is_false(run.luarocks_bool("pack cjson"))
+   end)
+   
+   it("LuaRocks pack not installed rock from non existing manifest", function()
+      assert.is_false(run.luarocks_bool("pack /non/exist/temp.manif"))
+   end)
+
+   it("LuaRocks pack specify which version of rock", function()
+      assert.is_true(run.luarocks_bool("install say 1.2"))
+      assert.is_true(run.luarocks_bool("install luassert"))
+      assert.is_true(run.luarocks_bool("install say 1.0"))
+      
+      assert.is_false(run.luarocks_bool("pack say"))
+   end)
+
+   it("LuaRocks pack src", function()
+      assert.is_true(run.luarocks_bool(test_env.quiet("install luasec")))
+      assert.is_true(run.luarocks_bool("download --rockspec luasocket 3.0rc1-1"))
+      assert.is_true(run.luarocks_bool("pack luasocket-3.0rc1-1.rockspec"))
+      assert.is_true(test_env.remove_files(lfs.currentdir(), "luasocket-"))
+   end)
+end)
+
+
diff --git a/spec/path_spec.lua b/spec/path_spec.lua
new file mode 100644
index 00000000..22f07591
--- /dev/null
+++ b/spec/path_spec.lua
@@ -0,0 +1,26 @@
+local test_env = require("test/test_environment")
+local run = test_env.run
+
+test_env.unload_luarocks()
+
+describe("LuaRocks path tests #blackbox #b_path", function()
+   before_each(function()
+      test_env.setup_specs()
+   end)
+
+   it("LuaRocks path bin", function()
+      assert.is_true(run.luarocks_bool("path --bin"))
+   end)
+
+   it("LuaRocks path lr-path", function()
+      assert.is_true(run.luarocks_bool("path --lr-path"))
+   end)
+   
+   it("LuaRocks path lr-cpath", function()
+      assert.is_true(run.luarocks_bool("path --lr-cpath"))
+   end)
+   
+   it("LuaRocks path with tree", function()
+      assert.is_true(run.luarocks_bool("path --tree=lua_modules"))
+   end)
+end)
diff --git a/spec/purge_spec.lua b/spec/purge_spec.lua
new file mode 100644
index 00000000..09a9d433
--- /dev/null
+++ b/spec/purge_spec.lua
@@ -0,0 +1,28 @@
+local test_env = require("test/test_environment")
+local run = test_env.run
+local testing_paths = test_env.testing_paths
+
+test_env.unload_luarocks()
+
+describe("LuaRocks purge tests #blackbox #b_purge", function()
+   before_each(function()
+      test_env.setup_specs()
+   end)
+
+   describe("LuaRocks purge basic tests", function()
+      it("LuaRocks purge missing tree", function()
+         assert.is_false(run.luarocks_bool("purge --tree=" .. testing_paths.testing_tree))
+      end)
+      it("LuaRocks purge tree with no string", function()
+         assert.is_false(run.luarocks_bool("purge --tree=1"))
+      end)
+      it("LuaRocks purge tree with no string", function()
+         assert.is_true(run.luarocks_bool("purge --tree=" .. testing_paths.testing_sys_tree))
+      end)
+      it("LuaRocks purge old versions tree", function()
+         assert.is_true(run.luarocks_bool("purge --old-versions --tree=" .. testing_paths.testing_sys_tree))
+      end)
+   end)
+end)
+
+
diff --git a/spec/refresh_cache_spec.lua b/spec/refresh_cache_spec.lua
new file mode 100644
index 00000000..c20771ab
--- /dev/null
+++ b/spec/refresh_cache_spec.lua
@@ -0,0 +1,17 @@
+local test_env = require("test/test_environment")
+local run = test_env.run
+
+test_env.unload_luarocks()
+
+describe("LuaRocks refresh_cache tests #blackbox #b_refresh_cache", function()
+        
+   before_each(function()
+      test_env.setup_specs()
+   end)
+
+   describe("LuaRocks-admin refresh cache tests #ssh", function()
+      it("LuaRocks-admin refresh cache", function()
+         assert.is_true(run.luarocks_admin_bool("--server=testing refresh_cache"))
+      end)
+   end)
+end)
diff --git a/spec/remove_spec.lua b/spec/remove_spec.lua
new file mode 100644
index 00000000..7bf1bb10
--- /dev/null
+++ b/spec/remove_spec.lua
@@ -0,0 +1,85 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+local run = test_env.run
+local testing_paths = test_env.testing_paths
+
+test_env.unload_luarocks()
+
+local extra_rocks = {
+   "/abelhas-1.0-1.rockspec",
+   "/lualogging-1.3.0-1.src.rock",
+   "/luasocket-3.0rc1-1.src.rock",
+   "/luasocket-3.0rc1-1.rockspec"
+}
+
+describe("LuaRocks remove tests #blackbox #b_remove", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+   end)
+
+   describe("LuaRocks remove basic tests", function()
+      it("LuaRocks remove with no flags/arguments", function()
+         assert.is_false(run.luarocks_bool("remove"))
+      end)
+
+      it("LuaRocks remove invalid rock", function()
+         assert.is_false(run.luarocks_bool("remove invalid.rock"))
+      end)
+      
+      it("LuaRocks remove missing rock", function()
+         assert.is_false(run.luarocks_bool("remove missing_rock"))
+      end)
+      
+      it("LuaRocks remove invalid argument", function()
+         assert.is_false(run.luarocks_bool("remove luacov --deps-mode"))
+      end)
+
+      it("LuaRocks remove builded abelhas", function()
+         assert.is_true(run.luarocks_bool("build abelhas 1.0"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/abelhas"))
+         assert.is_true(run.luarocks_bool("remove abelhas 1.0"))
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/abelhas"))
+      end)
+   end)
+
+   describe("LuaRocks remove more complex tests", function()
+      before_each(function()
+         assert.is.truthy(test_env.need_rock("luasocket"))
+      end)
+
+      it("LuaRocks remove fail, break dependencies", function()
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/luasocket"))
+         assert.is_true(run.luarocks_bool("build lualogging"))
+
+         assert.is_false(run.luarocks_bool("remove luasocket"))
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/luasocket"))
+      end)
+      
+      it("LuaRocks remove force", function()
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/luasocket"))
+         assert.is_true(run.luarocks_bool("build lualogging"))
+
+         local output = run.luarocks("remove --force luasocket")
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/luasocket"))
+         assert.is.truthy(output:find("Checking stability of dependencies"))
+      end)
+      
+      it("LuaRocks remove force fast", function()
+         assert.is.truthy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/luasocket"))
+         assert.is_true(run.luarocks_bool("build lualogging"))
+
+         local output = run.luarocks("remove --force-fast luasocket")
+         assert.is.falsy(lfs.attributes(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/luasocket"))
+         assert.is.falsy(output:find("Checking stability of dependencies"))
+      end)
+   end)
+
+   it("LuaRocks-admin remove #ssh", function()
+      assert.is_true(run.luarocks_admin_bool("--server=testing remove luasocket-3.0rc1-1.src.rock"))
+   end)
+   
+   it("LuaRocks-admin remove missing", function()
+      assert.is_false(run.luarocks_admin_bool("--server=testing remove"))
+   end)
+end)
diff --git a/spec/search_spec.lua b/spec/search_spec.lua
new file mode 100644
index 00000000..b31624b8
--- /dev/null
+++ b/spec/search_spec.lua
@@ -0,0 +1,36 @@
+local test_env = require("test/test_environment")
+local run = test_env.run
+
+test_env.unload_luarocks()
+
+local extra_rocks = {
+"/lzlib-0.4.1.53-1.src.rock"
+}
+
+describe("LuaRocks search tests #blackbox #b_search", function()
+   
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+   end)
+
+   it("LuaRocks search with no flags/arguments", function()
+      assert.is_false(run.luarocks_bool("search"))
+   end)
+
+   it("LuaRocks search zlib", function()
+      assert.is_true(run.luarocks_bool("search zlib"))
+   end)
+   
+   it("LuaRocks search zlib 1.1", function()
+      assert.is_true(run.luarocks_bool("search zlib 1.1"))
+   end)
+   
+   it("LuaRocks search missing rock", function()
+      assert.is_true(run.luarocks_bool("search missing_rock"))
+   end)
+   
+   it("LuaRocks search with flag all", function()
+      assert.is_true(run.luarocks_bool(test_env.quiet("search --all")))
+   end)
+   
+end)
diff --git a/spec/show_spec.lua b/spec/show_spec.lua
new file mode 100644
index 00000000..f528a6de
--- /dev/null
+++ b/spec/show_spec.lua
@@ -0,0 +1,54 @@
+local test_env = require("test/test_environment")
+local run = test_env.run
+
+test_env.unload_luarocks()
+
+describe("LuaRocks show tests #blackbox #b_show", function()
+   
+   before_each(function()
+      test_env.setup_specs()
+   end)
+
+   it("LuaRocks show with no flags/arguments", function()
+         assert.is_false(run.luarocks_bool("show"))
+   end)
+   
+   describe("LuaRocks show basic tests with flags", function()
+      it("LuaRocks show invalid", function()
+         assert.is_false(run.luarocks_bool("show invalid"))
+      end)
+      
+      it("LuaRocks show luacov", function()
+         local output = run.luarocks("show luacov")
+      end)
+      
+      it("LuaRocks show modules of luacov", function()
+         local output = run.luarocks("show --modules luacov")
+      end)
+      
+      it("LuaRocks show dependencies of luacov", function()
+         local output = run.luarocks("show --deps luacov")
+      end)
+      
+      it("LuaRocks show rockspec of luacov", function()
+         local output = run.luarocks("show --rockspec luacov")
+      end)
+      
+      it("LuaRocks show mversion of luacov", function()
+         local output = run.luarocks("show --mversion luacov")
+      end)
+      
+      it("LuaRocks show rock tree of luacov", function()
+         local output = run.luarocks("show --rock-tree luacov")
+      end)
+      
+      it("LuaRocks show rock directory of luacov", function()
+         local output = run.luarocks("show --rock-dir luacov")
+      end)
+   end)
+
+   it("LuaRocks show old version of luacov", function()
+      run.luarocks("install luacov 0.11.0")
+      run.luarocks("show luacov 0.11.0")
+   end)
+end)
diff --git a/spec/unpack_spec.lua b/spec/unpack_spec.lua
new file mode 100644
index 00000000..495c514e
--- /dev/null
+++ b/spec/unpack_spec.lua
@@ -0,0 +1,67 @@
+local test_env = require("test/test_environment")
+local run = test_env.run
+local testing_paths = test_env.testing_paths
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+
+local extra_rocks = {
+   "/cprint-0.1-2.src.rock",
+   "/cprint-0.1-2.rockspec",
+   "/luazip-1.2.4-1.rockspec"
+}
+
+describe("LuaRocks unpack tests #blackbox #b_unpack", function()
+   
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+   end)
+
+   describe("LuaRocks unpack basic fail tests", function()
+      it("LuaRocks unpack with no flags/arguments", function()
+         assert.is_false(run.luarocks_bool("unpack"))
+      end)
+      it("LuaRocks unpack with invalid rockspec", function()
+         assert.is_false(run.luarocks_bool("unpack invalid.rockspec"))
+      end)
+      it("LuaRocks unpack with invalid patch", function()
+         assert.is_false(run.luarocks_bool("unpack " .. testing_paths.testing_dir .. "/testfiles/invalid_patch-0.1-1.rockspec"))
+      end)
+   end)
+
+   describe("LuaRocks unpack more complex tests", function()
+      it("LuaRocks unpack download", function()
+         assert.is_true(run.luarocks_bool("unpack cprint"))
+         test_env.remove_dir("cprint-0.1-2")
+      end)
+      it("LuaRocks unpack src", function()
+         assert.is_true(run.luarocks_bool("download --source cprint"))
+         assert.is_true(run.luarocks_bool("unpack cprint-0.1-2.src.rock"))
+         os.remove("cprint-0.1-2.src.rock")
+         test_env.remove_dir("cprint-0.1-2")
+      end)
+      it("LuaRocks unpack rockspec", function()
+         assert.is_true(run.luarocks_bool("download --rockspec cprint"))
+         assert.is_true(run.luarocks_bool("unpack cprint-0.1-2.rockspec"))
+         os.remove("cprint-0.1-2.rockspec")
+         os.remove("lua-cprint")
+         test_env.remove_dir("cprint-0.1-2")
+      end)
+      -- #595 luarocks unpack of a git:// rockspec fails to copy the rockspec
+      it("LuaRocks unpack git:// rockspec", function()
+         assert.is_true(run.luarocks_bool("download --rockspec cprint"))
+         assert.is_true(run.luarocks_bool("unpack luazip-1.2.4-1.rockspec"))
+         assert.is_truthy(lfs.attributes("luazip-1.2.4-1/luazip/luazip-1.2.4-1.rockspec"))
+         test_env.remove_dir("luazip-1.2.4-1")
+      end)
+      it("LuaRocks unpack binary", function()
+         assert.is_true(run.luarocks_bool("build cprint"))
+         assert.is_true(run.luarocks_bool("pack cprint"))
+         assert.is_true(run.luarocks_bool("unpack cprint-0.1-2." .. test_env.platform .. ".rock"))
+         test_env.remove_dir("cprint-0.1-2")
+         os.remove("cprint-0.1-2." .. test_env.platform .. ".rock")
+      end)
+   end)
+end)
+
+
diff --git a/spec/upload_spec.lua b/spec/upload_spec.lua
new file mode 100644
index 00000000..c68a1cdf
--- /dev/null
+++ b/spec/upload_spec.lua
@@ -0,0 +1,74 @@
+local test_env = require("test/test_environment")
+local run = test_env.run
+local testing_paths = test_env.testing_paths
+
+test_env.unload_luarocks()
+
+local extra_rocks = {
+   "/lua-cjson-2.1.0-1.src.rock",
+   
+   -- rocks needed for mock-server
+   "/copas-2.0.1-1.src.rock",
+   "/coxpcall-1.16.0-1.src.rock",
+   "/dkjson-2.5-2.src.rock",
+   "/luafilesystem-1.6.3-1.src.rock",
+   "/luasec-0.6-1.rockspec",
+   "/luasocket-3.0rc1-2.src.rock",
+   "/luasocket-3.0rc1-2.rockspec",
+   "/restserver-0.1-1.src.rock",
+   "/restserver-xavante-0.2-1.src.rock",
+   "/rings-1.3.0-1.src.rock",
+   "/wsapi-1.6.1-1.src.rock",
+   "/wsapi-xavante-1.6.1-1.src.rock",
+   "/xavante-2.4.0-1.src.rock"
+}
+
+describe("LuaRocks upload tests #blackbox #b_upload", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+   end)
+
+   it("LuaRocks upload with no flags/arguments", function()
+      assert.is_false(run.luarocks_bool("upload"))
+   end)
+
+   it("LuaRocks upload invalid rockspec", function()
+      assert.is_false(run.luarocks_bool("upload invalid.rockspec"))
+   end)
+   
+   it("LuaRocks upload api key invalid", function()
+      assert.is_false(run.luarocks_bool("upload --api-key=invalid invalid.rockspec"))
+   end)
+   
+   it("LuaRocks upload api key invalid and skip-pack", function()
+      assert.is_false(run.luarocks_bool("upload --api-key=\"invalid\" --skip-pack luacov-0.11.0-1.rockspec"))
+   end)
+   
+   it("LuaRocks upload force", function()
+      assert.is_true(run.luarocks_bool("install lua-cjson"))
+      assert.is_false(run.luarocks_bool("upload --api-key=\"invalid\" --force luacov-0.11.0-1.rockspec"))
+      assert.is_true(run.luarocks_bool("install lua-cjson"))
+   end)
+
+   describe("LuaRocks upload tests with Xavante server #mock", function()
+      before_each(function()
+         assert.is.truthy(test_env.need_rock("restserver-xavante"))
+         local final_command = test_env.execute_helper(testing_paths.lua .. " " .. testing_paths.testing_dir .. "/mock-server.lua &", true, test_env.env_variables)
+         os.execute(final_command)
+      end)
+      
+      after_each(function()
+         os.execute("curl localhost:8080/shutdown")
+      end)
+
+      it("LuaRocks upload rockspec with api-key", function()
+         assert.is_true(run.luarocks_bool("upload " .. testing_paths.testing_server .. "/luasocket-3.0rc1-2.rockspec --api-key=123", {LUAROCKS_CONFIG = testing_paths.testing_dir .. "/luarocks_site.lua"}))
+      end)
+      it("LuaRocks upload rockspec with api-key and skip-pack", function()
+         assert.is_true(run.luarocks_bool("upload --skip-pack " .. testing_paths.testing_server .. "/luasocket-3.0rc1-2.rockspec --api-key=123", {LUAROCKS_CONFIG = testing_paths.testing_dir .. "/luarocks_site.lua"}))
+      end)
+   end)
+end)
+
+
diff --git a/spec/util_spec.lua b/spec/util_spec.lua
new file mode 100644
index 00000000..23e3ebd8
--- /dev/null
+++ b/spec/util_spec.lua
@@ -0,0 +1,99 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+local run = test_env.run
+local testing_paths = test_env.testing_paths
+local env_variables = test_env.env_variables
+
+describe("Basic tests #blackbox #b_util", function()
+
+   before_each(function()
+      test_env.setup_specs()
+   end)
+
+   it("LuaRocks version", function()
+      assert.is_true(run.luarocks_bool("--version"))
+   end)
+
+   it("LuaRocks unknown command", function()
+      assert.is_false(run.luarocks_bool("unknown_command"))
+   end)
+
+   it("LuaRocks arguments fail", function()
+      assert.is_false(run.luarocks_bool("--porcelain=invalid"))
+      assert.is_false(run.luarocks_bool("--invalid-flag"))
+      assert.is_false(run.luarocks_bool("--server"))
+      assert.is_false(run.luarocks_bool("--server --porcelain"))
+      assert.is_false(run.luarocks_bool("--invalid-flag=abc"))
+      assert.is_false(run.luarocks_bool("invalid=5"))
+   end)
+
+   it("LuaRocks execute from not existing directory", function()
+      local main_path = lfs.currentdir()
+      assert.is_true(lfs.mkdir("idontexist"))
+      assert.is_true(lfs.chdir("idontexist"))
+      local delete_path = lfs.currentdir()
+      assert.is_true(os.remove(delete_path))
+
+      local output = run.luarocks("")      
+      assert.is.falsy(output:find("LuaRocks scm, a module deployment system for Lua"))
+      assert.is_true(lfs.chdir(main_path))
+
+      output = run.luarocks("")
+      assert.is.truthy(output:find("LuaRocks scm, a module deployment system for Lua"))
+   end)
+
+   it("LuaRocks timeout", function()
+      assert.is.truthy(run.luarocks("--timeout=10"))
+   end)
+   
+   it("LuaRocks timeout invalid", function()
+      assert.is_false(run.luarocks_bool("--timeout=abc"))
+   end)
+
+   it("LuaRocks only server=testing", function()
+      assert.is.truthy(run.luarocks("--only-server=testing"))
+   end)
+   
+   it("LuaRocks test site config", function()
+      assert.is.truthy(os.rename("src/luarocks/site_config.lua", "src/luarocks/site_config.lua.tmp"))
+      assert.is.falsy(lfs.attributes("src/luarocks/site_config.lua"))
+      assert.is.truthy(lfs.attributes("src/luarocks/site_config.lua.tmp"))
+
+      assert.is.truthy(run.luarocks(""))
+      
+      assert.is.truthy(os.rename("src/luarocks/site_config.lua.tmp", "src/luarocks/site_config.lua"))
+      assert.is.falsy(lfs.attributes("src/luarocks/site_config.lua.tmp"))
+      assert.is.truthy(lfs.attributes("src/luarocks/site_config.lua"))
+   end)
+
+   describe("LuaRocks sysconfig fails", function()
+      local scdir = ""
+      
+      before_each(function()
+         scdir = testing_paths.testing_lrprefix .. "/etc/luarocks/"
+         lfs.mkdir(testing_paths.testing_lrprefix)
+         lfs.mkdir(testing_paths.testing_lrprefix .. "/etc/")
+         lfs.mkdir(scdir)
+      end)
+
+      after_each(function()
+         test_env.remove_dir(testing_paths.testing_lrprefix)
+      end) 
+
+      it("LuaRocks sysconfig fail", function()
+         local sysconfig = io.open(scdir .. "/config.lua", "w+")
+         sysconfig:write("aoeui")
+         sysconfig:close()
+
+         assert.is_false(run.luarocks_bool("list"))
+      end)
+
+      it("LuaRocks sysconfig fail", function()
+         local sysconfig = io.open(scdir .. "/config-" .. env_variables.LUA_VERSION .. ".lua", "w+")
+         sysconfig:write("aoeui")
+         sysconfig:close()
+
+         assert.is_false(run.luarocks_bool("list"))
+      end)
+   end)
+end)
diff --git a/spec/write_rockspec_spec.lua b/spec/write_rockspec_spec.lua
new file mode 100644
index 00000000..531d11eb
--- /dev/null
+++ b/spec/write_rockspec_spec.lua
@@ -0,0 +1,72 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+local run = test_env.run
+
+test_env.unload_luarocks()
+
+describe("LuaRocks write_rockspec tests #blackbox #b_write_rockspec", function()
+
+   before_each(function()
+      test_env.setup_specs()
+   end)
+
+   describe("LuaRocks write_rockspec basic tests", function()
+      it("LuaRocks write_rockspec with no flags/arguments", function()
+         assert.is_true(run.luarocks_bool("write_rockspec"))
+         os.remove("luarocks-scm-1.rockspec")
+      end)
+
+      it("LuaRocks write_rockspec with invalid argument", function()
+         assert.is_false(run.luarocks_bool("write_rockspec invalid"))
+      end)
+      
+      it("LuaRocks write_rockspec invalid zip", function()
+         assert.is_false(run.luarocks_bool("write_rockspec http://example.com/invalid.zip"))
+      end)
+   end)
+
+   describe("LuaRocks write_rockspec more complex tests", function()
+      it("LuaRocks write_rockspec git luarocks", function()
+         assert.is_true(run.luarocks_bool("write_rockspec git://github.com/keplerproject/luarocks"))
+         assert.is.truthy(lfs.attributes("luarocks-scm-1.rockspec"))
+         assert.is_true(os.remove("luarocks-scm-1.rockspec"))
+      end)
+      
+      it("LuaRocks write_rockspec git luarocks --tag=v2.3.0", function()
+         assert.is_true(run.luarocks_bool("write_rockspec git://github.com/keplerproject/luarocks --tag=v2.3.0"))
+         assert.is.truthy(lfs.attributes("luarocks-2.3.0-1.rockspec"))
+         assert.is_true(os.remove("luarocks-2.3.0-1.rockspec"))
+      end)
+      
+      it("LuaRocks write_rockspec git luarocks with format flag", function()
+         assert.is_true(run.luarocks_bool("write_rockspec git://github.com/mbalmer/luarocks --rockspec-format=1.1 --lua-version=5.1,5.2"))
+         assert.is.truthy(lfs.attributes("luarocks-scm-1.rockspec"))
+         assert.is_true(os.remove("luarocks-scm-1.rockspec"))
+      end)
+      
+      it("LuaRocks write_rockspec git luarocks with full flags", function()
+         assert.is_true(run.luarocks_bool("write_rockspec git://github.com/mbalmer/luarocks --lua-version=5.1,5.2 --license=\"MIT/X11\" "
+                                             .. " --homepage=\"http://www.luarocks.org\" --summary=\"A package manager for Lua modules\" "))
+         assert.is.truthy(lfs.attributes("luarocks-scm-1.rockspec"))
+         assert.is_true(os.remove("luarocks-scm-1.rockspec"))
+      end)
+      
+      it("LuaRocks write_rockspec rockspec via http", function()
+         assert.is_true(run.luarocks_bool("write_rockspec http://luarocks.org/releases/luarocks-2.1.0.tar.gz --lua-version=5.1"))
+         assert.is.truthy(lfs.attributes("luarocks-2.1.0-1.rockspec"))
+         assert.is_true(os.remove("luarocks-2.1.0-1.rockspec"))
+      end)
+      
+      it("LuaRocks write_rockspec base dir, luassert.tar.gz via https", function()
+         assert.is_true(run.luarocks_bool("write_rockspec https://github.com/downloads/Olivine-Labs/luassert/luassert-1.2.tar.gz --lua-version=5.1"))
+         assert.is.truthy(lfs.attributes("luassert-1.2-1.rockspec"))
+         assert.is_true(os.remove("luassert-1.2-1.rockspec"))
+      end)
+      
+      it("LuaRocks write_rockspec git luafcgi with many flags", function()
+         assert.is_true(run.luarocks_bool("write_rockspec git://github.com/mbalmer/luafcgi --lib=fcgi --license=\"3-clause BSD\" " .. "--lua-version=5.1,5.2"))
+         assert.is.truthy(lfs.attributes("luafcgi-scm-1.rockspec")) -- TODO maybe read it content and find arguments from flags?
+         assert.is_true(os.remove("luafcgi-scm-1.rockspec"))
+      end)
+   end)
+end)
diff --git a/src/luarocks/core/cfg.lua b/src/luarocks/core/cfg.lua
index 42508b9e..73bff097 100644
--- a/src/luarocks/core/cfg.lua
+++ b/src/luarocks/core/cfg.lua
@@ -406,7 +406,7 @@ local defaults = {
 
 if cfg.platforms.windows then
    local full_prefix = (site_config.LUAROCKS_PREFIX or (os.getenv("PROGRAMFILES")..[[\LuaRocks]]))
-   extra_luarocks_module_dir = full_prefix.."\\lua\\?.lua"
+   extra_luarocks_module_dir = full_prefix.."/lua/?.lua"
 
    home_config_file = home_config_file and home_config_file:gsub("\\","/")
    defaults.fs_use_modules = false
diff --git a/src/luarocks/fs/win32.lua b/src/luarocks/fs/win32.lua
index c03db6a0..9ce95986 100644
--- a/src/luarocks/fs/win32.lua
+++ b/src/luarocks/fs/win32.lua
@@ -130,6 +130,8 @@ function win32.wrap_script(file, dest, name, version)
    local wrapname = fs.is_dir(dest) and dest.."/"..base or dest
    wrapname = wrapname..".bat"
    local lpath, lcpath = cfg.package_paths()
+   lpath = util.remove_path_dupes(lpath, ";")
+   lcpath = util.remove_path_dupes(lcpath, ";")
    local wrapper = io.open(wrapname, "w")
    if not wrapper then
       return nil, "Could not open "..wrapname.." for writing."
diff --git a/src/luarocks/help.lua b/src/luarocks/help.lua
index 51e2cf57..d27c3a50 100644
--- a/src/luarocks/help.lua
+++ b/src/luarocks/help.lua
@@ -64,7 +64,7 @@ function help.command(flags, command)
         --verbose              Display verbose output of commands executed.
         --timeout=<seconds>    Timeout on network operations, in seconds.
                                0 means no timeout (wait forever).
-                               Default is ]]..cfg.connection_timeout..[[.]])
+                               Default is ]]..tostring(cfg.connection_timeout)..[[.]])
       print_section("VARIABLES")
       util.printout([[
         Variables from the "variables" table of the configuration file
diff --git a/src/luarocks/new_version.lua b/src/luarocks/new_version.lua
index eb5dea25..000b459b 100644
--- a/src/luarocks/new_version.lua
+++ b/src/luarocks/new_version.lua
@@ -133,15 +133,19 @@ function new_version.command(flags, input, version, url)
    end
    assert(type(input) == "string")
    
-   local filename = input
-   if not input:match("rockspec$") then
-      local err
+   local filename, err
+   if input:match("rockspec$") then
+      filename, err = fetch.fetch_url(input)
+      if not filename then
+         return nil, err
+      end
+   else
       filename, err = download.download("rockspec", input)
       if not filename then
          return nil, err
       end
    end
-   
+
    local valid_rs, err = fetch.load_rockspec(filename)
    if not valid_rs then
       return nil, err
@@ -167,7 +171,7 @@ function new_version.command(flags, input, version, url)
    end
    local new_rockver = new_ver:gsub("-", "")
    
-   local out_rs = persist.load_into_table(filename)
+   local out_rs, err = persist.load_into_table(filename)
    local out_name = out_rs.package:lower()
    out_rs.version = new_rockver.."-"..new_rev
 
diff --git a/src/luarocks/unpack.lua b/src/luarocks/unpack.lua
index 22b3f49b..af3398ab 100644
--- a/src/luarocks/unpack.lua
+++ b/src/luarocks/unpack.lua
@@ -44,7 +44,6 @@ local function unpack_rockspec(rockspec_file, dir_name)
    if not ok then return nil, err end
    ok, err = build.apply_patches(rockspec)
    fs.pop_dir()
-   fs.pop_dir()
    if not ok then return nil, err end
    return rockspec
 end
diff --git a/src/luarocks/upload.lua b/src/luarocks/upload.lua
index 4bda4303..baee47ab 100644
--- a/src/luarocks/upload.lua
+++ b/src/luarocks/upload.lua
@@ -75,6 +75,9 @@ function upload.command(flags, fname)
    local module_url = res.module_url
    
    if rock_fname then
+      if (not res.version) or (not res.version.id) then
+         return nil, "Invalid response from server."
+      end
       util.printout(("Sending " .. tostring(rock_fname) .. " ..."))
       res, err = api:method("upload_rock/" .. ("%d"):format(res.version.id), nil, {
          rock_file = multipart.new_file(rock_fname)
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