perga/tests/Tests.hs

module Main where

import qualified CheckTests as C
import qualified ExprTests as E
import qualified System.Exit as Exit
import Test.HUnit

tests :: Test
tests =
    TestList
        [ TestLabel "ExprTests" E.tests
        , TestLabel "CheckTests" C.tests
        ]

main :: IO ()
main = do
    result <- runTestTT tests
    if failures result > 0 then Exit.exitFailure else Exit.exitSuccess