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
|
local test_env = require("spec.util.test_env")
local testing_paths = test_env.testing_paths
test_env.unload_luarocks()
local fun = require("luarocks.fun")
describe("LuaRocks fun tests #unit", function()
local runner
setup(function()
runner = require("luacov.runner")
runner.init(testing_paths.testrun_dir .. "/luacov.config")
runner.tick = true
end)
teardown(function()
runner.shutdown()
end)
describe("fun.concat", function()
it("returns the concatenation of the two tables given as arguments", function()
local t1, t2
t1 = {1, 2, 3}
t2 = {4, 5, 6}
assert.same(fun.concat(t1, t2), {1, 2, 3, 4, 5, 6})
assert.same(fun.concat(t2, t1), {4, 5, 6, 1, 2, 3})
t1 = {1, 2, 3}
t2 = {}
assert.same(fun.concat(t1, t2), {1, 2, 3})
assert.same(fun.concat(t2, t1), {1, 2, 3})
t1 = {}
t2 = {}
assert.same(fun.concat(t1, t2), {})
end)
end)
describe("fun.contains", function()
it("checks whether a table contains a given value", function()
local t
t = {1, 2, 3}
assert.truthy(fun.contains(t, 1))
assert.falsy(fun.contains(t, 4))
t = {}
assert.falsy(fun.contains(t, 1))
end)
end)
local addOne = function(x) return x + 1 end
describe("fun.map", function()
it("applies a function to each element in the given table and returns the results in a new table", function()
local t
t = {1, 2, 3}
assert.same(fun.map(t, addOne), {2, 3, 4})
t = {}
assert.same(fun.map(t, addOne), {})
end)
end)
describe("fun.traverse", function()
it("recursively applies a function to each element in a given table and returns the results in a new table", function()
local t
t = {1, 2, {3, 4, {5, 6}}}
assert.same(fun.traverse(t, addOne), {2, 3, {4, 5, {6, 7}}})
t = {1, 2, {}, {1, {}, 2}}
assert.same(fun.traverse(t, addOne), {2, 3, {}, {2, {}, 3}})
end)
end)
end)
|