quox/tests/src/Tests.idr

22 lines
335 B
Idris
Raw Normal View History

module Tests
import Options
import TAP
import Tests.Lexer
2022-04-27 14:06:39 -04:00
import Tests.Equal
import System
2022-04-27 14:06:39 -04:00
2022-05-02 11:13:13 -04:00
allTests = [
Lexer.tests,
skip Equal.tests
]
2022-04-27 14:06:39 -04:00
main = do
opts <- getTestOpts
go <- case opts.tapVersion of
"13" => pure TAP.mainFlat
"14" => pure TAP.main
_ => die "unrecognised TAP version; use 13 or 14"
go allTests