Tests added - new_version

1 files changed, 19 insertions, 1 deletions

diff --git a/spec/new_version_spec.lua b/spec/new_version_spec.lua
index 2274bce3..9207806a 100644
--- a/spec/new_version_spec.lua
+++ b/spec/new_version_spec.lua
@@ -6,7 +6,9 @@ local testing_paths = test_env.testing_paths
 test_env.unload_luarocks()
 
 local extra_rocks = {
-   "/abelhas-1.0-1.rockspec"
+   "/abelhas-1.0-1.rockspec",
+   "/md5-1.2-1.rockspec",
+   "/lpeg-0.12-1.rockspec",
 }
 
 describe("LuaRocks new_version tests #blackbox #b_new_version", function()
@@ -25,6 +27,12 @@ describe("LuaRocks new_version tests #blackbox #b_new_version", function()
       it("LuaRocks new version invalid", function()
          assert.is_false(run.luarocks_bool("new_version invalid"))
       end)
+
+      it("LuaRocks new version invalid url", function()
+         assert.is_true(run.luarocks_bool("download --rockspec abelhas 1.0"))
+         assert.is_true(run.luarocks_bool("new_version abelhas-1.0-1.rockspec 1.1 http://luainvalid"))
+         test_env.remove_files(lfs.currentdir(), "abelhas--")
+      end)
    end)
 
    describe("LuaRocks new_version more complex tests", function()
@@ -48,5 +56,15 @@ describe("LuaRocks new_version tests #blackbox #b_new_version", function()
          assert.is.truthy(lfs.attributes("luacov-0.3-1.rockspec"))
          test_env.remove_files(lfs.currentdir(), "luacov--")
       end)
+
+      it("LuaRocks new version updating md5", function()
+         assert.is_true(run.luarocks_bool("download --rockspec lpeg 0.12"))
+         assert.is_true(run.luarocks_bool("new_version lpeg-0.12-1.rockspec 0.2 https://luarocks.org/manifests/gvvaughan/lpeg-1.0.0-1.rockspec"))
+         test_env.remove_files(lfs.currentdir(), "lpeg--")
+
+         -- assert.is_true(run.luarocks_bool("download --rockspec md5 1.2"))
+         -- assert.is_true(run.luarocks_bool("new_version md5-1.2-1.rockspec 1.3 https://luarocks.org/manifests/tomasguisasola/md5-1.2-1.rockspec"))
+         -- test_env.remove_files(lfs.currentdir(), "md5--")
+      end)
    end)
 end)