test/test-lace.lex.lua


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

-- test/test-lex.lua
--
-- Lua Access Control Engine -- Tests for the lexer
--
-- Copyright 2012 Daniel Silverstone <dsilvers@digital-scurf.org>
--
-- For Licence terms, see COPYING
--

-- Step one, start coverage

local luacov = require 'luacov'

local lex = require 'lace.lex'

local suite = {}

function suite.test_01_empty_string()
end

local testnames = {}
for k in pairs(suite) do
   testnames[#testnames+1] = k
end
table.sort(testnames)

local count_ok = 0
for _, testname in ipairs(testnames) do
   local ok, err = xpcall(suite[testname], debug.traceback)
   if not ok then
      print(testname .. ":")
      print(err)
      print()
   else
      count_ok = count_ok + 1
   end
end

print("Lex: " .. tostring(count_ok) .. "/" .. tostring(#testnames) .. " OK")