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
|
package.path = '../../lua/?.lua;'..package.path
dofile("../../lua/vis.lua")
local function str(e)
if type(e) == "string" then
if e == "" then
return "an empty string"
else
return '"'..e..'"'
end
else
return tostring(e)
end
end
local function same(a, b)
if type(a) ~= type(b) then
return string.format("expected %s - got %s", type(a), type(b))
end
if type(a) ~= 'table' then
if a == b then
return nil
else
return string.format("expected %s - got %s", str(a), str(b))
end
end
if #a ~= #b then
return string.format("expected table of size %d got %d", #a, #b)
end
for k, v in pairs(a) do
if b[k] == nil then
return string.format("expected %s got nil", str(k))
end
r = same(v, b[k])
if r ~= nil then
return r
end
end
return nil
end
local msg = ""
function describe(s, fn)
group = {
before_each = function()
end,
tests = {},
after_each = function()
end,
}
function before_each(fn) group.before_each = fn end
function after_each(fn) group.after_each = fn end
function it(s, fn)
table.insert(group.tests, {
s = s,
fn = fn,
assertions = {},
})
end
fn()
for j, t in pairs(group.tests) do
group.before_each()
assert = {
has_error = function(fn)
local status, err = pcall(fn)
if err == nil then
msg = msg..string.format("%s %s: expected error\n", s, t.s)
end
end,
truthy = function(stat)
if not (stat) then
msg = msg..string.format("%s %s: expected to be truthy: %s\n", s, t.s, str(stat))
end
end,
falsy = function(stat)
if (stat) then
msg = msg..string.format("%s %s: expected to be falsy: %s\n", s, t.s, str(stat))
end
end,
are = {
equal = function(a, b)
if a ~= b then
msg = msg..string.format("%s %s: expected %s - got %s\n", s, t.s, str(a), str(b))
end
end,
same = function(a, b)
r = same(a, b) -- same returns a string which is a reason why a & b are not equal
if r ~= nil then
msg = msg..string.format("%s %s: %s\n", s, t.s, r)
end
end,
},
}
t.fn()
group.after_each()
end
end
vis.events.subscribe(vis.events.WIN_OPEN, function(win)
-- test.in file passed to vis
local in_file = win.file.name
if not in_file then
return
end
-- use the corresponding test.lua file
lua_file = string.gsub(in_file, '%.in$', '.lua')
local ok, err = pcall(dofile, lua_file)
if not ok then
print(tostring(err))
vis:exit(2) -- ERROR
elseif msg ~= "" then
io.write(msg) -- no newline
vis:exit(1) -- FAIL
else
vis:exit(0) -- SUCCESS
end
end)
|
