14 lines
296 B
Haskell
14 lines
296 B
Haskell
|
module Main where
|
||
|
|
|
||
|
|
import qualified ExprTests as E
|
||
|
|
import qualified System.Exit as Exit
|
||
|
|
import Test.HUnit
|
||
|
|
|
||
|
|
tests :: Test
|
||
|
|
tests = TestList [TestLabel "ExprTests" E.tests]
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = do
|
||
|
|
result <- runTestTT tests
|
||
|
|
if failures result > 0 then Exit.exitFailure else Exit.exitSuccess
|