runtest.lua

-- test entry point

package.path = package.path .. ";/bin/?.lua"

function concat(...)
    local res = {}

    local args = {...}
    for i, arg in ipairs(args) do
        for j, v in ipairs(arg) do
            table.insert(res, v)
        end
    end

    return res
end

local tests = concat(
    fs.find("bin/*/*_test.lua"),
    fs.find("bin/*_test.lua")
)

local logger = fs.open("test-result", "w")
local buffer = ""

function print(obj)
    buffer = buffer .. obj
    logger.writeLine(obj)
end

for i, f in ipairs(tests) do
    for mod in string.gmatch(f, "(bin/.+_test).lua") do
        local result = require(mod)
        print("# test for " .. mod)
        print(result:resultText())
        print("-------")
        print(result:failuresText())
        print(result:succeededCount() .. " / " .. result:caseCount())
    end
end

-- textutils.pagedPrint(buffer)
logger.close()