perga/tests/Tests.hs

module Main where

import qualified ExprTests as E
import qualified ParserTests as P
import qualified System.Exit as Exit
import Test.HUnit

tests :: Test
tests = TestList [ TestLabel "ExprTests" E.tests
                 , TestLabel "ParserTests" P.tests]

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