New test-suite for LuaRocks (#581)

First version of new test-suite, using Busted framework based on Google Summer of Code project:
https://summerofcode.withgoogle.com/projects/#5695811874717696

* Rewritten from Bash to Lua
* Tests now check if they did what they were supposed to, beyond only checking success or failure of the `luarocks` command
* Support for black-box (launching `luarocks` as an external command) and white-box (testing functions in modules directly) testing

30 files changed, 2281 insertions, 1143 deletions

diff --git a/.travis.yml b/.travis.yml
index 69ec28f3..c8755e7f 100644
--- a/.travis.yml
+++ b/.travis.yml
@@ -1,13 +1,69 @@
-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
+before_install:
+  - if [[ "$TRAVIS_OS_NAME" == "osx" ]]; then brew update; fi
+  - if [[ "$TRAVIS_OS_NAME" == "osx" ]]; then brew install python3; fi
+  - if [[ "$TRAVIS_OS_NAME" == "osx" ]]; then virtualenv venv -p python3; fi
+  - if [[ "$TRAVIS_OS_NAME" == "osx" ]]; then source venv/bin/activate; fi
 
-script: cd test && ./testing.sh --travis --lua $LUA_VER
+  - pip install hererocks
+  - hererocks lua_install -r^ --$LUA
+  - export PATH=$PATH:$PWD/lua_install/bin # Add directory with all installed binaries to PATH
+
+install:
+  - luarocks install busted
+  - luarocks install luacov
+  - luarocks install luacov-coveralls
+  
+script:
+  - busted -Xhelper travis,$LUA --verbose
+  - busted -Xhelper travis,$LUA,env=full --verbose
+
+after_success:
+  - luacov-coveralls -c $TRAVIS_BUILD_DIR/test/luacov.config --exclude $TRAVIS_BUILD_DIR/test/
+  - $PWD/lua_install/bin/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
\ No newline at end of file
diff --git a/spec/add_spec.lua b/spec/add_spec.lua
new file mode 100644
index 00000000..e417f974
--- /dev/null
+++ b/spec/add_spec.lua
@@ -0,0 +1,46 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+local add = require("luarocks.add")
+
+local extra_rocks = {
+   "/luasocket-3.0rc1-1.src.rock",
+   "/luasocket-3.0rc1-1.rockspec"
+}
+
+expose("LuaRocks add tests #blackbox #b_add", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      testing_paths = test_env.testing_paths
+      run = test_env.run
+   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)
\ No newline at end of file
diff --git a/spec/build_spec.lua b/spec/build_spec.lua
new file mode 100644
index 00000000..6665de0b
--- /dev/null
+++ b/spec/build_spec.lua
@@ -0,0 +1,182 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+local build = require("luarocks.build")
+
+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"
+}
+
+expose("LuaRocks build tests #blackbox #b_build", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      testing_paths = test_env.testing_paths
+      run = test_env.run
+   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_true(run.luarocks_bool("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("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("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("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()
+      
+      it("LuaRocks build luacheck show downloads test_config", function()
+         local out = run.luarocks("build luacheck", { LUAROCKS_CONFIG = testing_paths.testing_dir .. "/testing_config_show_downloads.lua"} )
+         print(out)
+      end)
+      
+      it("LuaRocks build luasec only deps", function()
+         assert.is_true(run.luarocks_bool("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_true(run.luarocks_bool("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_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_true(run.luarocks_bool("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_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_true(run.luarocks_bool("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("install luasec"))
+         assert.is_true(run.luarocks_bool("build validate-args-1.5.4-1.rockspec"))
+
+         assert.is_true(run.luarocks_bool("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_true(test_env.need_luasocket())
+         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_true(test_env.need_luasocket())
+         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..f6cabd8c
--- /dev/null
+++ b/spec/config_spec.lua
@@ -0,0 +1,90 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+local cfg = require("luarocks.cfg")
+
+expose("LuaRocks config tests #blackbox #b_config", function()
+   
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      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")
+      testing_paths = test_env.testing_paths
+      run = test_env.run
+   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)
\ No newline at end of file
diff --git a/spec/deps_spec.lua b/spec/deps_spec.lua
new file mode 100644
index 00000000..ce784080
--- /dev/null
+++ b/spec/deps_spec.lua
@@ -0,0 +1,115 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+local deps = require("luarocks.deps")
+
+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"
+}
+
+expose("LuaRocks deps tests #blackbox #b_deps", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      testing_paths = test_env.testing_paths
+      run = test_env.run
+   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)
\ No newline at end of file
diff --git a/spec/doc_spec.lua b/spec/doc_spec.lua
new file mode 100644
index 00000000..476b8ea8
--- /dev/null
+++ b/spec/doc_spec.lua
@@ -0,0 +1,57 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+local doc = require("luarocks.doc")
+
+local extra_rocks = {
+  "/luarepl-0.4-1.src.rock"
+}
+
+expose("LuaRocks doc tests #blackbox #b_doc", function()
+   
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      testing_paths = test_env.testing_paths
+      run = test_env.run
+   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)
+   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..9b5d9e2e
--- /dev/null
+++ b/spec/download_spec.lua
@@ -0,0 +1,37 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+local download = require("luarocks.download")
+
+local extra_rocks = {
+   "/validate-args-1.5.4-1.rockspec"
+}
+
+expose("LuaRocks download tests #blackbox #b_download", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      run = test_env.run
+   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..1f298733
--- /dev/null
+++ b/spec/fetch_spec.lua
@@ -0,0 +1,16 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+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)
\ No newline at end of file
diff --git a/spec/help_spec.lua b/spec/help_spec.lua
new file mode 100644
index 00000000..0f40dd38
--- /dev/null
+++ b/spec/help_spec.lua
@@ -0,0 +1,29 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+local help = require("luarocks.help")
+
+expose("LuaRocks help tests #blackbox #b_help", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      run = test_env.run
+   end)
+
+   it("LuaRocks help with no flags/arguments", function()
+      assert.is_true(run.luarocks_bool("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("help config"))
+   end)
+   
+   it("LuaRocks-admin help with no flags/arguments", function()
+      assert.is_true(run.luarocks_admin_bool("help"))
+   end)
+end)
\ No newline at end of file
diff --git a/spec/install_spec.lua b/spec/install_spec.lua
new file mode 100644
index 00000000..306bbbc1
--- /dev/null
+++ b/spec/install_spec.lua
@@ -0,0 +1,130 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+local install = require("luarocks.install")
+
+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"
+}
+
+expose("LuaRocks install tests #blackbox #b_install", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      testing_paths = test_env.testing_paths
+      env_variables = test_env.env_variables
+      run = test_env.run
+      platform = test_env.platform
+   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(" install luasec --nodeps")
+         assert.is_true(run.luarocks_bool("show luasec"))
+         if env_variables.TYPE_TEST_ENV == "minimal" then
+            assert.is_false(run.luarocks_bool("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(test_env.need_luasocket())
+         local output = run.luarocks("install --only-deps " .. testing_paths.testing_cache .. "/luasocket-3.0rc1-1." .. platform .. ".rock")
+         assert.are.same(output, "Successfully installed dependencies for luasocket 3.0rc1-1")
+      end)
+
+      it("LuaRocks install binary rock of cprint", function()
+         assert.is_true(test_env.need_luasocket())
+         assert.is_true(run.luarocks_bool("build --pack-binary-rock cprint"))
+         assert.is_true(run.luarocks_bool("install cprint-0.1-2." .. platform .. ".rock"))
+         assert.is_true(os.remove("cprint-0.1-2." .. platform .. ".rock"))
+      end)
+
+      it("LuaRocks install reinstall", function()
+         assert.is_true(test_env.need_luasocket())
+         assert.is_true(run.luarocks_bool("install " .. testing_paths.testing_cache .. "/luasocket-3.0rc1-1." .. platform .. ".rock"))
+         assert.is_true(run.luarocks_bool("install --deps-mode=none " .. testing_paths.testing_cache .. "/luasocket-3.0rc1-1." .. 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)
\ No newline at end of file
diff --git a/spec/lint_spec.lua b/spec/lint_spec.lua
new file mode 100644
index 00000000..cba80a3e
--- /dev/null
+++ b/spec/lint_spec.lua
@@ -0,0 +1,51 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+local lint = require("luarocks.lint")
+
+local extra_rocks = {
+   "/validate-args-1.5.4-1.rockspec"
+}
+
+expose("LuaRocks lint tests #blackbox #b_lint", function()
+   
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      testing_paths = test_env.testing_paths
+      run = test_env.run
+   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)
\ No newline at end of file
diff --git a/spec/list_spec.lua b/spec/list_spec.lua
new file mode 100644
index 00000000..545483df
--- /dev/null
+++ b/spec/list_spec.lua
@@ -0,0 +1,41 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+local list = require("luarocks.list")
+
+local extra_rocks = {
+   "/say-1.0-1.src.rock",
+   "/say-1.2-1.src.rock"
+}
+
+expose("LuaRocks list tests #blackbox #b_list", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      run = test_env.run
+      testing_paths = test_env.testing_paths
+   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..c6cb1328
--- /dev/null
+++ b/spec/make_manifest_spec.lua
@@ -0,0 +1,19 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+local make_manifest = require("luarocks.make_manifest")
+
+expose("LuaRocks make_manifest tests #blackbox #b_make_manifest", function()
+        
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      run = test_env.run
+   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)
\ No newline at end of file
diff --git a/spec/make_spec.lua b/spec/make_spec.lua
new file mode 100644
index 00000000..f70bb7e9
--- /dev/null
+++ b/spec/make_spec.lua
@@ -0,0 +1,99 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+local make = require("luarocks.make")
+
+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"
+}
+
+expose("LuaRocks make tests #blackbox #b_make", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      run = test_env.run
+      testing_paths = test_env.testing_paths
+   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"))
+      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("make luasocket-3.0rc1-1.rockspec"))
+
+      -- test it
+      assert.is_true(run.luarocks_bool("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("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("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("make --deps-mode=none --pack-binary-rock"))
+         assert.is.truthy(lfs.attributes("lxsh-0.8.6-2.all.rock"))
+      end)
+   end)
+end)
\ No newline at end of file
diff --git a/spec/new_version_spec.lua b/spec/new_version_spec.lua
new file mode 100644
index 00000000..57014226
--- /dev/null
+++ b/spec/new_version_spec.lua
@@ -0,0 +1,53 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+local new_version = require("luarocks.new_version")
+
+local extra_rocks = {
+   "/abelhas-1.0-1.rockspec"
+}
+
+expose("LuaRocks new_version tests #blackbox #b_new_version", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      testing_paths = test_env.testing_paths
+      run = test_env.run
+   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)
+   end)
+
+   describe("LuaRocks new_version more complex tests", function()
+      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)
+   end)
+end)
\ No newline at end of file
diff --git a/spec/pack_spec.lua b/spec/pack_spec.lua
new file mode 100644
index 00000000..a07e7ed2
--- /dev/null
+++ b/spec/pack_spec.lua
@@ -0,0 +1,35 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+local pack = require("luarocks.pack")
+
+local extra_rocks = {
+        "/luasec-0.6-1.rockspec",
+        "/luasocket-3.0rc1-1.src.rock",
+        "/luasocket-3.0rc1-1.rockspec"
+}
+
+expose("LuaRocks pack tests #blackbox #b_pack", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      testing_paths = test_env.testing_paths
+      run = test_env.run
+   end)
+
+   it("LuaRocks pack basic", function()
+      assert.is_true(run.luarocks_bool("list"))
+      assert.is_true(run.luarocks_bool("pack luacov"))
+      assert.is_true(test_env.remove_files(lfs.currentdir(), "luacov-"))
+   end)
+   
+   it("LuaRocks pack src", function()
+      assert.is_true(run.luarocks_bool("install luasec"))
+      assert.is_true(run.luarocks_bool("download --rockspec luasocket"))
+      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..266ada89
--- /dev/null
+++ b/spec/path_spec.lua
@@ -0,0 +1,28 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+local path = require("luarocks.path")
+
+expose("LuaRocks path tests #blackbox #b_path", function()
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      run = test_env.run
+   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..639f96f3
--- /dev/null
+++ b/spec/purge_spec.lua
@@ -0,0 +1,30 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+local purge = require("luarocks.purge")
+
+expose("LuaRocks purge tests #blackbox #b_purge", function()   
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      testing_paths = test_env.testing_paths
+      run = test_env.run
+   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..27a95e5c
--- /dev/null
+++ b/spec/refresh_cache_spec.lua
@@ -0,0 +1,19 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+local refresh_cache = require("luarocks.refresh_cache")
+
+expose("LuaRocks refresh_cache tests #blackbox #b_refresh_cache", function()
+        
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      run = test_env.run
+   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)
\ No newline at end of file
diff --git a/spec/remove_spec.lua b/spec/remove_spec.lua
new file mode 100644
index 00000000..a94673a8
--- /dev/null
+++ b/spec/remove_spec.lua
@@ -0,0 +1,85 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+local remove = require("luarocks.remove")
+
+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"
+}
+
+expose("LuaRocks remove tests #blackbox #b_remove", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      testing_paths = test_env.testing_paths
+      run = test_env.run
+   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()
+      it("LuaRocks remove fail, break dependencies", function()
+         assert.is_true(test_env.need_luasocket())
+         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_true(test_env.need_luasocket())
+         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_true(test_env.need_luasocket())
+         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)
\ No newline at end of file
diff --git a/spec/search_spec.lua b/spec/search_spec.lua
new file mode 100644
index 00000000..a0258942
--- /dev/null
+++ b/spec/search_spec.lua
@@ -0,0 +1,42 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+local search = require("luarocks.search")
+
+local extra_rocks = {
+"/lzlib-0.4.1.53-1.src.rock"
+}
+
+expose("LuaRocks search tests #blackbox #b_search", function()
+   
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      run = test_env.run
+   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("search --all"))
+   end)
+   
+   it("LuaRocks search zlib", function()
+      local num = 123
+      assert.is_true(run.luarocks_bool("search " .. num))
+   end)
+end)
\ No newline at end of file
diff --git a/spec/show_spec.lua b/spec/show_spec.lua
new file mode 100644
index 00000000..85797eb6
--- /dev/null
+++ b/spec/show_spec.lua
@@ -0,0 +1,56 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+local show = require("luarocks.show")
+
+expose("LuaRocks show tests #blackbox #b_show", function()
+   
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      run = test_env.run
+   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..efe902f5
--- /dev/null
+++ b/spec/unpack_spec.lua
@@ -0,0 +1,61 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+local unpack = require("luarocks.unpack")
+
+local extra_rocks = {
+   "/cprint-0.1-2.src.rock",
+   "/cprint-0.1-2.rockspec"
+}
+
+expose("LuaRocks unpack tests #blackbox #b_unpack", function()
+   
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      testing_paths = test_env.testing_paths
+      run = test_env.run
+      platform = test_env.platform
+   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 src", 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)
+      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." .. platform .. ".rock"))
+         test_env.remove_dir("cprint-0.1-2")
+         os.remove("cprint-0.1-2." .. platform .. ".rock")
+      end)
+   end)
+end)
+
+
diff --git a/spec/upload_spec.lua b/spec/upload_spec.lua
new file mode 100644
index 00000000..daf40d61
--- /dev/null
+++ b/spec/upload_spec.lua
@@ -0,0 +1,41 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+local upload = require("luarocks.upload")
+
+local extra_rocks = {
+   "/lua-cjson-2.1.0-1.src.rock"
+}
+
+expose("LuaRocks upload tests #blackbox #b_upload", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      run = test_env.run
+   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)
+end)
+
+
diff --git a/spec/util_spec.lua b/spec/util_spec.lua
new file mode 100644
index 00000000..7c22d1cb
--- /dev/null
+++ b/spec/util_spec.lua
@@ -0,0 +1,96 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+expose("Basic tests #blackbox #b_util", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      testing_paths = test_env.testing_paths
+      env_variables = test_env.env_variables
+      run = test_env.run
+   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))
+
+      assert.is_false(run.luarocks_bool(" "))
+      assert.is_true(lfs.chdir(main_path))
+      assert.is_true(run.luarocks_bool(" "))
+   end)
+
+   it("LuaRocks timeout", function()
+      assert.is_true(run.luarocks_bool("--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_true(run.luarocks_bool("--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_true(run.luarocks_bool(""))
+      
+      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..d6e32f15
--- /dev/null
+++ b/spec/write_rockspec_spec.lua
@@ -0,0 +1,74 @@
+local test_env = require("test/test_environment")
+local lfs = require("lfs")
+
+test_env.unload_luarocks()
+local write_rockspec = require("luarocks.write_rockspec")
+
+expose("LuaRocks write_rockspec tests #blackbox #b_write_rockspec", function()
+
+   before_each(function()
+      test_env.setup_specs(extra_rocks)
+      run = test_env.run
+   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)
\ No newline at end of file
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/test_environment.lua b/test/test_environment.lua
new file mode 100644
index 00000000..6de501fb
--- /dev/null
+++ b/test/test_environment.lua
@@ -0,0 +1,625 @@
+local lfs = require("lfs")
+local test_env = {}
+local arg = arg or { ... }
+
+local function help()
+   print("LuaRocks test-suite\n\n"..
+         [[
+   INFORMATION
+      New test-suite for LuaRocks project, using unit testing framework Busted.
+   REQUIREMENTS
+      Tests require to have Lua installed and added to PATH. Be sure sshd is runnig on your system, or
+      use '--exclude-tags=ssh', to not execute tests which require sshd.
+   USAGE -Xhelper <arguments>
+      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 2.0.3)
+
+      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", "osx", "windows"]
+         ]]);
+      os.exit(1)
+end
+
+--- Helper function for execute_bool and execute_output
+-- @param command string: command to execute
+-- @param print_command boolean: print command if 'true'
+-- @param env_variables table: table of environment variables to export {FOO="bar", BAR="foo"}
+-- @return final_command string: concatenated command to execution
+local function execute_helper(command, print_command, env_variables)
+   local final_command = ""
+
+   if print_command then 
+      print("\n[EXECUTING]: " .. command)
+   end
+
+   if env_variables then
+      final_command = "export "
+      for k,v in pairs(env_variables) do
+         final_command = final_command .. k .. "='" .. v .. "' "
+      end
+      -- remove last space and add ';' to separate exporting variables from command
+      final_command = final_command:sub(1, -2) .. "; "
+   end
+
+   final_command = final_command .. command
+
+   return final_command
+end
+
+--- Execute command and returns true/false
+-- In Lua5.1 os.execute returns numeric value, but in Lua5.2+ returns boolean
+-- @return true/false boolean: status of the command execution
+local function execute_bool(command, print_command, env_variables)
+   command = execute_helper(command, print_command, env_variables)
+   
+   local ok = os.execute(command)
+   return ok == true or ok == 0
+end
+
+--- Execute command and returns output of command
+-- @return output string: output the command execution
+local function execute_output(command, print_command, env_variables)
+   command = execute_helper(command, print_command, env_variables)
+
+   local file = assert(io.popen(command))
+   local output = file:read('*all')
+   file:close()
+   return output:gsub("\n","") -- output adding new line, need to be removed
+end
+
+--- Set all arguments from input into global variables
+function test_env.set_args()
+   if arg[1] == nil then
+      help()
+   end
+   
+   local args_position
+   
+   for i=1, #arg do
+      if arg[i]:find("-Xhelper") and arg[i+1]:find("lua=") and not arg[i+1]:find("luajit=") then
+         args_position = i+1
+         test_env.LUA_V = arg[args_position]:gsub("(.*)lua=([^%,]+)(.*)","%2")
+         break  
+      elseif arg[i]:find("-Xhelper") and not arg[i+1]:find("lua=") and arg[i+1]:find("luajit=") then
+         args_position = i+1
+         test_env.LUAJIT_V = arg[args_position]:gsub("(.*)luajit=([^%,]+)(.*)","%2")
+         break  
+      elseif arg[i]:find("-Xhelper") and arg[i+1]:find("lua=") and arg[i+1]:find("luajit=") then
+         print("Please specify just Lua or LuaJIT version for testing in format 'lua=X.X.X' or 'luajit=X.X.X', for -Xhelper flag")
+         os.exit(1)
+      elseif arg[i]:find("-Xhelper") and not arg[i+1]:find("lua=") and not arg[i+1]:find("luajit=") then
+         print("Please add mandatory argument - version of Lua or LuaJIT in format 'lua=X.X.X' or 'luajit=X.X.X', for -Xhelper flag")
+         os.exit(1)
+      end
+   end
+
+   if not args_position then
+      help()
+   end
+
+   -- if at least Lua/LuaJIT version argument was found on input start to parse other arguments to env. variables
+   test_env.TYPE_TEST_ENV = "minimal"
+
+   if arg[args_position]:find("env=") then
+      test_env.TYPE_TEST_ENV = arg[args_position]:gsub("(.*)env=([^%,]+)(.*)","%2")
+   end
+   if arg[args_position]:find("clean") then
+      test_env.TEST_ENV_CLEAN = true
+   end
+   if arg[args_position]:find("travis") then
+      test_env.TRAVIS = true
+   end
+   if arg[args_position]:find("os=") then
+      test_env.TEST_TARGET_OS = arg[args_position]:gsub("(.*)os=([^%,]+)(.*)","%2")
+   end
+
+   if not test_env.TEST_TARGET_OS then
+      print("[OS CHECK]")
+      if execute_bool("sw_vers") then 
+         test_env.TEST_TARGET_OS = "osx"
+      elseif execute_bool("uname -s") then
+         test_env.TEST_TARGET_OS = "linux"
+      else
+         test_env.TEST_TARGET_OS = "windows"
+      end
+      print("--------------")
+   end
+   return true
+end
+
+--- Remove directory recursively
+-- @param path string: directory path to delete
+function test_env.remove_dir(path)
+   if lfs.attributes(path) then
+      for file in lfs.dir(path) do
+         if file ~= "." and file ~= ".." then
+            local full_path = path..'/'..file
+            local attr = lfs.attributes(full_path)
+
+            if attr.mode == "directory" then
+               test_env.remove_dir(full_path)
+               os.remove(full_path)
+            else
+               os.remove(full_path)
+            end
+         end
+      end
+   end
+   os.remove(path)
+end
+
+--- Remove directory recursively
+-- @param path string: directory path to delete
+-- @param pattern string: pattern in directories
+function test_env.remove_dir_pattern(path, pattern)
+   if lfs.attributes(path) then
+      for file in lfs.dir(path) do
+         if file ~= "." and file ~= ".." then
+            local full_path = path..'/'..file
+            local attr = lfs.attributes(full_path)
+
+            if attr.mode == "directory" and file:find(pattern) then
+               test_env.remove_dir(full_path)
+               os.remove(full_path)
+            end
+         end
+      end
+   end
+end
+
+--- Remove files based on filename
+-- @param path string: directory where to delete files
+-- @param pattern string: pattern in filenames
+-- @return result_check boolean: true if one or more files deleted
+function test_env.remove_files(path, pattern)
+   local result_check = false
+   if lfs.attributes(path) then
+      for file in lfs.dir(path) do
+         if file ~= "." and file ~= ".." then
+            if file:find(pattern) then
+               if os.remove(path .. "/" .. file) then
+                  result_check = true
+               end
+            end
+         end
+      end
+   end
+   return result_check
+end
+
+
+--- Function for downloading rocks and rockspecs
+-- @param rocks table: table with full name of rocks/rockspecs to download
+-- @param save_path string: path to directory, where to download rocks/rockspecs
+-- @return make_manifest boolean: true if new rocks downloaded
+local function download_rocks(rocks, save_path)
+   local luarocks_repo = "https://luarocks.org"   
+   local make_manifest = false
+
+   for _,rock in ipairs(rocks) do  
+      -- check if already downloaded
+      if not os.rename( save_path .. rock, save_path .. rock) then
+         execute_bool("wget -cP " .. save_path .. " " .. luarocks_repo .. rock)
+         make_manifest = true 
+      end
+   end
+   return make_manifest
+end
+
+--- Create config files for testing
+-- @param config_path string: path where to save config file
+-- @param config_content string: content of this config file
+local function create_config(config_path, config_content)
+   local file, err = io.open(config_path, "w+")
+   if not file then return nil, err end
+   file:write(config_content)
+   file:close()
+end
+
+--- Create md5sum of directory structure recursively, based on filename and size
+-- @param path string: path to directory for generate md5sum
+-- @param testing_os string(optional): version of PC OS
+-- @return md5sum string: md5sum of directory
+local function hash_environment(path, testing_os)
+   local md5sum = ""
+   testing_os = testing_os or test_env.TEST_TARGET_OS
+
+   if testing_os == "linux" then
+      md5sum = execute_output("find " .. path .. " -printf \"%s %p\n\" | md5sum")
+   end
+   if testing_os == "osx" then
+      md5sum = execute_output("find " .. path .. " -type f -exec stat -f \"%z %N\" {} \\; | md5")
+   end
+   --TODO if testing_os == "windows" then
+   --    md5sum = execute_output("find . -printf \"%s %p\n\" | md5sum")
+   -- end
+   return md5sum
+end
+
+--- Create environment variables needed for tests
+-- @param testing_paths table: table with paths to testing directory
+-- @return env_variables table: table with created environment variables
+local function create_env(testing_paths)
+   local luaversion_short = _VERSION:gsub("Lua ", "")
+   
+   if test_env.LUAJIT_V then
+      luaversion_short="5.1"
+   end
+   
+   local env_variables = {}
+   env_variables.LUA_VERSION = luaversion_short
+   env_variables.LUAROCKS_CONFIG = testing_paths.testing_dir .. "/testing_config.lua"
+   env_variables.LUA_PATH = testing_paths.testing_tree .. "/share/lua/" .. luaversion_short .. "/?.lua;"
+   env_variables.LUA_PATH = env_variables.LUA_PATH .. testing_paths.testing_tree .. "/share/lua/".. luaversion_short .. "/?/init.lua;"
+   env_variables.LUA_PATH = env_variables.LUA_PATH .. testing_paths.testing_sys_tree .. "/share/lua/" .. luaversion_short .. "/?.lua;"
+   env_variables.LUA_PATH = env_variables.LUA_PATH .. testing_paths.testing_sys_tree .. "/share/lua/".. luaversion_short .. "/?/init.lua;"
+   env_variables.LUA_PATH = env_variables.LUA_PATH .. testing_paths.src_dir .. "/?.lua;"
+   env_variables.LUA_CPATH = testing_paths.testing_tree .. "/lib/lua/" .. luaversion_short .. "/?.so;"
+                           .. testing_paths.testing_sys_tree .. "/lib/lua/" .. luaversion_short .. "/?.so;"
+   env_variables.PATH = os.getenv("PATH") .. ":" .. testing_paths.testing_tree .. "/bin:" .. testing_paths.testing_sys_tree .. "/bin"
+
+   return env_variables
+end
+
+--- Create md5sums of origin system and system-copy testing directory
+-- @param testing_paths table: table with paths to testing directory
+-- @return md5sums table: table of md5sums of system and system-copy testing directory
+local function create_md5sums(testing_paths)
+   local md5sums = {}
+   md5sums.testing_tree_copy_md5 = hash_environment(testing_paths.testing_tree_copy)
+   md5sums.testing_sys_tree_copy_md5 = hash_environment(testing_paths.testing_sys_tree_copy)
+
+   return md5sums
+end
+
+local function run_luarocks(testing_paths, env_variables)
+   
+   local function make_command_function(exec_function, lua_cmd, do_print)
+      return function(cmd, new_vars)
+         local temp_vars = {}
+         for k, v in pairs(env_variables) do
+            temp_vars[k] = v
+         end
+         if new_vars then
+            for k, v in pairs(new_vars) do
+               temp_vars[k] = v
+            end
+         end
+         return exec_function(lua_cmd .. cmd, do_print, temp_vars)
+      end
+   end
+
+   local run = {}
+
+   local cov_str = testing_paths.lua .. " -e\"require('luacov.runner')('" .. testing_paths.testing_dir .. "/luacov.config')\" "
+
+   local luarocks_cmd = cov_str .. testing_paths.src_dir .. "/bin/luarocks "
+   run.luarocks = make_command_function(execute_output, luarocks_cmd, true)
+   run.luarocks_bool = make_command_function(execute_bool, luarocks_cmd, true)
+   run.luarocks_noprint = make_command_function(execute_bool, luarocks_cmd, false)
+
+   local luarocks_nocov_cmd = testing_paths.lua .. " " .. testing_paths.src_dir .. "/bin/luarocks "
+   run.luarocks_nocov = make_command_function(execute_bool, luarocks_nocov_cmd, true)
+   run.luarocks_noprint_nocov = make_command_function(execute_bool, luarocks_nocov_cmd, false)
+   
+   local luarocks_admin_cmd = cov_str .. testing_paths.src_dir .. "/bin/luarocks-admin "
+   run.luarocks_admin = make_command_function(execute_output, luarocks_admin_cmd, true)
+   run.luarocks_admin_bool = make_command_function(execute_bool, luarocks_admin_cmd, true)
+
+   local luarocks_admin_nocov_cmd = testing_paths.lua .. " " .. testing_paths.src_dir .. "/bin/luarocks-admin "
+   run.luarocks_admin_nocov = make_command_function(execute_bool, luarocks_admin_nocov_cmd, false)
+
+   return run
+end
+
+--- Build environment for testing
+local function build_environment(env_rocks, testing_paths, env_variables)
+   print("\n--------------------")
+   print("BUILDING ENVIRONMENT")
+   print("--------------------")
+   test_env.remove_dir(testing_paths.testing_tree)
+   test_env.remove_dir(testing_paths.testing_sys_tree)
+   test_env.remove_dir(testing_paths.testing_tree_copy)
+   test_env.remove_dir(testing_paths.testing_sys_tree_copy)
+
+   lfs.mkdir(testing_paths.testing_tree)
+   lfs.mkdir(testing_paths.testing_sys_tree)
+
+   local run = run_luarocks(testing_paths, env_variables)
+   run.luarocks_admin_nocov("make_manifest " .. testing_paths.testing_server)
+   run.luarocks_admin_nocov("make_manifest " .. testing_paths.testing_cache)
+
+   for _,package in ipairs(env_rocks) do
+      if not run.luarocks_nocov("install --only-server=" .. testing_paths.testing_cache .. " --tree=" .. testing_paths.testing_sys_tree .. " " .. package, env_variables) then
+         run.luarocks_nocov("build --tree=" .. testing_paths.testing_sys_tree .. " " .. package, env_variables)
+         run.luarocks_nocov("pack --tree=" .. testing_paths.testing_sys_tree .. " " .. package .. "; mv " .. package .. "-*.rock " .. testing_paths.testing_cache, env_variables)
+      end
+   end
+
+   execute_bool("cp -a " .. testing_paths.testing_tree .. "/. " .. testing_paths.testing_tree_copy)
+   execute_bool("cp -a " .. testing_paths.testing_sys_tree .. "/. " .. testing_paths.testing_sys_tree_copy)
+end
+
+--- Reset testing environment
+local function reset_environment(testing_paths, md5sums)
+   local testing_tree_md5 = hash_environment(testing_paths.testing_tree)
+   local testing_sys_tree_md5 = hash_environment(testing_paths.testing_sys_tree)
+
+   if testing_tree_md5 ~= md5sums.testing_tree_copy_md5 then
+      test_env.remove_dir(testing_paths.testing_tree)
+      execute_bool("cp -a " .. testing_paths.testing_tree_copy .. "/. " .. testing_paths.testing_tree)
+   end
+   if testing_sys_tree_md5 ~= md5sums.testing_sys_tree_copy_md5 then
+      test_env.remove_dir(testing_paths.testing_sys_tree)
+      execute_bool("cp -a " .. testing_paths.testing_sys_tree_copy .. "/. " .. testing_paths.testing_sys_tree)
+   end
+
+   print("\n[ENVIRONMENT RESET]")
+end
+
+local function create_paths(luaversion_full)
+   local testing_paths = {}
+
+   testing_paths.luadir = ""
+
+   if test_env.TRAVIS then
+      testing_paths.luadir = lfs.currentdir() .. "/lua_install"
+      testing_paths.lua = testing_paths.luadir .. "/bin/lua"
+   end
+
+   if test_env.LUA_V and not test_env.TRAVIS then
+      if lfs.attributes("/usr/bin/lua") then
+         testing_paths.luadir = "/usr"
+         testing_paths.lua = testing_paths.luadir .. "/bin/lua"
+      elseif lfs.attributes("/usr/local/bin/lua") then
+         testing_paths.luadir = "/usr/local"
+         testing_paths.lua = testing_paths.luadir .. "/bin/lua"
+      end
+   elseif test_env.LUAJIT_V and not test_env.TRAVIS then
+      if lfs.attributes("/usr/bin/luajit") then
+         testing_paths.luadir = "/usr"
+         testing_paths.lua = testing_paths.luadir .. "/bin/luajit"
+      elseif lfs.attributes("/usr/local/bin/luajit") then
+         testing_paths.luadir = "/usr/local"
+         testing_paths.lua = testing_paths.luadir .. "/bin/luajit"
+      end
+   end
+
+   testing_paths.luarocks_tmp = "/tmp/luarocks_testing" --windows?
+
+   testing_paths.luarocks_dir = lfs.currentdir()
+   testing_paths.testing_dir = testing_paths.luarocks_dir .. "/test"
+   testing_paths.src_dir = testing_paths.luarocks_dir .. "/src"
+   testing_paths.testing_lrprefix = testing_paths.testing_dir .. "/testing_lrprefix-" .. luaversion_full
+   testing_paths.testing_tree = testing_paths.testing_dir .. "/testing-" .. luaversion_full
+   testing_paths.testing_tree_copy = testing_paths.testing_dir .. "/testing_copy-" .. luaversion_full
+   testing_paths.testing_sys_tree = testing_paths.testing_dir .. "/testing_sys-" .. luaversion_full
+   testing_paths.testing_sys_tree_copy = testing_paths.testing_dir .. "/testing_sys_copy-" .. luaversion_full
+   testing_paths.testing_cache = testing_paths.testing_dir .. "/testing_cache-" .. luaversion_full
+   testing_paths.testing_server = testing_paths.testing_dir .. "/testing_server-" .. luaversion_full
+
+   return testing_paths
+end
+
+--- Helper function to unload luarocks modules from global table package.loaded
+-- Needed to load our local (testing) version of LuaRocks
+function test_env.unload_luarocks()
+   for modname, _ in pairs(package.loaded) do
+      if modname:match("^luarocks%.") then
+         package.loaded[modname] = nil
+      end
+   end
+end
+
+--- Function for initially setup of environment, variables, md5sums for spec files
+function test_env.setup_specs(extra_rocks, luaversion_full)
+   -- if global variable about successful creation of testing environment doesn't exists, build environment
+   if not test_env.setup_done then
+      test_env.set_args()
+
+      if test_env.TRAVIS then
+         if not os.rename(os.getenv("HOME") .. "/.ssh/id_rsa.pub", os.getenv("HOME") .. "/.ssh/id_rsa.pub") then
+            execute_bool("ssh-keygen -t rsa -P \"\" -f ~/.ssh/id_rsa")
+            execute_bool("cat ~/.ssh/id_rsa.pub >> ~/.ssh/authorized_keys")
+            execute_bool("chmod og-wx ~/.ssh/authorized_keys")
+            execute_bool("ssh-keyscan localhost >> ~/.ssh/known_hosts")
+         end
+      end
+
+      luaversion_full = luaversion_full or test_env.LUA_V or test_env.LUAJIT_V
+
+      test_env.main()
+
+      -- Set paths, env_vars and functions for specs
+      test_env.testing_paths = create_paths(luaversion_full)
+      test_env.env_variables = create_env(test_env.testing_paths)
+      package.path = test_env.env_variables.LUA_PATH
+
+      test_env.run = run_luarocks(test_env.testing_paths, test_env.env_variables)
+      test_env.platform = execute_output(test_env.testing_paths.lua .. " -e 'print(require(\"luarocks.cfg\").arch)'", false, test_env.env_variables)
+      test_env.md5sums = create_md5sums(test_env.testing_paths)
+      test_env.setup_done = true
+   end
+   
+   if extra_rocks then 
+      local make_manifest = download_rocks(extra_rocks, test_env.testing_paths.testing_server)
+      if make_manifest then
+         local run = run_luarocks(test_env.testing_paths, test_env.env_variables)
+         run.luarocks_admin_nocov("make_manifest " .. test_env.testing_paths.testing_server)
+      end
+   end
+
+   reset_environment(test_env.testing_paths, test_env.md5sums, test_env.env_variables)
+
+   return true
+end
+
+--- Helper function for tests which needs luasocket installed
+function test_env.need_luasocket(luarocks_nocov, testing_cache, platform)
+   luarocks_nocov = luarocks_nocov or test_env.run.luarocks_nocov
+   testing_cache = testing_cache or test_env.testing_paths.testing_cache
+   platform = platform or test_env.platform
+
+   if luarocks_nocov("show luasocket") then
+      return true
+   else
+      testing_cache = testing_cache .. "/"
+      local luasocket_rock = "luasocket-3.0rc1-1." .. platform .. ".rock"
+      if not os.rename( testing_cache .. luasocket_rock, testing_cache .. luasocket_rock) then
+         luarocks_nocov("build --pack-binary-rock luasocket 3.0rc1-1")
+         os.rename(luasocket_rock, testing_cache .. luasocket_rock)
+      end
+      luarocks_nocov("install " .. testing_cache .. luasocket_rock)
+   end
+   return true
+end
+
+---
+-- Main function to create config files and testing environment 
+function test_env.main(luaversion_full, env_type, env_clean)
+   luaversion_full = luaversion_full or test_env.LUA_V or test_env.LUAJIT_V
+   local testing_paths = create_paths(luaversion_full)
+
+   env_clean = env_clean or test_env.TEST_ENV_CLEAN
+   if env_clean then
+      print("Cleaning testing directory...")
+      test_env.remove_dir(testing_paths.luarocks_tmp)
+      test_env.remove_dir_pattern(testing_paths.testing_dir, "testing_")
+      test_env.remove_dir_pattern(testing_paths.testing_dir, "testing-")
+      test_env.remove_files(testing_paths.testing_dir, "testing_")
+      test_env.remove_files(testing_paths.testing_dir, "luacov")
+      print("Cleaning done!")
+   end
+
+   lfs.mkdir(testing_paths.testing_cache)
+   lfs.mkdir(testing_paths.luarocks_tmp)
+
+--- CONFIG FILES
+-- testing_config.lua and testing_config_show_downloads.lua
+   local config_content = ([[rocks_trees = {
+   "%{testing_tree}",
+   { name = "system", root = "%{testing_sys_tree}" },
+}
+rocks_servers = {
+   "%{testing_server}"
+}
+local_cache = "%{testing_cache}"
+upload_server = "testing"
+upload_user = "%{user}"
+upload_servers = {
+   testing = {
+      rsync = "localhost/tmp/luarocks_testing",
+   },
+}
+external_deps_dirs = {
+   "/usr/local",
+   "/usr",
+   -- These are used for a test that fails, so it
+   -- can point to invalid paths:
+   {
+      prefix = "/opt",
+      bin = "bin",
+      include = "include",
+      lib = { "lib", "lib64" },
+   }
+}]]):gsub("%%%b{}", {
+    ["%{user}"] = os.getenv("USER"),
+    ["%{testing_sys_tree}"] = testing_paths.testing_sys_tree,
+    ["%{testing_tree}"] = testing_paths.testing_tree,
+    ["%{testing_server}"] = testing_paths.testing_server,
+    ["%{testing_cache}"] = testing_paths.testing_cache})
+
+   create_config(testing_paths.testing_dir .. "/testing_config.lua", config_content .. " \nweb_browser = \"true\"")
+   create_config(testing_paths.testing_dir .. "/testing_config_show_downloads.lua", config_content
+                  .. "show_downloads = true \n rocks_servers={\"http://luarocks.org/repositories/rocks\"}")
+
+-- testing_config_sftp.lua
+   config_content=([[rocks_trees = {
+   "%{testing_tree}",
+   "%{testing_sys_tree}",
+}
+local_cache = "%{testing_cache}"
+upload_server = "testing"
+upload_user = "%{user}"
+upload_servers = {
+   testing = {
+      sftp = "localhost/tmp/luarocks_testing",
+   },
+}]]):gsub("%%%b{}", {
+    ["%{user}"] = os.getenv("USER"),
+    ["%{testing_sys_tree}"] = testing_paths.testing_sys_tree,
+    ["%{testing_tree}"] = testing_paths.testing_tree,
+    ["%{testing_cache}"] = testing_paths.testing_cache})
+
+   create_config(testing_paths.testing_dir .. "/testing_config_sftp.lua", config_content)
+
+-- luacov.config
+   config_content=([[return {
+   statsfile = "%{testing_dir}/luacov.stats.out",
+   reportfile = "%{testing_dir}/luacov.report.out",
+   modules = {
+      ["luarocks"] = "src/bin/luarocks",
+      ["luarocks-admin"] = "src/bin/luarocks-admin",
+      ["luarocks.*"] = "src",
+      ["luarocks.*.*"] = "src",
+      ["luarocks.*.*.*"] = "src"
+   }
+}]]):gsub("%%%b{}", {
+    ["%{testing_dir}"] = testing_paths.testing_dir})
+
+   create_config(testing_paths.testing_dir .. "/luacov.config", config_content)
+
+   -- Create environment variables for configuration
+   local temp_env_variables = {LUAROCKS_CONFIG = testing_paths.testing_dir .. "/testing_config.lua",LUA_PATH="",LUA_CPATH=""}
+
+   -- Configure LuaRocks testing environment
+   local configure_cmd = "./configure --with-lua=" .. testing_paths.luadir .. " --prefix=" .. testing_paths.testing_lrprefix 
+   configure_cmd = configure_cmd .. " && make clean"
+   
+   if not execute_bool(configure_cmd, false, temp_env_variables) then
+      os.exit(1)
+   end
+   if not execute_bool("make src/luarocks/site_config.lua && make dev", false, temp_env_variables) then 
+      os.exit(1)
+   end
+
+   -- Preparation of rocks for building environment
+   env_type = env_type or test_env.TYPE_TEST_ENV
+   
+   local env_rocks = {} -- short names of rocks, required for building environment
+   local rocks = {}  -- full names of rocks required for download
+   rocks[#rocks+1] = "/luacov-0.11.0-1.rockspec"
+   rocks[#rocks+1] = "/luacov-0.11.0-1.src.rock"
+
+   if env_type == "full" then 
+      rocks[#rocks+1] = "/luafilesystem-1.6.3-1.src.rock"
+      rocks[#rocks+1] = "/luasocket-3.0rc1-1.src.rock"
+      rocks[#rocks+1] = "/luasocket-3.0rc1-1.rockspec"
+      rocks[#rocks+1] = "/luaposix-33.2.1-1.src.rock"
+      rocks[#rocks+1] = "/md5-1.2-1.src.rock"
+      rocks[#rocks+1] = "/lzlib-0.4.1.53-1.src.rock"
+      env_rocks = {"luafilesystem", "luasocket", "luaposix", "md5", "lzlib"}
+   end
+   if env_type == "full" and luaversion_full ~= "5.1.5" then
+      rocks[#rocks+1] = "/luabitop-1.0.2-1.rockspec"
+      rocks[#rocks+1] = "/luabitop-1.0.2-1.src.rock"
+      table.insert(env_rocks, "luabitop")
+   end
+
+   table.insert(env_rocks, "luacov")   -- luacov is needed for minimal or full environment
+   
+   -- Download rocks needed for LuaRocks testing environment
+   lfs.mkdir(testing_paths.testing_server)
+   download_rocks(rocks, testing_paths.testing_server)
+   
+   build_environment(env_rocks, testing_paths, temp_env_variables)
+
+   print("----------------")
+   print(" RUNNING  TESTS")
+   print("----------------")
+end
+
+return test_env
diff --git a/test/testing.lua b/test/testing.lua
deleted file mode 100644
index 1a837484..00000000
--- a/test/testing.lua
+++ /dev/null
@@ -1,483 +0,0 @@
-
-local variables = {}
-
--- Expand variables in the format $foo or ${foo} according
--- to the variables table.
-local function expand_variables(str)
-   return str:gsub("%$({?)([A-Za-z0-9_]+)(}?)", function(o, v, c)
-      return #o <= #c and (variables[v] or "") .. (#o < #c and c or "")
-   end)
-end
-
--- @param cmd command to run
--- @param envtable optional table of temporary environment variables
-local function run(cmd, envtable)
-   cmd = expand_variables(cmd)
-   local env = {}
-   for var, val in pairs(envtable) do
-      table.insert(env, var.."='"..expand_variables(val).."' ")
-   end
-   local code = os.execute(table.concat(env)..cmd)
-   return (code == 0 or code == true)
-end
-
-local function cd_run(dir, cmd, envtable)
-   return run("cd "..dir.." && "..cmd, envtable)
-end
-
-local function run_get_contents(cmd)
-end
-
-local function mkdir(dirname)
-   cmd = expand_variables(dirname)
-   -- TODO
-end
-
-local function rm_rf(...)
-   -- TODO
-end
-
-local function mv(src, dst)
-   -- TODO
-end
-
-local function exists(filename)
-   filename = expand_variables(filename)
-   -- TODO
-end
-
-local function glob(patt)
-   -- TODO
-end
-
-local function touch(filename)
-   -- TODO
-end
-
-local function rm(...)
-   for _, filename in ipairs {...} do
-      filename = expand_variables(filename)
-      -- TODO
-   end
-   return true
-end
-
-local function file_set_contents(filename, contents)
-   filename = expand_variables(filename)
-
-   local fd, err = io.open(filename, "w")
-   if not fd then return nil, err end
-   fd:write(contents)
-   fd:close()
-   return true
-end
-
-local function need_luasocket()
-   -- TODO
-end
-
-local tests = {
-
-   test_version = function() return run "$luarocks --version" end,
-   fail_unknown_command = function() return run "$luarocks unknown_command" end,
-   fail_arg_boolean_parameter = function() return run "$luarocks --porcelain=invalid" end,
-   fail_arg_boolean_unknown = function() return run "$luarocks --invalid-flag" end,
-   fail_arg_string_no_parameter = function() return run "$luarocks --server" end,
-   fail_arg_string_followed_by_flag = function() return run "$luarocks --server --porcelain" end,
-   fail_arg_string_unknown = function() return run "$luarocks --invalid-flag=abc" end,
-   test_empty_list = function() return run "$luarocks list" end,
-   test_list_outdated = function () return run "$luarocks list --outdated" end,
-   fail_sysconfig_err = function()
-      mkdir "$testing_lrprefix/etc/luarocks"
-      file_set_contents("$testing_lrprefix/etc/luarocks/config.lua", "aoeui")
-      return run "$luarocks list"
-         and rm "$testing_lrprefix/etc/luarocks/config.lua"
-   end,
-   fail_sysconfig_default_err = function()
-      mkdir "$testing_lrprefix/etc/luarocks"
-      file_set_contents("$testing_lrprefix/etc/luarocks/config-$luashortversion.lua", "aoeui")
-      return run "$luarocks list"
-         and rm "$testing_lrprefix/etc/luarocks/config-$luashortversion.lua"
-   end,
-   fail_build_noarg = function() return run "$luarocks build" end,
-   fail_download_noarg = function() return run "$luarocks download" end,
-   fail_install_noarg = function() return run "$luarocks install" end,
-   fail_lint_noarg = function() return run "$luarocks lint" end,
-   fail_search_noarg = function() return run "$luarocks search" end,
-   fail_show_noarg = function() return run "$luarocks show" end,
-   fail_unpack_noarg = function() return run "$luarocks unpack" end,
-   fail_upload_noarg = function() return run "$luarocks upload" end,
-   fail_remove_noarg = function() return run "$luarocks remove" end,
-   fail_doc_noarg = function() return run "$luarocks doc" end,
-   fail_new_version_noarg = function() return run "$luarocks new_version" end,
-   fail_write_rockspec_noarg = function() return run "$luarocks write_rockspec" end,
-   fail_build_invalid = function() return run "$luarocks build invalid" end,
-   fail_download_invalid = function() return run "$luarocks download invalid" end,
-   fail_install_invalid = function() return run "$luarocks install invalid" end,
-   fail_lint_invalid = function() return run "$luarocks lint invalid" end,
-   fail_show_invalid = function() return run "$luarocks show invalid" end,
-   fail_new_version_invalid = function() return run "$luarocks new_version invalid" end,
-   test_list_invalidtree = function() return run "$luarocks --tree=/some/invalid/tree list" end,
-   fail_inexistent_dir = function()
-      -- Unix only?
-      return run "mkdir idontexist; cd idontexist; rmdir ../idontexist; $luarocks; err=$?; cd ..; return $err"
-   end,
-   fail_make_norockspec = function() return run "$luarocks make" end,
-   fail_build_permissions = function() return run "$luarocks build --tree=/usr lpeg" end,
-   fail_build_permissions_parent = function() return run "$luarocks build --tree=/usr/invalid lpeg" end,
-   test_build_verbose = function() return run "$luarocks build --verbose lpeg" end,
-   fail_build_blank_arg = function() return run "$luarocks build --tree="" lpeg" end,
-   test_build_withpatch = function() need_luasocket(); return run "$luarocks build luadoc" end,
-   test_build_diffversion = function() return run "$luarocks build luacov ${version_luacov}" end,
-   test_build_command = function() return run "$luarocks build stdlib" end,
-   test_build_install_bin = function() return run "$luarocks build luarepl" end,
-   test_build_nohttps = function()
-      need_luasocket()
-      return run "$luarocks download --rockspec validate-args ${verrev_validate_args}"
-         and run "$luarocks build ./validate-args-${version_validate_args}-1.rockspec"
-         and rm "./validate-args-${version_validate_args}-1.rockspec"
-   end,
-   test_build_https = function()
-      need_luasocket()
-      return run "$luarocks download --rockspec validate-args ${verrev_validate_args}"
-         and run "$luarocks install luasec"
-         and run "$luarocks build ./validate-args-${verrev_validate_args}.rockspec"
-         and rm "./validate-args-${verrev_validate_args}.rockspec"
-   end,
-   test_build_supported_platforms = function() return run "$luarocks build lpty" end,
-   test_build_only_deps_rockspec = function()
-      return run "$luarocks download --rockspec lxsh ${verrev_lxsh}"
-         and run "$luarocks build ./lxsh-${verrev_lxsh}.rockspec --only-deps"
-         and (not run "$luarocks show lxsh")
-   end,
-   test_build_only_deps_src_rock = function()
-      return run "$luarocks download --source lxsh ${verrev_lxsh}"
-         and run "$luarocks build ./lxsh-${verrev_lxsh}.src.rock --only-deps"
-         and (not run "$luarocks show lxsh")
-   end,
-   test_build_only_deps = function() return run "$luarocks build luasec --only-deps" and (not run "$luarocks show luasec") end,
-   test_install_only_deps = function() return run "$luarocks install lxsh ${verrev_lxsh} --only-deps" and (not run "$luarocks show lxsh") end,
-   fail_build_missing_external = function() return run '$luarocks build "$testing_dir/testfiles/missing_external-0.1-1.rockspec" INEXISTENT_INCDIR="/invalid/dir"' end,
-   fail_build_invalidpatch = function()
-      need_luasocket()
-      return run '$luarocks build "$testing_dir/testfiles/invalid_patch-0.1-1.rockspec"'
-   end,
-   test_build_deps_partial_match = function() return run "$luarocks build lmathx" end,
-   test_build_show_downloads = function()
-      return run("$luarocks build alien", { LUAROCKS_CONFIG="$testing_dir/testing_config_show_downloads.lua" })
-   end,
-   test_download_all = function()
-      return run "$luarocks download --all validate-args"
-         and rm(glob("validate-args-*"))
-   end,
-   test_download_rockspecversion = function()
-      return run "$luarocks download --rockspec validate-args ${verrev_validate_args}"
-         and rm(glob("validate-args-*"))
-   end,
-   test_help = function() return run "$luarocks help" end,
-   fail_help_invalid = function() return run "$luarocks help invalid" end,
-   test_install_binaryrock = function()
-      return run "$luarocks build --pack-binary-rock cprint"
-         and run "$luarocks install ./cprint-${verrev_cprint}.${platform}.rock"
-         and rm "./cprint-${verrev_cprint}.${platform}.rock"
-   end,
-   test_install_with_bin = function() return run "$luarocks install wsapi" end,
-   fail_install_notazipfile = function() return run '$luarocks install "$testing_dir/testfiles/not_a_zipfile-1.0-1.src.rock"' end,
-   fail_install_invalidpatch = function()
-      need_luasocket()
-      return run '$luarocks install "$testing_dir/testfiles/invalid_patch-0.1-1.rockspec"'
-   end,
-   fail_install_invalid_filename = function() return run '$luarocks install "invalid.rock"' end,
-   fail_install_invalid_arch = function() return run '$luarocks install "foo-1.0-1.impossible-x86.rock"' end,
-   test_install_reinstall = function()
-      return run '$luarocks install "$testing_cache/luasocket-$verrev_luasocket.$platform.rock"'
-         and run '$luarocks install --deps-mode=none "$testing_cache/luasocket-$verrev_luasocket.$platform.rock"'
-   end,
-   fail_local_root = function() return run("$luarocks install --local luasocket", { USER="root" }) end,
-   test_site_config = function()
-      mv("../src/luarocks/site_config.lua", "../src/luarocks/site_config.lua.tmp")
-      local ok = run "$luarocks"
-      mv("../src/luarocks/site_config.lua.tmp", "../src/luarocks/site_config.lua")
-      return ok
-   end,
-   test_lint_ok = function()
-      return run "$luarocks download --rockspec validate-args ${verrev_validate_args}"
-         and run "$luarocks lint ./validate-args-${verrev_validate_args}.rockspec"
-         and rm "./validate-args-${verrev_validate_args}.rockspec"
-   end,
-   fail_lint_type_mismatch_string = function() return run '$luarocks lint "$testing_dir/testfiles/type_mismatch_string-1.0-1.rockspec"' end,
-   fail_lint_type_mismatch_version = function() return run '$luarocks lint "$testing_dir/testfiles/type_mismatch_version-1.0-1.rockspec"' end,
-   fail_lint_type_mismatch_table = function() return run '$luarocks lint "$testing_dir/testfiles/type_mismatch_table-1.0-1.rockspec"' end,
-   fail_lint_no_build_table = function() return run '$luarocks lint "$testing_dir/testfiles/no_build_table-0.1-1.rockspec"' end,
-   test_list = function() return run "$luarocks list" end,
-   test_list_porcelain = function() return run "$luarocks list --porcelain" end,
-   test_make_with_rockspec = function()
-      return rm_rf "./luasocket-${verrev_luasocket}"
-         and run "$luarocks download --source luasocket"
-         and run "$luarocks unpack ./luasocket-${verrev_luasocket}.src.rock"
-         and cd_run("luasocket-${verrev_luasocket}/${srcdir_luasocket}", "$luarocks make luasocket-${verrev_luasocket}.rockspec")
-         and rm_rf "./luasocket-${verrev_luasocket}"
-   end,
-   test_make_default_rockspec = function()
-      return rm_rf "./lxsh-${verrev_lxsh}"
-         and run "$luarocks download --source lxsh ${verrev_lxsh}"
-         and run "$luarocks unpack ./lxsh-${verrev_lxsh}.src.rock"
-         and cd_run("lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1", "$luarocks make")
-         and rm_rf "./lxsh-${verrev_lxsh}"
-   end,
-   test_make_pack_binary_rock = function()
-      return rm_rf "./lxsh-${verrev_lxsh}"
-         and run "$luarocks download --source lxsh ${verrev_lxsh}"
-         and run "$luarocks unpack ./lxsh-${verrev_lxsh}.src.rock"
-         and cd_run("lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1", "$luarocks make --deps-mode=none --pack-binary-rock")
-         and exists "lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1/lxsh-${verrev_lxsh}.all.rock"
-         and rm_rf "./lxsh-${verrev_lxsh}"
-   end,
-   fail_make_which_rockspec = function()
-      rm_rf "./luasocket-${verrev_luasocket}"
-      run "$luarocks download --source luasocket"
-      run "$luarocks unpack ./luasocket-${verrev_luasocket}.src.rock"
-      local ok = cd_run("luasocket-${verrev_luasocket}/${srcdir_luasocket}", "$luarocks make")
-      rm_rf "./luasocket-${verrev_luasocket}"
-      return ok
-   end,
-   test_new_version = function()
-      return run "$luarocks download --rockspec luacov ${version_luacov}"
-         and run "$luarocks new_version ./luacov-${version_luacov}-1.rockspec 0.2"
-         and rm(glob("./luacov-0.*"))
-   end,
-   test_new_version_url = function()
-      return run "$luarocks download --rockspec abelhas 1.0"
-         and run "$luarocks new_version ./abelhas-1.0-1.rockspec 1.1 https://github.com/downloads/ittner/abelhas/abelhas-1.1.tar.gz"
-         and rm(glob("./abelhas-*"))
-   end,
-   test_pack = function()
-      return run "$luarocks list"
-         and run "$luarocks pack luacov"
-         and rm(glob("./luacov-*.rock"))
-   end,
-   test_pack_src = function()
-      return run "$luarocks install luasec"
-         and run "$luarocks download --rockspec luasocket"
-         and run "$luarocks pack ./luasocket-${verrev_luasocket}.rockspec"
-         and rm(glob("./luasocket-${version_luasocket}-*.rock"))
-   end,
-   test_path = function() return run "$luarocks path --bin" end,
-   test_path_lr_path = function() return run "$luarocks path --lr-path" end,
-   test_path_lr_cpath = function() return run "$luarocks path --lr-cpath" end,
-   test_path_lr_bin = function() return run "$luarocks path --lr-bin" end,
-   test_path_with_tree = function() return run "$luarocks path --tree=lua_modules" end,
-   fail_purge_missing_tree = function() return run '$luarocks purge --tree="$testing_tree"' end,
-   test_purge = function() return run '$luarocks purge --tree="$testing_sys_tree"' end,
-   test_remove = function()
-      return run "$luarocks build abelhas ${version_abelhas}"
-         and run "$luarocks remove abelhas ${version_abelhas}"
-   end,
-   test_remove_force = function()
-      need_luasocket()
-      return run "$luarocks build lualogging"
-         and run "$luarocks remove --force luasocket"
-   end,
-   fail_remove_deps = function()
-      need_luasocket()
-      return run "$luarocks build lualogging"
-         and run "$luarocks remove luasocket"
-   end,
-   fail_remove_missing = function() return run "$luarocks remove missing_rock" end,
-   fail_remove_invalid_name = function() return run "$luarocks remove invalid.rock" end,
-   test_search_found = function() return run "$luarocks search zlib" end,
-   test_search_missing = function() return run "$luarocks search missing_rock" end,
-   test_show = function() return run "$luarocks show luacov" end,
-   test_show_modules = function() return run "$luarocks show --modules luacov" end,
-   test_show_home = function() return run "$luarocks show --home luacov" end,
-   test_show_depends = function()
-      need_luasocket()
-      return run "$luarocks install luasec"
-         and run "$luarocks show luasec"
-   end,
-   test_show_oldversion = function()
-      return run "$luarocks install luacov ${version_luacov}"
-         and run "$luarocks show luacov ${version_luacov}"
-   end,
-   test_unpack_download = function()
-      return rm_rf "./cprint-${verrev_cprint}"
-         and run "$luarocks unpack cprint"
-         and rm_rf "./cprint-${verrev_cprint}"
-   end,
-   test_unpack_src = function()
-      return rm_rf "./cprint-${verrev_cprint}"
-         and run "$luarocks download --source cprint"
-         and run "$luarocks unpack ./cprint-${verrev_cprint}.src.rock"
-         and rm_rf "./cprint-${verrev_cprint}"
-   end,
-   test_unpack_rockspec = function()
-      return rm_rf "./cprint-${verrev_cprint}"
-         and run "$luarocks download --rockspec cprint"
-         and run "$luarocks unpack ./cprint-${verrev_cprint}.rockspec"
-         and rm_rf "./cprint-${verrev_cprint}"
-   end,
-   test_unpack_binary = function()
-      return rm_rf "./cprint-${verrev_cprint}"
-         and run "$luarocks build cprint"
-         and run "$luarocks pack cprint"
-         and run "$luarocks unpack ./cprint-${verrev_cprint}.${platform}.rock"
-         and rm_rf "./cprint-${verrev_cprint}"
-   end,
-   fail_unpack_invalidpatch = function() 
-      need_luasocket()
-      return run '$luarocks unpack "$testing_dir/testfiles/invalid_patch-0.1-1.rockspec"'
-   end,
-   fail_unpack_invalidrockspec = function()
-      need_luasocket()
-      return run '$luarocks unpack "invalid.rockspec"'
-   end,
-   fail_upload_invalidrockspec = function() return run '$luarocks upload "invalid.rockspec"' end,
-   fail_upload_invalidkey = function() return run '$luarocks upload --api-key="invalid" "invalid.rockspec"' end,
-   test_admin_help = function() return run "$luarocks_admin help" end,
-   test_admin_make_manifest = function() return run "$luarocks_admin make_manifest" end,
-   test_admin_add_rsync = function() return run '$luarocks_admin --server=testing add "$testing_server/luasocket-${verrev_luasocket}.src.rock"' end,
-   test_admin_add_sftp = function()
-      return run("$luarocks_admin --server=testing add ./luasocket-${verrev_luasocket}.src.rock", { LUAROCKS_CONFIG="$testing_dir/testing_config_sftp.lua" })
-   end,
-   fail_admin_add_missing = function() return run "$luarocks_admin --server=testing add" end,
-   fail_admin_invalidserver = function() return run '$luarocks_admin --server=invalid add "$testing_server/luasocket-${verrev_luasocket}.src.rock"' end,
-   fail_admin_invalidrock = function() return run "$luarocks_admin --server=testing add invalid" end,
-   test_admin_refresh_cache = function() return run "$luarocks_admin --server=testing refresh_cache" end,
-   test_admin_remove = function() return run "$luarocks_admin --server=testing remove luasocket-${verrev_luasocket}.src.rock" end,
-   fail_admin_remove_missing = function() return run "$luarocks_admin --server=testing remove" end,
-   fail_deps_mode_invalid_arg = function() return run "$luarocks remove luacov --deps-mode" end,
-
-   test_deps_mode_one = function()
-      return run '$luarocks build --tree="system" lpeg'
-         and run '$luarocks list'
-         and run '$luarocks build --deps-mode=one --tree="$testing_tree" lxsh'
-         and run_get_contents '$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg' ~= ""
-   end,
-   test_deps_mode_order = function()
-      return run '$luarocks build --tree="system" lpeg'
-         and run '$luarocks build --deps-mode=order --tree="$testing_tree" lxsh'
-         and run '$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg'
-         and run_get_contents '$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg' == ""
-   end,
-   test_deps_mode_order_sys = function()
-      return run '$luarocks build --tree="$testing_tree" lpeg'
-         and run '$luarocks build --deps-mode=order --tree="$testing_sys_tree" lxsh'
-         and run_get_contents '$luarocks_noecho list --tree="$testing_sys_tree" --porcelain lpeg' ~= ""
-   end,
-   test_deps_mode_all_sys = function()
-      return run '$luarocks build --tree="$testing_tree" lpeg'
-         and run '$luarocks build --deps-mode=all --tree="$testing_sys_tree" lxsh'
-         and run_get_contents '$luarocks_noecho list --tree="$testing_sys_tree" --porcelain lpeg' == ""
-   end,
-
-   test_deps_mode_none = function()
-      return run '$luarocks build --tree="$testing_tree" --deps-mode=none lxsh'
-         and run_get_contents '$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg' == ""
-   end,
-   test_deps_mode_nodeps_alias = function()
-      return run '$luarocks build --tree="$testing_tree" --nodeps lxsh'
-         and run_get_contents '$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg' == ""
-   end,
-   test_deps_mode_make_order = function()
-      local ok = run '$luarocks build --tree="$testing_sys_tree" lpeg'
-         and rm_rf "./lxsh-${verrev_lxsh}"
-         and run "$luarocks download --source lxsh ${verrev_lxsh}"
-         and run "$luarocks unpack ./lxsh-${verrev_lxsh}.src.rock"
-         and cd_run("lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1", '$luarocks make --tree="$testing_tree" --deps-mode=order')
-      if not ok then
-         return false
-      end
-      local found = run_get_contents '$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg'
-      rm_rf "./lxsh-${verrev_lxsh}"
-      return found == ""
-   end,
-   test_deps_mode_make_order_sys = function()
-      local ok = run '$luarocks build --tree="$testing_tree" lpeg'
-         and rm_rf "./lxsh-${verrev_lxsh}"
-         and run "$luarocks download --source lxsh ${verrev_lxsh}"
-         and run "$luarocks unpack ./lxsh-${verrev_lxsh}.src.rock"
-         and cd_run("lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1", '$luarocks make --tree="$testing_sys_tree" --deps-mode=order')
-      if not ok then
-         return false
-      end
-      local found = run_get_contents '$luarocks_noecho list --tree="$testing_sys_tree" --porcelain lpeg'
-      rm_rf "./lxsh-${verrev_lxsh}"
-      return found ~= ""
-   end,
-   test_write_rockspec = function() return run "$luarocks write_rockspec git://github.com/keplerproject/luarocks" end,
-   test_write_rockspec_lib = function() return run '$luarocks write_rockspec git://github.com/mbalmer/luafcgi --lib=fcgi --license="3-clause BSD" --lua-version=5.1,5.2' end,
-   test_write_rockspec_format = function() return run '$luarocks write_rockspec git://github.com/keplerproject/luarocks --rockspec-format=1.1 --lua-version=5.1,5.2' end,
-   test_write_rockspec_fullargs = function() return run '$luarocks write_rockspec git://github.com/keplerproject/luarocks --lua-version=5.1,5.2 --license="MIT/X11" --homepage="http://www.luarocks.org" --summary="A package manager for Lua modules"' end,
-   fail_write_rockspec_args = function() return run "$luarocks write_rockspec invalid" end,
-   fail_write_rockspec_args_url = function() return run "$luarocks write_rockspec http://example.com/invalid.zip" end,
-   test_write_rockspec_http = function() return run "$luarocks write_rockspec http://luarocks.org/releases/luarocks-2.1.0.tar.gz --lua-version=5.1" end,
-   test_write_rockspec_basedir = function() return run "$luarocks write_rockspec https://github.com/downloads/Olivine-Labs/luassert/luassert-1.2.tar.gz --lua-version=5.1" end,
-
-   fail_config_noflags = function() return run "$luarocks config; " end,
-   test_config_lua_incdir = function() return run "$luarocks config --lua-incdir; " end,
-   test_config_lua_libdir = function() return run "$luarocks config --lua-libdir; " end,
-   test_config_lua_ver = function() return run "$luarocks config --lua-ver; " end,
-   fail_config_system_config = function()
-      return rm "$testing_lrprefix/etc/luarocks/config.lua"
-         and run "$luarocks config --system-config; "
-   end,
-   test_config_system_config = function()
-      local ok = mkdir "$testing_lrprefix/etc/luarocks"
-         and touch "$testing_lrprefix/etc/luarocks/config.lua"
-         and run "$luarocks config --system-config; "
-      rm "$testing_lrprefix/etc/luarocks/config.lua"
-      return ok
-   end,
-   fail_config_system_config_invalid = function()
-      local ok = mkdir "$testing_lrprefix/etc/luarocks"
-         and run "echo 'if if if' > '$testing_lrprefix/etc/luarocks/config.lua' ;"
-         and run "$luarocks config --system-config"
-      rm "$testing_lrprefix/etc/luarocks/config.lua"
-      return ok
-   end,
-   test_config_user_config = function() return run "$luarocks config --user-config; " end,
-   fail_config_user_config = function() return run "LUAROCKS_CONFIG='/missing_file.lua' $luarocks config --user-config; " end,
-   test_config_rock_trees = function() return run "$luarocks config --rock-trees;" end,
-   test_config_help = function() return run "$luarocks help config;" end,
-   test_doc = function()
-      return run "$luarocks install luarepl"
-         and run "$luarocks doc luarepl"
-   end,
-   test_doc_home = function()
-      return run "$luarocks install luacov"
-         and run "$luarocks doc luacov --home"
-   end,
-   fail_doc_invalid = function () return run "$luarocks doc invalid" end,
-
-   -- Tests for https://github.com/keplerproject/luarocks/issues/375
-   test_fetch_base_dir = function()
-      local fetch = require "luarocks.fetch"
-
-      return assert("v0.3" == fetch.url_to_base_dir("https://github.com/hishamhm/lua-compat-5.2/archive/v0.3.zip"))
-         and assert("lua-compat-5.2" == fetch.url_to_base_dir("https://github.com/hishamhm/lua-compat-5.2.zip"))
-         and assert("lua-compat-5.2" == fetch.url_to_base_dir("https://github.com/hishamhm/lua-compat-5.2.tar.gz"))
-         and assert("lua-compat-5.2" == fetch.url_to_base_dir("https://github.com/hishamhm/lua-compat-5.2.tar.bz2"))
-         and assert("parser.moon" == fetch.url_to_base_dir("git://github.com/Cirru/parser.moon"))
-         and assert("v0.3" == fetch.url_to_base_dir("https://github.com/hishamhm/lua-compat-5.2/archive/v0.3"))
-   end,
-
-   -- Tests for https://github.com/keplerproject/luarocks/issues/552
-   test_install_break_dependencies_warning = function()
-      need_luasocket()
-      return run "$luarocks install say ${new_version_say}"
-         and run "$luarocks install luassert"
-         and run "$luarocks install say ${old_version_say}"
-   end,
-   test_install_break_dependencies_force = function()
-      need_luasocket()
-      return run "$luarocks install say ${new_version_say}"
-         and run "$luarocks install luassert"
-         and run "$luarocks install --force say ${old_version_say}"
-   end,
-   test_install_break_dependencies_force = function()
-      need_luasocket()
-      return run "$luarocks install say ${new_version_say}"
-         and run "$luarocks install luassert"
-         and run "$luarocks install --force-fast say ${old_version_say}"
-   end
-}
diff --git a/test/testing.sh b/test/testing.sh
deleted file mode 100755
index cb10441c..00000000
--- a/test/testing.sh
+++ /dev/null
@@ -1,651 +0,0 @@
-#!/bin/bash -e
-
-# Setup #########################################
-
-[ -e ../configure ] || {
-   echo "Please run this from the test/ directory."
-   exit 1
-}
-
-if [ -z "$*" ]
-then
-   ps aux | grep -q '[s]shd' || {
-      echo "Run sudo /bin/sshd in order to perform all tests."
-      exit 1
-   }
-fi
-
-if [ "$1" == "--travis" ]
-then
-   travis=true
-   shift
-fi
-
-luaversion=5.1.5
-
-if [ "$1" == "--lua" ]
-then
-   shift
-   luaversion=$1
-   shift
-fi
-
-luashortversion=`echo $luaversion | cut -d. -f 1-2`
-
-testing_dir="$PWD"
-
-testing_lrprefix="$testing_dir/testing_lrprefix-$luaversion"
-testing_tree="$testing_dir/testing-$luaversion"
-testing_sys_tree="$testing_dir/testing_sys-$luaversion"
-testing_tree_copy="$testing_dir/testing_copy-$luaversion"
-testing_sys_tree_copy="$testing_dir/testing_sys_copy-$luaversion"
-testing_cache="$testing_dir/testing_cache-$luaversion"
-testing_server="$testing_dir/testing_server-$luaversion"
-
-if [ "$1" == "--clean" ]
-then
-   shift
-   rm -rf "$testing_cache"
-   rm -rf "$testing_server"
-fi
-
-[ "$1" ] || rm -f luacov.stats.out
-rm -f luacov.report.out
-rm -rf /tmp/luarocks_testing
-mkdir /tmp/luarocks_testing
-rm -rf "$testing_lrprefix"
-rm -rf "$testing_tree"
-rm -rf "$testing_sys_tree"
-rm -rf "$testing_tree_copy"
-rm -rf "$testing_sys_tree_copy"
-rm -rf "$testing_dir/testing_config.lua"
-rm -rf "$testing_dir/testing_config_show_downloads.lua"
-rm -rf "$testing_dir/testing_config_sftp.lua"
-rm -rf "$testing_dir/luacov.config"
-
-mkdir -p "$testing_cache"
-
-[ "$1" = "clean" ] && {
-   rm -f luacov.stats.out
-   exit 0
-}
-
-cat <<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
-      echo "Downloading lua $luaversion..."
-      wget "http://www.lua.org/ftp/lua-$luaversion.tar.gz" &> /dev/null
-      tar zxpf "lua-$luaversion.tar.gz"
-      cd "lua-$luaversion"
-      echo "Building lua $luaversion..."
-      make linux INSTALL_TOP="$luadir" &> /dev/null
-      make install INSTALL_TOP="$luadir" &> /dev/null
-   fi
-   popd
-   [ -e ~/.ssh/id_rsa.pub ] || ssh-keygen -t rsa -P "" -f ~/.ssh/id_rsa
-   cat ~/.ssh/id_rsa.pub >> ~/.ssh/authorized_keys
-   chmod og-wx ~/.ssh/authorized_keys
-   ssh-keyscan localhost >> ~/.ssh/known_hosts
-else
-   luadir="/Programs/Lua/Current"
-   if [ ! -e "$luadir" ]
-   then
-      luadir="/usr/local"
-   fi
-fi
-
-if [ `uname -m` = i686 ]
-then
-   platform="linux-x86"
-else
-   platform="linux-x86_64"
-fi
-
-lua="$luadir/bin/lua"
-
-version_luasocket=3.0rc1
-verrev_luasocket=${version_luasocket}-1
-srcdir_luasocket=luasocket-3.0-rc1
-
-version_cprint=0.1
-verrev_cprint=0.1-2
-
-new_version_say=1.2-1
-old_version_say=1.0-1
-
-version_luacov=0.11.0
-verrev_luacov=${version_luacov}-1
-version_lxsh=0.8.6
-version_validate_args=1.5.4
-verrev_validate_args=1.5.4-1
-verrev_lxsh=${version_lxsh}-2
-version_abelhas=1.0
-verrev_abelhas=${version_abelhas}-1
-
-luasec=luasec
-
-cd ..
-./configure --with-lua="$luadir" --prefix="$testing_lrprefix"
-make clean
-make src/luarocks/site_config.lua
-make dev
-cd src
-basedir=$PWD
-run_lua() {
-   if [ "$1" = "--noecho" ]; then shift; noecho=1; else noecho=0; fi
-   if [ "$1" = "--nocov" ]; then shift; nocov=1; else nocov=0; fi
-   if [ "$noecho" = 0 ]
-   then
-      echo $*
-   fi
-   cmd=$1
-   shift
-   if [ "$nocov" = 0 ]
-   then
-      "$lua" -e"require('luacov.runner')('$testing_dir/luacov.config')" "$basedir/bin/$cmd" "$@"
-   else
-      "$lua" "$basedir/bin/$cmd" "$@"
-   fi
-}
-luarocks="run_lua luarocks"
-luarocks_nocov="run_lua --nocov luarocks"
-luarocks_noecho="run_lua --noecho luarocks"
-luarocks_noecho_nocov="run_lua --noecho --nocov luarocks"
-luarocks_admin="run_lua luarocks-admin"
-luarocks_admin_nocov="run_lua --nocov luarocks-admin"
-
-###################################################
-
-mkdir -p "$testing_server"
-(
-   cd "$testing_server"
-   luarocks_repo="https://luarocks.org"
-   get() { [ -e `basename "$1"` ] || wget -c "$1"; }
-   get "$luarocks_repo/luacov-${verrev_luacov}.src.rock"
-   get "$luarocks_repo/luacov-${verrev_luacov}.rockspec"
-   get "$luarocks_repo/luadoc-3.0.1-1.src.rock"
-   get "$luarocks_repo/lualogging-1.3.0-1.src.rock"
-   get "$luarocks_repo/luasocket-${verrev_luasocket}.src.rock"
-   get "$luarocks_repo/luasocket-${verrev_luasocket}.rockspec"
-   get "$luarocks_repo/luafilesystem-1.6.3-1.src.rock"
-   get "$luarocks_repo/stdlib-41.0.0-1.src.rock"
-   get "$luarocks_repo/luarepl-0.4-1.src.rock"
-   get "$luarocks_repo/validate-args-1.5.4-1.rockspec"
-   get "$luarocks_repo/luasec-0.6-1.rockspec"
-   get "$luarocks_repo/luabitop-1.0.2-1.rockspec"
-   get "$luarocks_repo/luabitop-1.0.2-1.src.rock"
-   get "$luarocks_repo/lpty-1.0.1-1.src.rock"
-   get "$luarocks_repo/cprint-${verrev_cprint}.src.rock"
-   get "$luarocks_repo/cprint-${verrev_cprint}.rockspec"
-   get "$luarocks_repo/wsapi-1.6-1.src.rock"
-   get "$luarocks_repo/lxsh-${verrev_lxsh}.src.rock"
-   get "$luarocks_repo/lxsh-${verrev_lxsh}.rockspec"
-   get "$luarocks_repo/abelhas-${verrev_abelhas}.rockspec"
-   get "$luarocks_repo/lzlib-0.4.1.53-1.src.rock"
-   get "$luarocks_repo/lpeg-0.12-1.src.rock"
-   get "$luarocks_repo/luaposix-33.2.1-1.src.rock"
-   get "$luarocks_repo/md5-1.2-1.src.rock"
-   get "$luarocks_repo/lmathx-20120430.51-1.src.rock"
-   get "$luarocks_repo/lmathx-20120430.51-1.rockspec"
-   get "$luarocks_repo/lmathx-20120430.52-1.src.rock"
-   get "$luarocks_repo/lmathx-20120430.52-1.rockspec"
-   get "$luarocks_repo/lmathx-20150505-1.src.rock"
-   get "$luarocks_repo/lmathx-20150505-1.rockspec"
-   get "$luarocks_repo/lua-path-0.2.3-1.src.rock"
-   get "$luarocks_repo/lua-cjson-2.1.0-1.src.rock"
-   get "$luarocks_repo/luacov-coveralls-0.1.1-1.src.rock"
-   get "$luarocks_repo/say-1.2-1.src.rock"
-   get "$luarocks_repo/say-1.0-1.src.rock"
-   get "$luarocks_repo/luassert-1.7.0-1.src.rock"
-)
-$luarocks_admin_nocov make_manifest "$testing_server"
-
-###################################################
-
-checksum_path() {
-   ( cd "$1"; find . -printf "%s %p\n" | md5sum )
-}
-
-build_environment() {
-   rm -rf "$testing_tree"
-   rm -rf "$testing_sys_tree"
-   rm -rf "$testing_tree_copy"
-   rm -rf "$testing_sys_tree_copy"
-   mkdir -p "$testing_tree"
-   mkdir -p "$testing_sys_tree"
-   $luarocks_admin_nocov make_manifest "$testing_cache"
-   for package in "$@"
-   do
-      $luarocks_nocov install --only-server="$testing_cache" --tree="$testing_sys_tree" $package || {
-         $luarocks_nocov build --tree="$testing_sys_tree" $package
-         $luarocks_nocov pack --tree="$testing_sys_tree" $package; mv $package-*.rock "$testing_cache"
-      }
-   done
-   export LUA_PATH=
-   export LUA_CPATH=
-   eval `$luarocks_noecho_nocov path --bin`
-   cp -a "$testing_tree" "$testing_tree_copy"
-   cp -a "$testing_sys_tree" "$testing_sys_tree_copy"
-   testing_tree_copy_md5=`checksum_path "$testing_tree_copy"`
-   testing_sys_tree_copy_md5=`checksum_path "$testing_sys_tree_copy"`
-}
-
-reset_environment() {
-   testing_tree_md5=`checksum_path "$testing_tree"`
-   testing_sys_tree_md5=`checksum_path "$testing_sys_tree"`
-   if [ "$testing_tree_md5" != "$testing_tree_copy_md5" ]
-   then
-      rm -rf "$testing_tree"
-      cp -a "$testing_tree_copy" "$testing_tree"
-   fi
-   if [ "$testing_sys_tree_md5" != "$testing_sys_tree_copy_md5" ]
-   then
-      rm -rf "$testing_sys_tree"
-      cp -a "$testing_sys_tree_copy" "$testing_sys_tree"
-   fi
-}
-
-need() {
-   echo "Obtaining $1 $2..."
-   if $luarocks show $1 &> /dev/null
-   then
-      echo "Already available"
-      return
-   fi
-   platrock="$1-$2.$platform.rock"
-   if [ ! -e "$testing_cache/$platrock" ]
-   then
-      echo "Building $1 $2..."
-      $luarocks_nocov build --pack-binary-rock $1 $2
-      mv "$platrock" "$testing_cache"
-   fi
-   echo "Installing $1 $2..."
-   $luarocks_nocov install "$testing_cache/$platrock"
-   return
-}
-need_luasocket() { need luasocket $verrev_luasocket; }
-
-# Tests #########################################
-test_version() { $luarocks --version; }
-
-fail_unknown_command() { $luarocks unknown_command; }
-
-fail_arg_boolean_parameter() { $luarocks --porcelain=invalid; }
-fail_arg_boolean_unknown() { $luarocks --invalid-flag; }
-fail_arg_string_no_parameter() { $luarocks --server; }
-fail_arg_string_followed_by_flag() { $luarocks --server --porcelain; }
-fail_arg_string_unknown() { $luarocks --invalid-flag=abc; }
-
-fail_invalid_assignment() { $luarocks invalid=5; }
-
-test_empty_list() { $luarocks list; }
-test_list_outdated() { $luarocks list --outdated; }
-
-fail_sysconfig_err() { local err=0; local scdir="$testing_lrprefix/etc/luarocks/"; mkdir -p "$scdir"; local sysconfig="$scdir/config.lua"; echo "aoeui" > "$sysconfig"; echo $sysconfig; $luarocks list; err=$?; rm "$sysconfig"; return "$err"; }
-fail_sysconfig_default_err() { local err=0; local scdir="$testing_lrprefix/etc/luarocks/"; mkdir -p "$scdir"; local sysconfig="$scdir/config-$luashortversion.lua"; echo "aoeui" > "$sysconfig"; echo $sysconfig; $luarocks list; err=$?; rm "$sysconfig"; return "$err"; }
-
-fail_build_noarg() { $luarocks build; }
-fail_download_noarg() { $luarocks download; }
-fail_install_noarg() { $luarocks install; }
-fail_lint_noarg() { $luarocks lint; }
-fail_search_noarg() { $luarocks search; }
-fail_show_noarg() { $luarocks show; }
-fail_unpack_noarg() { $luarocks unpack; }
-fail_upload_noarg() { $luarocks upload; }
-fail_remove_noarg() { $luarocks remove; }
-fail_doc_noarg() { $luarocks doc; }
-
-fail_build_invalid() { $luarocks build invalid; }
-fail_download_invalid() { $luarocks download invalid; }
-fail_install_invalid() { $luarocks install invalid; }
-fail_lint_invalid() { $luarocks lint invalid; }
-fail_show_invalid() { $luarocks show invalid; }
-fail_new_version_invalid() { $luarocks new_version invalid; }
-
-test_list_invalidtree() { $luarocks --tree=/some/invalid/tree list; }
-
-fail_inexistent_dir() { mkdir idontexist; cd idontexist; rmdir ../idontexist; $luarocks; err=$?; cd ..; return $err; }
-
-fail_make_norockspec() { $luarocks make; }
-
-fail_build_permissions() { $luarocks build --tree=/usr lpeg; }
-fail_build_permissions_parent() { $luarocks build --tree=/usr/invalid lpeg; }
-
-test_build_verbose() { $luarocks build --verbose lpeg; }
-test_build_timeout() { $luarocks --timeout=10; }
-fail_build_timeout_invalid() { $luarocks --timeout=abc; }
-test_build_branch() { $luarocks build --branch=master lpeg; }
-fail_build_invalid_entry_deps_mode() { $luarocks build --deps-mode=123 lpeg; }
-test_build_only_server() { $luarocks --only-server=testing; }
-test_build_only_sources() { $luarocks build --only-sources="http://example.com" lpeg; }
-fail_build_blank_arg() { $luarocks build --tree="" lpeg; }
-test_build_withpatch() { need_luasocket; $luarocks build luadoc; }
-test_build_diffversion() { $luarocks build luacov ${version_luacov}; }
-test_build_command() { $luarocks build stdlib; }
-test_build_install_bin() { $luarocks build luarepl; }
-test_build_nohttps() { need_luasocket; $luarocks download --rockspec validate-args ${verrev_validate_args} && $luarocks build ./validate-args-${version_validate_args}-1.rockspec && rm ./validate-args-${version_validate_args}-1.rockspec; }
-test_build_https() { need_luasocket; $luarocks download --rockspec validate-args ${verrev_validate_args} && $luarocks install $luasec && $luarocks build ./validate-args-${verrev_validate_args}.rockspec && rm ./validate-args-${verrev_validate_args}.rockspec; }
-test_build_supported_platforms() { $luarocks build lpty; }
-test_build_only_deps_rockspec() { $luarocks download --rockspec lxsh ${verrev_lxsh} && $luarocks build ./lxsh-${verrev_lxsh}.rockspec --only-deps && { $luarocks show lxsh; [ $? -ne 0 ]; }; }
-test_build_only_deps_src_rock() { $luarocks download --source lxsh ${verrev_lxsh} && $luarocks build ./lxsh-${verrev_lxsh}.src.rock --only-deps && { $luarocks show lxsh; [ $? -ne 0 ]; }; }
-test_build_only_deps() { $luarocks build luasec --only-deps && { $luarocks show luasec; [ $? -ne 0 ]; }; }
-test_install_only_deps() { $luarocks install lxsh ${verrev_lxsh} --only-deps && { $luarocks show lxsh; [ $? -ne 0 ]; }; }
-test_build_no_deps() { $luarocks build luasec --nodeps; }
-test_install_no_deps() { $luarocks install luasec --nodeps; }
-fail_build_missing_external() { $luarocks build "$testing_dir/testfiles/missing_external-0.1-1.rockspec" INEXISTENT_INCDIR="/invalid/dir"; }
-fail_build_invalidpatch() { need_luasocket; $luarocks build "$testing_dir/testfiles/invalid_patch-0.1-1.rockspec"; }
-
-test_build_deps_partial_match() { $luarocks build lmathx; }
-test_build_show_downloads() { export LUAROCKS_CONFIG="$testing_dir/testing_config_show_downloads.lua" && $luarocks build alien; export LUAROCKS_CONFIG="$testing_dir/testing_config.lua"; }
-
-test_download_all() { $luarocks download --all validate-args && rm validate-args-*; }
-test_download_rockspecversion() { $luarocks download --rockspec validate-args ${verrev_validate_args} && rm validate-args-*; }
-
-test_help() { $luarocks help; }
-fail_help_invalid() { $luarocks help invalid; }
-
-test_install_only_deps() { $luarocks install --only-deps "$testing_cache/luasocket-$verrev_luasocket.$platform.rock"; }
-test_install_binaryrock() { $luarocks build --pack-binary-rock cprint && $luarocks install ./cprint-${verrev_cprint}.${platform}.rock && rm ./cprint-${verrev_cprint}.${platform}.rock; }
-test_install_with_bin() { $luarocks install wsapi; }
-fail_install_notazipfile() { $luarocks install "$testing_dir/testfiles/not_a_zipfile-1.0-1.src.rock"; }
-fail_install_invalidpatch() { need_luasocket; $luarocks install "$testing_dir/testfiles/invalid_patch-0.1-1.rockspec"; }
-fail_install_invalid_filename() { $luarocks install "invalid.rock"; }
-fail_install_invalid_arch() { $luarocks install "foo-1.0-1.impossible-x86.rock"; }
-test_install_reinstall() { $luarocks install "$testing_cache/luasocket-$verrev_luasocket.$platform.rock"; $luarocks install --deps-mode=none "$testing_cache/luasocket-$verrev_luasocket.$platform.rock"; }
-
-fail_local_root() { USER=root $luarocks install --local luasocket; }
-
-test_site_config() { mv ../src/luarocks/site_config.lua ../src/luarocks/site_config.lua.tmp; $luarocks; mv ../src/luarocks/site_config.lua.tmp ../src/luarocks/site_config.lua; }
-
-test_lint_ok() { $luarocks download --rockspec validate-args ${verrev_validate_args} && $luarocks lint ./validate-args-${verrev_validate_args}.rockspec && rm ./validate-args-${verrev_validate_args}.rockspec; }
-fail_lint_type_mismatch_string() { $luarocks lint "$testing_dir/testfiles/type_mismatch_string-1.0-1.rockspec"; }
-fail_lint_type_mismatch_version() { $luarocks lint "$testing_dir/testfiles/type_mismatch_version-1.0-1.rockspec"; }
-fail_lint_type_mismatch_table() { $luarocks lint "$testing_dir/testfiles/type_mismatch_table-1.0-1.rockspec"; }
-fail_lint_no_build_table() { $luarocks lint "$testing_dir/testfiles/no_build_table-0.1-1.rockspec"; }
-
-test_list() { $luarocks list; }
-test_list_porcelain() { $luarocks list --porcelain; }
-
-test_make_with_rockspec() { rm -rf ./luasocket-${verrev_luasocket} && $luarocks download --source luasocket && $luarocks unpack ./luasocket-${verrev_luasocket}.src.rock && cd luasocket-${verrev_luasocket}/${srcdir_luasocket}  && $luarocks make luasocket-${verrev_luasocket}.rockspec && cd ../.. && rm -rf ./luasocket-${verrev_luasocket}; }
-test_make_default_rockspec() { rm -rf ./lxsh-${verrev_lxsh} &&  $luarocks download --source lxsh ${verrev_lxsh} &&  $luarocks unpack ./lxsh-${verrev_lxsh}.src.rock &&  cd lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1  &&  $luarocks new_version lxsh-${verrev_lxsh}.rockspec  && $luarocks make && cd ../.. && rm -rf ./lxsh-${verrev_lxsh}; }
-test_make_unnamed_rockspec() { rm -rf ./lxsh-${verrev_lxsh} &&  $luarocks download --source lxsh ${verrev_lxsh} &&  $luarocks unpack ./lxsh-${verrev_lxsh}.src.rock &&  cd lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1  &&  cp lxsh-${verrev_lxsh}.rockspec rockspec && $luarocks make && cd ../.. && rm -rf ./lxsh-${verrev_lxsh}; }
-fail_make_ambiguous_rockspec() { rm -rf ./lxsh-${verrev_lxsh} &&  $luarocks download --source lxsh ${verrev_lxsh} &&  $luarocks unpack ./lxsh-${verrev_lxsh}.src.rock &&  cd lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1  &&  cp lxsh-${verrev_lxsh}.rockspec lxsh2-${verrev_lxsh}.rockspec && $luarocks make && cd ../.. && rm -rf ./lxsh-${verrev_lxsh}; }
-fail_make_ambiguous_unnamed_rockspec() { rm -rf ./lxsh-${verrev_lxsh} &&  $luarocks download --source lxsh ${verrev_lxsh} &&  $luarocks unpack ./lxsh-${verrev_lxsh}.src.rock &&  cd lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1  &&  mv lxsh-${verrev_lxsh}.rockspec 1_rockspec && cp 1_rockspec 2_rockspec && $luarocks make && cd ../.. && rm -rf ./lxsh-${verrev_lxsh}; }
-test_make_pack_binary_rock() { rm -rf ./lxsh-${verrev_lxsh} &&  $luarocks download --source lxsh ${verrev_lxsh} &&  $luarocks unpack ./lxsh-${verrev_lxsh}.src.rock &&  cd lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1  &&  $luarocks make --deps-mode=none --pack-binary-rock &&  [ -e ./lxsh-${verrev_lxsh}.all.rock ] &&  cd ../.. && rm -rf ./lxsh-${verrev_lxsh}; }
-
-test_new_version() { $luarocks download --rockspec luacov ${version_luacov} &&  $luarocks new_version ./luacov-${version_luacov}-1.rockspec 0.2 && rm ./luacov-0.*; }
-test_new_version_url() { $luarocks download --rockspec abelhas 1.0 && $luarocks new_version ./abelhas-1.0-1.rockspec 1.1 https://github.com/downloads/ittner/abelhas/abelhas-1.1.tar.gz && rm ./abelhas-*; }
-test_new_version_tag() { $luarocks download --rockspec luacov ${version_luacov} && $luarocks new_version ./luacov-${version_luacov}-1.rockspec --tag v0.3 && rm ./luacov-0.3-1.rockspec; }
-test_new_version_tag_without_arg() { rm -rf ./*rockspec && $luarocks download --rockspec luacov ${version_luacov} && $luarocks new_version --tag v0.3 && rm ./luacov-0.3-1.rockspec; }
-
-test_pack() { $luarocks list && $luarocks pack luacov && rm ./luacov-*.rock; }
-test_pack_src() { $luarocks install $luasec && $luarocks download --rockspec luasocket && $luarocks pack ./luasocket-${verrev_luasocket}.rockspec && rm ./luasocket-${version_luasocket}-*.rock; }
-
-test_path() { $luarocks path --bin; }
-test_path_lr_path() { $luarocks path --lr-path; }
-test_path_lr_cpath() { $luarocks path --lr-cpath; }
-test_path_lr_bin() { $luarocks path --lr-bin; }
-test_path_with_tree() { $luarocks path --tree=lua_modules; }
-
-fail_purge_missing_tree() { $luarocks purge --tree="$testing_tree"; }
-fail_purge_tree_notstring() { $luarocks purge --tree=1; }
-test_purge() { $luarocks purge --tree="$testing_sys_tree"; }
-test_purge_oldversions() { $luarocks purge --old-versions --tree="$testing_sys_tree"; }
-
-test_remove() { $luarocks build abelhas ${version_abelhas} && $luarocks remove abelhas ${version_abelhas}; }
-test_remove_force() { need_luasocket; $luarocks build lualogging && $luarocks remove --force luasocket; }
-test_remove_force_fast() { need_luasocket; $luarocks build lualogging && $luarocks remove --force-fast luasocket; }
-fail_remove_deps() { need_luasocket; $luarocks build lualogging && $luarocks remove luasocket; }
-fail_remove_missing() { $luarocks remove missing_rock; }
-fail_remove_invalid_name() { $luarocks remove invalid.rock; }
-
-test_search_found() { $luarocks search zlib; }
-test_search_missing() { $luarocks search missing_rock; }
-test_search_version() { $luarocks search zlib 1.1; }
-test_search_all() { $luarocks search --all; }
-fail_search_nostring() { $var=123; $luarocks search $var; }
-
-test_show() { $luarocks show luacov; }
-test_show_modules() { $luarocks show --modules luacov; }
-test_show_home() { $luarocks show --home luacov; }
-test_show_deps() { $luarocks show --deps luacov; }
-test_show_rockspec() { $luarocks show --rockspec luacov; }
-test_show_mversion() { $luarocks show --mversion luacov; }
-test_show_rocktree() { $luarocks show --rock-tree luacov; }
-test_show_rockdir() { $luarocks show --rock-dir luacov; }
-test_show_depends() { need_luasocket; $luarocks install $luasec && $luarocks show luasec; }
-test_show_oldversion() { $luarocks install luacov ${version_luacov} && $luarocks show luacov ${version_luacov}; }
-
-test_unpack_download() { rm -rf ./cprint-${verrev_cprint} && $luarocks unpack cprint && rm -rf ./cprint-${verrev_cprint}; }
-test_unpack_src() { rm -rf ./cprint-${verrev_cprint} && $luarocks download --source cprint && $luarocks unpack ./cprint-${verrev_cprint}.src.rock && rm -rf ./cprint-${verrev_cprint}; }
-test_unpack_rockspec() { rm -rf ./cprint-${verrev_cprint} && $luarocks download --rockspec cprint && $luarocks unpack ./cprint-${verrev_cprint}.rockspec && rm -rf ./cprint-${verrev_cprint}; }
-test_unpack_binary() { rm -rf ./cprint-${verrev_cprint} && $luarocks build cprint && $luarocks pack cprint && $luarocks unpack ./cprint-${verrev_cprint}.${platform}.rock && rm -rf ./cprint-${verrev_cprint}; }
-fail_unpack_invalidpatch() { need_luasocket; $luarocks unpack "$testing_dir/testfiles/invalid_patch-0.1-1.rockspec"; }
-fail_unpack_invalidrockspec() { need_luasocket; $luarocks unpack "invalid.rockspec"; }
-
-fail_upload_invalidrockspec() { $luarocks upload "invalid.rockspec"; }
-fail_upload_invalidkey() { $luarocks upload --api-key="invalid" "invalid.rockspec"; }
-fail_upload_skippack() { $luarocks upload --api-key="invalid" --skip-pack "luacov-${verrev_luacov}.rockspec"; }
-fail_upload_force() { $luarocks install lua-cjson && $luarocks upload --api-key="invalid" --force "luacov-${verrev_luacov}.rockspec" && $luarocks remove lua-cjson; }
-
-
-test_admin_help() { $luarocks_admin help; }
-
-test_admin_make_manifest() { $luarocks_admin make_manifest; }
-test_admin_add_rsync() { $luarocks_admin --server=testing add "$testing_server/luasocket-${verrev_luasocket}.src.rock"; }
-test_admin_add_sftp() { export LUAROCKS_CONFIG="$testing_dir/testing_config_sftp.lua" && $luarocks_admin --server=testing add ./luasocket-${verrev_luasocket}.src.rock; export LUAROCKS_CONFIG="$testing_dir/testing_config.lua"; }
-fail_admin_add_missing() { $luarocks_admin --server=testing add; }
-fail_admin_invalidserver() { $luarocks_admin --server=invalid add "$testing_server/luasocket-${verrev_luasocket}.src.rock"; }
-fail_admin_invalidrock() { $luarocks_admin --server=testing add invalid; }
-test_admin_refresh_cache() { $luarocks_admin --server=testing refresh_cache; }
-test_admin_remove() { $luarocks_admin --server=testing remove luasocket-${verrev_luasocket}.src.rock; }
-fail_admin_remove_missing() { $luarocks_admin --server=testing remove; }
-fail_admin_split_server_url() { $luarocks_admin --server="localhost@/tmp/luarocks_testing" add "$testing_server/luasocket-${verrev_luasocket}.src.rock"; }
-
-fail_deps_mode_invalid_arg() { $luarocks remove luacov --deps-mode; }
-test_deps_mode_one() { $luarocks build --tree="system" lpeg && $luarocks list && $luarocks build --deps-mode=one --tree="$testing_tree" lxsh && [ `$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg | wc -l` = 1 ]; }
-test_deps_mode_order() { $luarocks build --tree="system" lpeg && $luarocks build --deps-mode=order --tree="$testing_tree" lxsh && $luarocks_noecho list --tree="$testing_tree" --porcelain lpeg && [ `$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg | wc -l` = 0 ]; }
-test_deps_mode_order_sys() { $luarocks build --tree="$testing_tree" lpeg && $luarocks build --deps-mode=order --tree="$testing_sys_tree" lxsh && [ `$luarocks_noecho list --tree="$testing_sys_tree" --porcelain lpeg | wc -l` = 1 ]; }
-test_deps_mode_all_sys() { $luarocks build --tree="$testing_tree" lpeg && $luarocks build --deps-mode=all --tree="$testing_sys_tree" lxsh && [ `$luarocks_noecho list --tree="$testing_sys_tree" --porcelain lpeg | wc -l` = 0 ]; }
-test_deps_mode_none() { $luarocks build --tree="$testing_tree" --deps-mode=none lxsh; [ `$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg | wc -l` = 0 ]; }
-test_deps_mode_nodeps_alias() { $luarocks build --tree="$testing_tree" --nodeps lxsh; [ `$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg | wc -l` = 0 ]; }
-test_deps_mode_make_order() { $luarocks build --tree="$testing_sys_tree" lpeg && rm -rf ./lxsh-${verrev_lxsh} && $luarocks download --source lxsh ${verrev_lxsh} && $luarocks unpack ./lxsh-${verrev_lxsh}.src.rock && cd lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1  && $luarocks make --tree="$testing_tree" --deps-mode=order && cd ../.. && [ `$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg | wc -l` = 0 ] && rm -rf ./lxsh-${verrev_lxsh}; }
-test_deps_mode_make_order_sys() { $luarocks build --tree="$testing_tree" lpeg && rm -rf ./lxsh-${verrev_lxsh} && $luarocks download --source lxsh ${verrev_lxsh} && $luarocks unpack ./lxsh-${verrev_lxsh}.src.rock && cd lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1  && $luarocks make --tree="$testing_sys_tree" --deps-mode=order && cd ../.. && [ `$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg | wc -l` = 1 ] && rm -rf ./lxsh-${verrev_lxsh}; }
-
-test_write_rockspec() { $luarocks write_rockspec git://github.com/keplerproject/luarocks; }
-test_write_rockspec_name() { $luarocks write_rockspec luarocks git://github.com/keplerproject/luarocks; }
-test_write_rockspec_name_version() { $luarocks write_rockspec luarocks 7.8.9 git://github.com/keplerproject/luarocks; }
-test_write_rockspec_current_dir() { $luarocks write_rockspec; }
-test_write_rockspec_tag() { $luarocks write_rockspec git://github.com/keplerproject/luarocks --tag=v2.3.0; }
-test_write_rockspec_lib() { $luarocks write_rockspec git://github.com/mbalmer/luafcgi --lib=fcgi --license="3-clause BSD" --lua-version=5.1,5.2; }
-test_write_rockspec_format() { $luarocks write_rockspec git://github.com/keplerproject/luarocks --rockspec-format=1.1 --lua-version=5.1,5.2; }
-test_write_rockspec_fullargs() { $luarocks write_rockspec git://github.com/keplerproject/luarocks --lua-version=5.1,5.2 --license="MIT/X11" --homepage="http://www.luarocks.org" --summary="A package manager for Lua modules"; }
-fail_write_rockspec_args() { $luarocks write_rockspec invalid; }
-fail_write_rockspec_args_url() { $luarocks write_rockspec http://example.com/invalid.zip; }
-test_write_rockspec_http() { $luarocks write_rockspec http://luarocks.org/releases/luarocks-2.1.0.tar.gz --lua-version=5.1; }
-test_write_rockspec_basedir() { $luarocks write_rockspec https://github.com/downloads/Olivine-Labs/luassert/luassert-1.2.tar.gz --lua-version=5.1; }
-
-fail_config_noflags() { $luarocks config; }
-test_config_lua_incdir() { $luarocks config --lua-incdir; }
-test_config_lua_libdir() { $luarocks config --lua-libdir; }
-test_config_lua_ver() { $luarocks config --lua-ver; }
-fail_config_system_config() { rm -f "$testing_lrprefix/etc/luarocks/config.lua"; $luarocks config --system-config; }
-test_config_system_config() { mkdir -p "$testing_lrprefix/etc/luarocks"; touch "$testing_lrprefix/etc/luarocks/config.lua"; $luarocks config --system-config; err=$?; rm -f "$testing_lrprefix/etc/luarocks/config.lua"; return $err; }
-fail_config_system_config_invalid() { mkdir -p "$testing_lrprefix/etc/luarocks"; echo "if if if" > "$testing_lrprefix/etc/luarocks/config.lua"; $luarocks config --system-config; err=$?; rm -f "$testing_lrprefix/etc/luarocks/config.lua"; return $err; }
-test_config_user_config() { $luarocks config --user-config; }
-fail_config_user_config() { LUAROCKS_CONFIG="/missing_file.lua" $luarocks config --user-config; }
-test_config_rock_trees() { $luarocks config --rock-trees; }
-test_config_help() { $luarocks help config; }
-
-# Tests for https://github.com/keplerproject/luarocks/issues/375
-test_fetch_base_dir() { $lua <<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_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