1 files changed, 41 insertions, 0 deletions

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)