Blame tests/HUnitTests.hs
|
Packit |
bc3140 |
-- HUnitTests.hs
|
|
Packit |
bc3140 |
--
|
|
Packit |
bc3140 |
-- This file is an entry point for running all of the tests.
|
|
Packit |
bc3140 |
|
|
Packit |
bc3140 |
module Main (main) where
|
|
Packit |
bc3140 |
|
|
Packit |
bc3140 |
import System.Exit
|
|
Packit |
bc3140 |
|
|
Packit |
bc3140 |
import Test.HUnit
|
|
Packit |
bc3140 |
import HUnitTestBase
|
|
Packit |
bc3140 |
import HUnitTestExtended
|
|
Packit |
bc3140 |
import TerminalTest
|
|
Packit |
bc3140 |
import Example ()
|
|
Packit |
bc3140 |
|
|
Packit |
bc3140 |
main :: IO ()
|
|
Packit |
bc3140 |
main = do
|
|
Packit |
bc3140 |
counts2 <- runTestTT (test [
|
|
Packit |
bc3140 |
baseTests,
|
|
Packit |
bc3140 |
extendedTests,
|
|
Packit |
bc3140 |
terminalTests
|
|
Packit |
bc3140 |
])
|
|
Packit |
bc3140 |
if (errors counts2 + failures counts2 == 0)
|
|
Packit |
bc3140 |
then exitSuccess
|
|
Packit |
bc3140 |
else exitFailure
|