diff options
Diffstat (limited to 'test/test-supple.sandbox.lua')
-rw-r--r-- | test/test-supple.sandbox.lua | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/test/test-supple.sandbox.lua b/test/test-supple.sandbox.lua new file mode 100644 index 0000000..c75e6fc --- /dev/null +++ b/test/test-supple.sandbox.lua @@ -0,0 +1,52 @@ +-- test/test-supple.lua +-- +-- Supple - Tests for the core module +-- +-- Copyright 2012 Daniel Silverstone <dsilvers@digital-scurf.org> +-- +-- For Licence terms, see COPYING +-- + +-- Step one, start coverage + +local luacov = require 'luacov' + +local sandbox = require 'supple.sandbox' + +local testnames = {} + +local real_assert = assert +local total_asserts = 0 +local function assert(...) + local retval = real_assert(...) + total_asserts = total_asserts + 1 + return retval +end + +local function add_test(suite, name, value) + rawset(suite, name, value) + testnames[#testnames+1] = name +end + +local suite = setmetatable({}, {__newindex = add_test}) + +function suite.try_run() + local ret = sandbox.run() + assert(ret == 0, "Run failed?") +end + +local count_ok = 0 +for _, testname in ipairs(testnames) do +-- print("Run: " .. testname) + local ok, err = xpcall(suite[testname], debug.traceback) + if not ok then + print(err) + print() + else + count_ok = count_ok + 1 + end +end + +print(tostring(count_ok) .. "/" .. tostring(#testnames) .. " [" .. tostring(total_asserts) .. "] OK") + +os.exit(count_ok == #testnames and 0 or 1) |