stim-parser-0.1.0.0: test/Main.hs

module Main where

import Test.HUnit
import System.Exit (exitFailure, exitSuccess)

import qualified Test.Expr as Expr
import qualified Test.ParseUtils as ParseUtils
import qualified Test.Parse as Parse
import qualified Test.Trans as Trans

main :: IO ()
main = do
  counts <- runTestTT tests
  if errors counts + failures counts == 0
    then exitSuccess
    else exitFailure

tests :: Test
tests = TestList
  [ Expr.tests
  , ParseUtils.tests
  , Parse.tests
  , Trans.tests
  ]