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
|
local Set = require("pl.Set")
describe("pl.Set", function ()
local s = Set()
local s1_2 = Set({ 1, 2 })
local s1_2_3 = Set({ 1, 2, 3 })
local s1_3 = Set({ 1, 3 })
local s2 = Set({ 2 })
local s2_1 = Set({ 2, 1 })
local s2_3 = Set({ 2, 3 })
local s3 = Set({ 3 })
local sm = Set({ "foo", "bar" })
it("should produce a set object", function ()
assert.is.same({ true, true }, s1_2)
end)
it("should produce identical sets for any ordered input", function ()
assert.is.same(s1_2, s2_1)
end)
describe("should have an operator for", function ()
it("union", function ()
assert.is.same(s1_2_3, s1_2 + s3)
assert.is.same(s1_2_3, s1_2 + 3)
end)
it("intersection", function ()
assert.is.same(s2, s1_2 * s2_3)
end)
it("difference", function ()
assert.is.same(s2_1, s1_2_3 - s3)
assert.is.same(s2_3, s1_2_3 - 1)
end)
it("symmetric difference", function ()
assert.is.same(s1_3, s1_2 ^ s2_3)
end)
it("tostring", function ()
-- Cannot test multi-entry sets because of non-deterministic key order
assert.is.same('[2]', tostring(s2))
end)
end)
describe("should provide functions", function ()
it("isempty", function ()
assert.is.truthy(Set.isempty(s))
assert.is.falsy(Set.isempty(s3))
end)
it("set", function ()
local m = Set()
Set.set(m, 'foo', true)
m.bar = true
assert.is.same(m, sm)
assert.is_not.same(m, s1_2)
end)
end)
describe("should have a comparison operator for", function ()
it("supersets/subsets than", function ()
assert.is.truthy(s1_2 > s2)
assert.is.falsy(s1_3 > s2)
assert.is.falsy(s1_2 > s2_3)
assert.is.truthy(s1_2 < s1_2_3)
assert.is.falsy(s1_2_3 < s1_2)
end)
it("equality", function ()
assert.is.truthy(s1_2 == s2_1)
assert.is.falsy(s1_2 == s2_3)
end)
end)
end)
|
