test.lua

-- top-level test module for vstruct
-- run with 'lua test.lua' or, if vstruct is installed, with
-- 'lua -lvstruct.test -e ""'

-- Runs a "sensible default" set of tests against the vstruct module. Exits
-- cleanly if all of them passed; if any failed, reports the failed tests
-- on stdout and then raises an error.

if arg and arg[1] == "DISABLE_FREXP" then
  table.remove(arg, 1)
  math.frexp = nil
end

local ok,test = pcall(require, "vstruct.test.common")

-- maybe we aren't installed, and just need to deduce a custom package.path
-- from the location of this file
-- if arg is undefined, we were loaded with require and can draw no conclusions
if ok then
  -- loaded successfully, no error handling needed
elseif arg then
  -- see if we can figure out where we were loaded from
  local libdir = arg[0]:gsub("[^/\\]+$", "").."../"
  package.path = package.path..";"..libdir.."?.lua;"..libdir.."?/init.lua"

  -- clear "failure" entries in package.path
  package.loaded["vstruct.test.common"] = nil
  package.loaded["vstruct"] = nil

  -- retry
  test = require "vstruct.test.common"
else
  error(test)
end

require "vstruct.test.basic"
require "vstruct.test.compat1x"
require "vstruct.test.fp-bigendian"
require "vstruct.test.fp-littleendian"
require "vstruct.test.error"
require "vstruct.test.frexp"
require "vstruct.test.regression"

if arg and #arg > 0 then
  require "vstruct.test.struct-test-gen"
else
  arg = { "NROF_TESTS=2^10", "read", "write" }
  require "vstruct.test.struct-test-gen"
end

if test.report() > 0 then
  error("Some test cases failed; see preceding output for details.")
end