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
|
function test_remove_if(t)
t:are_equal(table.remove_if({1, 2, 3, 4, 5, 6}, function (i, v) return (v % 2) == 0 end), {1, 3, 5})
t:are_equal(table.remove_if({a = 1, b = 2, c = 3}, function (i, v) return (v % 2) == 0 end), {a = 1, c = 3})
end
function test_find_if(t)
t:are_equal(table.find_if({1, 2, 3, 4, 5, 6}, function (i, v) return (v % 2) == 0 end), {2, 4, 6})
t:are_equal(table.find_first_if({1, 2, 3, 4, 5, 6}, function (i, v) return (v % 2) == 0 end), 2)
t:are_equal(table.find({1, 2, 4, 4, 5, 6}, 4), {3, 4})
t:are_equal(table.find_first({1, 2, 3, 4, 5, 6}, 4), 4)
end
function test_wrap(t)
t:are_equal(table.wrap(1), {1})
t:are_equal(table.wrap(nil), {})
t:are_equal(table.wrap({}), {})
t:are_equal(table.wrap({1}), {1})
t:are_equal(table.wrap({{}}), {{}})
local a = table.wrap_lock({1})
t:are_equal(table.wrap({a}), {a})
end
function test_unwrap(t)
t:are_equal(table.unwrap(1), 1)
t:are_equal(table.unwrap(nil), nil)
t:are_equal(table.unwrap({}), {})
t:are_equal(table.unwrap({1}), 1)
t:are_equal(table.unwrap({{}}), {})
local a = table.wrap_lock({1})
t:are_equal(table.unwrap(a), a)
end
function test_orderkeys(t)
-- sort by modulo 2 then from the smallest to largest
local f = function(a, b)
if a % 2 == 0 and b % 2 ~= 0 then
return true
elseif b % 2 == 0 and a % 2 ~= 0 then
return false
end
return a < b
end
t:are_equal(table.orderkeys({[2] = 2, [1] = 1, [4] = 4, [3] = 3}, f), {2, 4, 1, 3})
t:are_equal(table.orderkeys({[1] = 1, [2] = 2, [3] = 3, [4] = 4}), {1, 2 , 3, 4})
end
|
