quox/tests/Tests.idr

26 lines
429 B
Idris
Raw Normal View History

module Tests
import Options
import TAP
2022-05-10 16:40:44 -04:00
import Tests.CharExtra
import Tests.Lexer
2022-05-06 15:58:32 -04:00
import Tests.Parser
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 = [
2022-05-10 16:40:44 -04:00
CharExtra.tests,
2022-05-02 11:13:13 -04:00
Lexer.tests,
2022-05-06 15:58:32 -04:00
Parser.tests,
Equal.tests
2022-05-02 11:13:13 -04:00
]
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
2022-05-04 11:09:49 -04:00
_ => do putStrLn "unrecognised TAP version; use 13 or 14"; exitFailure
go allTests