quox/tests/Tests.idr

23 lines
387 B
Idris

module Tests
import Options
import TAP
import Tests.Lexer
import Tests.Parser
import Tests.Equal
import System
allTests = [
Lexer.tests,
Parser.tests,
Equal.tests
]
main = do
opts <- getTestOpts
go <- case opts.tapVersion of
"13" => pure TAP.mainFlat
"14" => pure TAP.main
_ => do putStrLn "unrecognised TAP version; use 13 or 14"; exitFailure
go allTests