236 lines
6.8 KiB
Lua
236 lines
6.8 KiB
Lua
local _2afile_2a = "fnl/aniseed/test.fnl"
|
|
local _0_
|
|
do
|
|
local name_0_ = "conjure-macroexpand.aniseed.test"
|
|
local module_0_
|
|
do
|
|
local x_0_ = package.loaded[name_0_]
|
|
if ("table" == type(x_0_)) then
|
|
module_0_ = x_0_
|
|
else
|
|
module_0_ = {}
|
|
end
|
|
end
|
|
module_0_["aniseed/module"] = name_0_
|
|
module_0_["aniseed/locals"] = ((module_0_)["aniseed/locals"] or {})
|
|
do end (module_0_)["aniseed/local-fns"] = ((module_0_)["aniseed/local-fns"] or {})
|
|
do end (package.loaded)[name_0_] = module_0_
|
|
_0_ = module_0_
|
|
end
|
|
local autoload
|
|
local function _1_(...)
|
|
return (require("conjure-macroexpand.aniseed.autoload")).autoload(...)
|
|
end
|
|
autoload = _1_
|
|
local function _2_(...)
|
|
local ok_3f_0_, val_0_ = nil, nil
|
|
local function _2_()
|
|
return {autoload("conjure-macroexpand.aniseed.core"), autoload("conjure-macroexpand.aniseed.fs"), autoload("conjure-macroexpand.aniseed.nvim"), autoload("conjure-macroexpand.aniseed.string")}
|
|
end
|
|
ok_3f_0_, val_0_ = pcall(_2_)
|
|
if ok_3f_0_ then
|
|
_0_["aniseed/local-fns"] = {autoload = {a = "conjure-macroexpand.aniseed.core", fs = "conjure-macroexpand.aniseed.fs", nvim = "conjure-macroexpand.aniseed.nvim", str = "conjure-macroexpand.aniseed.string"}}
|
|
return val_0_
|
|
else
|
|
return print(val_0_)
|
|
end
|
|
end
|
|
local _local_0_ = _2_(...)
|
|
local a = _local_0_[1]
|
|
local fs = _local_0_[2]
|
|
local nvim = _local_0_[3]
|
|
local str = _local_0_[4]
|
|
local _2amodule_2a = _0_
|
|
local _2amodule_name_2a = "conjure-macroexpand.aniseed.test"
|
|
do local _ = ({nil, _0_, nil, {{}, nil, nil, nil}})[2] end
|
|
local ok_3f
|
|
do
|
|
local v_0_
|
|
do
|
|
local v_0_0
|
|
local function ok_3f0(_3_)
|
|
local _arg_0_ = _3_
|
|
local tests = _arg_0_["tests"]
|
|
local tests_passed = _arg_0_["tests-passed"]
|
|
return (tests == tests_passed)
|
|
end
|
|
v_0_0 = ok_3f0
|
|
_0_["ok?"] = v_0_0
|
|
v_0_ = v_0_0
|
|
end
|
|
local t_0_ = (_0_)["aniseed/locals"]
|
|
t_0_["ok?"] = v_0_
|
|
ok_3f = v_0_
|
|
end
|
|
local display_results
|
|
do
|
|
local v_0_
|
|
do
|
|
local v_0_0
|
|
local function display_results0(results, prefix)
|
|
do
|
|
local _let_0_ = results
|
|
local assertions = _let_0_["assertions"]
|
|
local assertions_passed = _let_0_["assertions-passed"]
|
|
local tests = _let_0_["tests"]
|
|
local tests_passed = _let_0_["tests-passed"]
|
|
local _3_
|
|
if ok_3f(results) then
|
|
_3_ = "OK"
|
|
else
|
|
_3_ = "FAILED"
|
|
end
|
|
a.println((prefix .. " " .. _3_ .. " " .. tests_passed .. "/" .. tests .. " tests and " .. assertions_passed .. "/" .. assertions .. " assertions passed"))
|
|
end
|
|
return results
|
|
end
|
|
v_0_0 = display_results0
|
|
_0_["display-results"] = v_0_0
|
|
v_0_ = v_0_0
|
|
end
|
|
local t_0_ = (_0_)["aniseed/locals"]
|
|
t_0_["display-results"] = v_0_
|
|
display_results = v_0_
|
|
end
|
|
local run
|
|
do
|
|
local v_0_
|
|
do
|
|
local v_0_0
|
|
local function run0(mod_name)
|
|
local mod = package.loaded[mod_name]
|
|
local tests = (a["table?"](mod) and mod["aniseed/tests"])
|
|
if a["table?"](tests) then
|
|
local results = {["assertions-passed"] = 0, ["tests-passed"] = 0, assertions = 0, tests = #tests}
|
|
for label, f in pairs(tests) do
|
|
local test_failed = false
|
|
a.update(results, "tests", a.inc)
|
|
do
|
|
local prefix = ("[" .. mod_name .. "/" .. label .. "]")
|
|
local fail
|
|
local function _3_(desc, ...)
|
|
test_failed = true
|
|
local function _4_(...)
|
|
if desc then
|
|
return (" (" .. desc .. ")")
|
|
else
|
|
return ""
|
|
end
|
|
end
|
|
return a.println((str.join({prefix, " ", ...}) .. _4_(...)))
|
|
end
|
|
fail = _3_
|
|
local begin
|
|
local function _4_()
|
|
return a.update(results, "assertions", a.inc)
|
|
end
|
|
begin = _4_
|
|
local pass
|
|
local function _5_()
|
|
return a.update(results, "assertions-passed", a.inc)
|
|
end
|
|
pass = _5_
|
|
local t
|
|
local function _6_(e, r, desc)
|
|
begin()
|
|
if (e == r) then
|
|
return pass()
|
|
else
|
|
return fail(desc, "Expected '", a["pr-str"](e), "' but received '", a["pr-str"](r), "'")
|
|
end
|
|
end
|
|
local function _7_(r, desc)
|
|
begin()
|
|
if r then
|
|
return pass()
|
|
else
|
|
return fail(desc, "Expected truthy result but received '", a["pr-str"](r), "'")
|
|
end
|
|
end
|
|
local function _8_(e, r, desc)
|
|
begin()
|
|
local se = a["pr-str"](e)
|
|
local sr = a["pr-str"](r)
|
|
if (se == sr) then
|
|
return pass()
|
|
else
|
|
return fail(desc, "Expected (with pr) '", se, "' but received '", sr, "'")
|
|
end
|
|
end
|
|
t = {["="] = _6_, ["ok?"] = _7_, ["pr="] = _8_}
|
|
local _9_, _10_ = nil, nil
|
|
local function _11_()
|
|
return f(t)
|
|
end
|
|
_9_, _10_ = pcall(_11_)
|
|
if ((_9_ == false) and (nil ~= _10_)) then
|
|
local err = _10_
|
|
fail("Exception: ", err)
|
|
end
|
|
end
|
|
if not test_failed then
|
|
a.update(results, "tests-passed", a.inc)
|
|
end
|
|
end
|
|
return display_results(results, ("[" .. mod_name .. "]"))
|
|
end
|
|
end
|
|
v_0_0 = run0
|
|
_0_["run"] = v_0_0
|
|
v_0_ = v_0_0
|
|
end
|
|
local t_0_ = (_0_)["aniseed/locals"]
|
|
t_0_["run"] = v_0_
|
|
run = v_0_
|
|
end
|
|
local run_all
|
|
do
|
|
local v_0_
|
|
do
|
|
local v_0_0
|
|
local function run_all0()
|
|
local function _3_(totals, results)
|
|
for k, v in pairs(results) do
|
|
totals[k] = (v + totals[k])
|
|
end
|
|
return totals
|
|
end
|
|
return display_results(a.reduce(_3_, {["assertions-passed"] = 0, ["tests-passed"] = 0, assertions = 0, tests = 0}, a.filter(a["table?"], a.map(run, a.keys(package.loaded)))), "[total]")
|
|
end
|
|
v_0_0 = run_all0
|
|
_0_["run-all"] = v_0_0
|
|
v_0_ = v_0_0
|
|
end
|
|
local t_0_ = (_0_)["aniseed/locals"]
|
|
t_0_["run-all"] = v_0_
|
|
run_all = v_0_
|
|
end
|
|
local suite
|
|
do
|
|
local v_0_
|
|
do
|
|
local v_0_0
|
|
local function suite0()
|
|
do
|
|
local sep = fs["path-sep"]
|
|
local function _3_(path)
|
|
return require(string.gsub(string.match(path, ("^test" .. sep .. "fnl" .. sep .. "(.-).fnl$")), sep, "."))
|
|
end
|
|
a["run!"](_3_, nvim.fn.globpath(("test" .. sep .. "fnl"), "**/*-test.fnl", false, true))
|
|
end
|
|
if ok_3f(run_all()) then
|
|
return nvim.ex.q()
|
|
else
|
|
return nvim.ex.cq()
|
|
end
|
|
end
|
|
v_0_0 = suite0
|
|
_0_["suite"] = v_0_0
|
|
v_0_ = v_0_0
|
|
end
|
|
local t_0_ = (_0_)["aniseed/locals"]
|
|
t_0_["suite"] = v_0_
|
|
suite = v_0_
|
|
end
|
|
return nil
|