Merge pull request #585 from robooo/new-tests

New tests

2 files changed, 32 insertions, 2 deletions

diff --git a/spec/doc_spec.lua b/spec/doc_spec.lua
index 9dbeaab8..a04d3c14 100644
--- a/spec/doc_spec.lua
+++ b/spec/doc_spec.lua
@@ -1,10 +1,12 @@
 local test_env = require("test/test_environment")
 local run = test_env.run
+local testing_paths = test_env.testing_paths
 
 test_env.unload_luarocks()
 
 local extra_rocks = {
-  "/luarepl-0.4-1.src.rock"
+  "/luarepl-0.4-1.src.rock",
+  "/c3-1.0-1.src.rock"
 }
 
 describe("LuaRocks doc tests #blackbox #b_doc", function()
@@ -20,6 +22,21 @@ describe("LuaRocks doc tests #blackbox #b_doc", function()
       it("LuaRocks doc with invalid argument", function()
          assert.is_false(run.luarocks_bool("doc invalid"))
       end)
+      it("LuaRocks doc with no homepage", function()
+         assert.is_true(run.luarocks_bool("install c3"))
+         assert.is_false(run.luarocks_bool("doc c3 --home"))
+      end)
+      it("LuaRocks doc with no home page and no doc folder", function()
+         assert.is_true(run.luarocks_bool("install c3"))
+         test_env.remove_dir(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/c3/1.0-1/doc")
+         assert.is_false(run.luarocks_bool("doc c3"))
+      end)
+      it("LuaRocks doc with no doc folder opening descript.homepage", function()
+         assert.is_true(run.luarocks_bool("install luarepl"))
+         test_env.remove_dir(testing_paths.testing_sys_tree .. "/lib/luarocks/rocks/luarepl/0.4-1/doc")
+         local output = run.luarocks("doc luarepl")
+         assert.is.truthy(output:find("Local documentation directory not found"))
+      end)
    end)
    
    describe("LuaRocks doc tests with flags", function()
diff --git a/spec/new_version_spec.lua b/spec/new_version_spec.lua
index 2274bce3..4e4d5d27 100644
--- a/spec/new_version_spec.lua
+++ b/spec/new_version_spec.lua
@@ -6,7 +6,8 @@ local testing_paths = test_env.testing_paths
 test_env.unload_luarocks()
 
 local extra_rocks = {
-   "/abelhas-1.0-1.rockspec"
+   "/abelhas-1.0-1.rockspec",
+   "/lpeg-0.12-1.rockspec"
 }
 
 describe("LuaRocks new_version tests #blackbox #b_new_version", function()
@@ -25,6 +26,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 +55,11 @@ 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--")
+      end)
    end)
 end)