20 lines
468 B
Haskell
20 lines
468 B
Haskell
module Main where
|
|
|
|
import qualified CheckTests as C
|
|
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
|
|
, TestLabel "CheckTests" C.tests
|
|
]
|
|
|
|
main :: IO ()
|
|
main = do
|
|
result <- runTestTT tests
|
|
if failures result > 0 then Exit.exitFailure else Exit.exitSuccess
|