diff options
author | Daniel Silverstone <dsilvers@digital-scurf.org> | 2012-07-29 18:20:05 +0100 |
---|---|---|
committer | Daniel Silverstone <dsilvers@digital-scurf.org> | 2012-07-29 18:20:05 +0100 |
commit | a5efe5373e9567b2cceec15e21d653af9419ee81 (patch) | |
tree | 90efba6c5c2e4bd2ac7b295c67b76e38ec88e4fc | |
parent | 6a5aada44bdd26d62d93de5310c81ad0d66f8bc9 (diff) | |
download | supple-a5efe5373e9567b2cceec15e21d653af9419ee81.tar.gz |
TEST: Test framework for comms and host modules
-rw-r--r-- | Makefile | 3 | ||||
-rw-r--r-- | test/test-supple.comms.lua | 50 | ||||
-rw-r--r-- | test/test-supple.host.lua | 50 |
3 files changed, 102 insertions, 1 deletions
@@ -1,6 +1,7 @@ all: test -LMODULES := supple supple.request supple.objects supple.sandbox +LMODULES := supple supple.request supple.objects supple.sandbox \ + supple.host supple.comms CMODULES := supple.capi MODULES := $(LMODULES) $(CMODULES) LUA_VER := 5.1 diff --git a/test/test-supple.comms.lua b/test/test-supple.comms.lua new file mode 100644 index 0000000..07c19d7 --- /dev/null +++ b/test/test-supple.comms.lua @@ -0,0 +1,50 @@ +-- test/test-supple.lua +-- +-- Supple - Tests for the comms module +-- +-- Copyright 2012 Daniel Silverstone <dsilvers@digital-scurf.org> +-- +-- For Licence terms, see COPYING +-- + +-- Step one, start coverage + +local luacov = require 'luacov' + +local comms = require 'supple.comms' + +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.always_works() +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) diff --git a/test/test-supple.host.lua b/test/test-supple.host.lua new file mode 100644 index 0000000..bc5943a --- /dev/null +++ b/test/test-supple.host.lua @@ -0,0 +1,50 @@ +-- test/test-supple.lua +-- +-- Supple - Tests for the host module +-- +-- Copyright 2012 Daniel Silverstone <dsilvers@digital-scurf.org> +-- +-- For Licence terms, see COPYING +-- + +-- Step one, start coverage + +local luacov = require 'luacov' + +local host = require 'supple.host' + +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.always_works() +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) |