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