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
|
local _ = require "mason-core.functional"
local spy = require "luassert.spy"
describe("functional: logic", function()
it("should check that all_pass checks that all predicates pass", function()
local is_waldo = _.equals "waldo"
assert.is_true(_.all_pass { _.T, _.T, is_waldo, _.T } "waldo")
assert.is_false(_.all_pass { _.T, _.T, is_waldo, _.F } "waldo")
assert.is_false(_.all_pass { _.T, _.T, is_waldo, _.T } "waldina")
end)
it("should check that any_pass checks that any predicates pass", function()
local is_waldo = _.equals "waldo"
local is_waldina = _.equals "waldina"
local is_luigi = _.equals "luigi"
assert.is_true(_.any_pass { is_waldo, is_waldina } "waldo")
assert.is_false(_.any_pass { is_waldina, is_luigi } "waldo")
assert.is_true(_.any_pass { is_waldina, is_luigi } "waldina")
end)
it("should branch if_else", function()
local a = spy.new()
local b = spy.new()
_.if_else(_.T, a, b) "a"
_.if_else(_.F, a, b) "b"
assert.spy(a).was_called(1)
assert.spy(a).was_called_with "a"
assert.spy(b).was_called(1)
assert.spy(b).was_called_with "b"
end)
it("should flip booleans", function()
assert.is_true(_.is_not(false))
assert.is_false(_.is_not(true))
end)
it("should resolve correct cond", function()
local planetary_object = _.cond {
{
_.equals "Moon!",
_.format "to the %s",
},
{
_.equals "World!",
_.format "Hello %s",
},
}
assert.equals("Hello World!", planetary_object "World!")
assert.equals("to the Moon!", planetary_object "Moon!")
end)
it("should give complements", function()
assert.is_true(_.complement(_.is_nil, "not nil"))
assert.is_false(_.complement(_.is_nil, nil))
end)
it("should default to provided value", function()
local fortytwo = _.default_to(42)
assert.equals(42, fortytwo(nil))
assert.equals(1337, fortytwo(1337))
end)
end)
|
