tests/run.lua

-- Runs every tests/integration/*.lua file against a live server and

-- prints TAP output. Usage: lua5.4 tests/run.lua [name ...]

--

-- A test file returns an ordered list of { name, function (t) ... end } pairs.

local lfs = require "lfs";

local harness = require "harness";

local dir = "tests/integration";

local only = {};

for _, name in ipairs(arg) do only[name] = true; end

local files = {};

for file in lfs.dir(dir) do

	local name = file:match("^(.+)%.lua$");

	if name and (not next(only) or only[name]) then

		files[#files + 1] = name;

	end

end

table.sort(files);

local tests = {};

for _, name in ipairs(files) do

	for _, test in ipairs(dofile(dir.."/"..name..".lua")) do

		tests[#tests + 1] = { name = name..": "..test[1], run = test[2] };

	end

end

print("1.."..#tests);

local failures = 0;

for i, test in ipairs(tests) do

	local ok, err = harness.run(test.run);

	if ok then

		print(("ok %d - %s"):format(i, test.name));

	else

		failures = failures + 1;

		print(("not ok %d - %s"):format(i, test.name));

		print("# "..tostring(err):gsub("\n", "\n# "));

	end

end

print(("# %d/%d passed"):format(#tests - failures, #tests));

os.exit(failures == 0 and 0 or 1);