File: HUnitTests.hs

package info (click to toggle)
haskell-hunit 1.3.1.2-3
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 176 kB
  • ctags: 1
  • sloc: haskell: 721; makefile: 3
file content (24 lines) | stat: -rw-r--r-- 477 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
-- HUnitTests.hs
--
-- This file is an entry point for running all of the tests.

module Main (main) where

import System.Exit

import Test.HUnit
import HUnitTestBase
import HUnitTestExtended
import TerminalTest
import Example ()

main :: IO ()
main = do
    counts2 <- runTestTT (test [
            baseTests,
            extendedTests,
            terminalTests
            ])
    if (errors counts2 + failures counts2 == 0)
        then exitSuccess
        else exitFailure