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
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
|
local tasty = require 'tasty'
local List = require 'pandoc.List'
local assert = tasty.assert
local test = tasty.test_case
local group = tasty.test_group
return {
group 'List as function' {
test('equivalent to List:new', function (x)
local new = List:new {'ramen'}
local list = List {'ramen'}
assert.are_same(new, list)
assert.are_equal(getmetatable(new), getmetatable(list))
end)
},
group 'clone' {
test('changing the clone does not affect original', function ()
local orig = List:new {23, 42}
local copy = orig:clone()
copy[1] = 5
assert.are_same({23, 42}, orig)
assert.are_same({5, 42}, copy)
end),
test('result is a list', function ()
local orig = List:new {23, 42}
assert.are_equal(List, getmetatable(orig:clone()))
end),
},
group 'extend' {
test('extends list with other list', function ()
local primes = List:new {2, 3, 5, 7}
primes:extend {11, 13, 17}
assert.are_same({2, 3, 5, 7, 11, 13, 17}, primes)
end)
},
group 'filter' {
test('keep elements for which property is truthy', function ()
local is_small_prime = function (x)
return List.includes({2, 3, 5, 7}, x)
end
local numbers = List:new {4, 7, 2, 9, 5, 11}
assert.are_same({7, 2, 5}, numbers:filter(is_small_prime))
end),
},
group 'find' {
test('returns element and index if found', function ()
local list = List:new {5, 23, 71}
local elem, idx = list:find(71)
assert.are_same(71, elem)
assert.are_same(3, idx)
end),
test('respects start index', function ()
local list = List:new {19, 23, 29, 71}
assert.are_equal(23, list:find(23, 1))
assert.are_equal(23, list:find(23, 2))
assert.is_nil(list:find(23, 3))
end),
test('returns nil if element not found', function ()
assert.is_nil((List:new {18, 20, 22, 0, 24}):find('0'))
end),
},
group 'find_if' {
test('returns element and index if found', function ()
local perm_prime = List:new {2, 3, 5, 7, 11, 13, 17, 31, 37, 71}
local elem, idx = perm_prime:find_if(function (x) return x >= 10 end)
assert.are_same(11, elem)
assert.are_same(5, idx)
end),
test('returns nil if element not found', function ()
local is_null = function (n) return List.includes({23,35,46,59}, n) end
assert.is_nil((List:new {18, 20, 22, 24, 27}):find_if(is_null))
end),
},
group 'includes' {
test('finds elements in list', function ()
local lst = List:new {'one', 'two', 'three'}
assert.is_truthy(lst:includes('one'))
assert.is_truthy(lst:includes('two'))
assert.is_truthy(lst:includes('three'))
assert.is_falsy(lst:includes('four'))
end)
},
group 'insert' {
test('insert value at end of list.', function ()
local count_norsk = List {'en', 'to', 'tre'}
count_norsk:insert('fire')
assert.are_same({'en', 'to', 'tre', 'fire'}, count_norsk)
end),
test('insert value in the middle of list.', function ()
local count_norsk = List {'fem', 'syv'}
count_norsk:insert(2, 'seks')
assert.are_same({'fem', 'seks', 'syv'}, count_norsk)
end)
},
group 'map' {
test('applies function to elements', function ()
local primes = List:new {2, 3, 5, 7}
local squares = primes:map(function (x) return x^2 end)
assert.are_same({4, 9, 25, 49}, squares)
end),
test('leaves original list unchanged', function ()
local primes = List:new {2, 3, 5, 7}
local squares = primes:map(function (x) return x^2 end)
assert.are_same({2, 3, 5, 7}, primes)
end)
},
group 'new' {
test('make table usable as list', function ()
local test = List:new{1, 1, 2, 3, 5}
assert.are_same(
{1, 1, 4, 9, 25},
test:map(function (x) return x^2 end)
)
end),
test('return empty list if no argument is given', function ()
assert.are_same({}, List:new())
end),
test('metatable of result is pandoc.List', function ()
local test = List:new{5}
assert.are_equal(List, getmetatable(test))
end)
},
group 'remove' {
test('remove value at end of list.', function ()
local understand = List {'jeg', 'forstår', 'ikke'}
local norsk_not = understand:remove()
assert.are_same({'jeg', 'forstår'}, understand)
assert.are_equal('ikke', norsk_not)
end),
test('remove value at beginning of list.', function ()
local count_norsk = List {'en', 'to', 'tre'}
count_norsk:remove(1)
assert.are_same({'to', 'tre'}, count_norsk)
end)
},
group 'sort' {
test('sort numeric list', function ()
local numbers = List {71, 5, -1, 42, 23, 0, 1}
numbers:sort()
assert.are_same({-1, 0, 1, 5, 23, 42, 71}, numbers)
end),
test('reverse-sort numeric', function ()
local numbers = List {71, 5, -1, 42, 23, 0, 1}
numbers:sort(function (x, y) return x > y end)
assert.are_same({71, 42, 23, 5, 1, 0, -1}, numbers)
end)
},
}
|
