21 lines
335 B
Idris
21 lines
335 B
Idris
module Tests
|
|
|
|
import Options
|
|
import TAP
|
|
import Tests.Lexer
|
|
import Tests.Equal
|
|
import System
|
|
|
|
|
|
allTests = [
|
|
Lexer.tests,
|
|
skip Equal.tests
|
|
]
|
|
|
|
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
|