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
128
129
130
|
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)
describe("fun.filter", function()
it("filters the elements in the given table and returns the result in a new table", function()
local t
t = {1, 2, "a", "b", 3}
assert.same(fun.filter(t, function(x) return type(x) == "number" end), {1, 2, 3})
t = {2, 4, 7, 8}
assert.same(fun.filter(t, function(x) return x % 2 == 0 end), {2, 4, 8})
end)
end)
describe("fun.reverse_in", function()
it("reverses the elements in the given table and returns the result in a new table", function()
local t
t = {1, 2, 3, 4}
assert.same(fun.reverse_in(t), {4, 3, 2, 1})
t = {"a", "b", "c"}
assert.same(fun.reverse_in(t), {"c", "b", "a"})
end)
end)
describe("fun.sort_in", function()
it("sorts the elements in the given table and returns the result in a new table", function()
local t
t = {4, 2, 3, 1}
assert.same(fun.sort_in(t), {1, 2, 3, 4})
t = {"d", "a", "c", "b"}
assert.same(fun.sort_in(t), {"a", "b", "c", "d"})
end)
end)
describe("fun.flip", function()
it("returns a function behaving as the one given in the argument but with the arguments interchanged", function()
local a, b = fun.flip(function(a, b) return a, b end)(5, 6)
assert.same(a, 6)
assert.same(b, 5)
end)
end)
describe("fun.partial", function()
it("partially applies the given arguments to the given function and returns it", function()
local addOne = fun.partial(function(x, y) return x + y end, 1)
assert.same(addOne(1), 2)
assert.same(addOne(2), 3)
local addTwo = fun.partial(function(x, y, z) return x + y + z end, 1, 1)
assert.same(addTwo(1), 3)
assert.same(addTwo(2), 4)
local addThree = fun.partial(function(x, y, z, t, u) return x + y + z + t + u end, 1, 1, 1)
assert.same(addThree(1, 1), 5)
assert.same(addThree(1, 2), 6)
end)
end)
end)
|
