Doc tests

1 files changed, 18 insertions, 1 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()