module Main where import System.Exit ( exitFailure, exitSuccess ) import Test.HUnit import TestHpcCoverallsLix import TestHpcCoverallsUtil allTests :: [Test] allTests = [testLix, testUtil] main :: IO Counts main = do cnt <- runTestTT (test allTests) if errors cnt + failures cnt == 0 then exitSuccess else exitFailure