Fail when given an invalid tree.

2 files changed, 3 insertions, 0 deletions

diff --git a/test/testing.lua b/test/testing.lua
index b34e9ab2..8d8b3af2 100644
--- a/test/testing.lua
+++ b/test/testing.lua
@@ -112,6 +112,7 @@ local tests = {
    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,
+   fail_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"
diff --git a/test/testing.sh b/test/testing.sh
index 45f16c0c..af2ec45e 100755
--- a/test/testing.sh
+++ b/test/testing.sh
@@ -367,6 +367,8 @@ fail_lint_invalid() { $luarocks lint invalid; }
 fail_show_invalid() { $luarocks show invalid; }
 fail_new_version_invalid() { $luarocks new_version invalid; }
 
+fail_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; }