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 = {
   "/say-1.0-1.src.rock",
   "/say-1.2-1.src.rock"
}

describe("LuaRocks list tests #blackbox #b_list", function()

   before_each(function()
      test_env.setup_specs(extra_rocks)
   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)