vis

visrc.lua

(2567B)

 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)