18 lines
311 B
Idris
18 lines
311 B
Idris
module Tests
|
|
|
|
import Options
|
|
import TAP
|
|
import Tests.Lexer
|
|
import Tests.Equal
|
|
import System
|
|
|
|
|
|
allTests = [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
|