2022-04-26 12:17:59 -04:00
|
|
|
module Tests
|
|
|
|
|
|
2022-05-01 18:19:09 -04:00
|
|
|
import Options
|
|
|
|
|
import TAP
|
|
|
|
|
import Tests.Lexer
|
2022-04-27 14:06:39 -04:00
|
|
|
import Tests.Equal
|
2022-05-01 18:19:09 -04:00
|
|
|
import System
|
2022-04-27 14:06:39 -04:00
|
|
|
|
2022-04-26 12:17:59 -04:00
|
|
|
|
2022-05-01 18:19:09 -04:00
|
|
|
allTests = [Equal.tests]
|
2022-04-27 14:06:39 -04:00
|
|
|
|
2022-05-01 18:19:09 -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
|
