1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
local test_env = require("test/test_environment")
local lfs = require("lfs")
local run = test_env.run
local testing_paths = test_env.testing_paths
local env_variables = test_env.env_variables
describe("Basic tests #blackbox #b_util", function()
before_each(function()
test_env.setup_specs()
end)
it("LuaRocks version", function()
assert.is_true(run.luarocks_bool("--version"))
end)
it("LuaRocks unknown command", function()
assert.is_false(run.luarocks_bool("unknown_command"))
end)
it("LuaRocks arguments fail", function()
assert.is_false(run.luarocks_bool("--porcelain=invalid"))
assert.is_false(run.luarocks_bool("--invalid-flag"))
assert.is_false(run.luarocks_bool("--server"))
assert.is_false(run.luarocks_bool("--server --porcelain"))
assert.is_false(run.luarocks_bool("--invalid-flag=abc"))
assert.is_false(run.luarocks_bool("invalid=5"))
end)
it("LuaRocks execute from not existing directory #unix", function()
local main_path = lfs.currentdir()
assert.is_true(lfs.mkdir("idontexist"))
assert.is_true(lfs.chdir("idontexist"))
local delete_path = lfs.currentdir()
assert.is_true(os.remove(delete_path))
local output = run.luarocks("")
assert.is.falsy(output:find("the Lua package manager"))
assert.is_true(lfs.chdir(main_path))
output = run.luarocks("")
assert.is.truthy(output:find("the Lua package manager"))
end)
it("LuaRocks timeout", function()
assert.is.truthy(run.luarocks("--timeout=10"))
end)
it("LuaRocks timeout invalid", function()
assert.is_false(run.luarocks_bool("--timeout=abc"))
end)
it("LuaRocks only server=testing", function()
assert.is.truthy(run.luarocks("--only-server=testing"))
end)
it("LuaRocks test site config", function()
local scname = "src/luarocks/core/site_config_"..test_env.lua_version:gsub("%.", "_")..".lua"
assert.is.truthy(os.rename(scname, scname..".tmp"))
assert.is.falsy(lfs.attributes(scname))
assert.is.truthy(lfs.attributes(scname..".tmp"))
assert.is.truthy(run.luarocks(""))
assert.is.truthy(os.rename(scname..".tmp", scname))
assert.is.falsy(lfs.attributes(scname..".tmp"))
assert.is.truthy(lfs.attributes(scname))
end)
end)
test_env.unload_luarocks()
local util = require("luarocks.util")
describe("Luarocks util test #whitebox #w_util", function()
describe("util.sortedpairs", function()
local function collect(iter, state, var)
local collected = {}
while true do
local returns = {iter(state, var)}
if returns[1] == nil then
return collected
else
table.insert(collected, returns)
var = returns[1]
end
end
end
it("default sort", function()
assert.are.same({}, collect(util.sortedpairs({})))
assert.are.same({
{1, "v1"},
{2, "v2"},
{3, "v3"},
{"bar", "v5"},
{"foo", "v4"}
}, collect(util.sortedpairs({"v1", "v2", "v3", foo = "v4", bar = "v5"})))
end)
it("sort by function", function()
local function compare(a, b) return a > b end
assert.are.same({}, collect(util.sortedpairs({}, compare)))
assert.are.same({
{3, "v3"},
{2, "v2"},
{1, "v1"}
}, collect(util.sortedpairs({"v1", "v2", "v3"}, compare)))
end)
it("sort by priority table", function()
assert.are.same({}, collect(util.sortedpairs({}, {"k1", "k2"})))
assert.are.same({
{"k3", "v3"},
{"k2", "v2", {"sub order"}},
{"k1", "v1"},
{"k4", "v4"},
{"k5", "v5"},
}, collect(util.sortedpairs({
k1 = "v1", k2 = "v2", k3 = "v3", k4 = "v4", k5 = "v5"
}, {"k3", {"k2", {"sub order"}}, "k1"})))
end)
end)
end)
|
