test/Main.hs


1
2
3
4
5
6
7
8

import Language (language)
import System.Exit
import Test.HUnit

main :: IO Counts
main = do
  counts <- runTestTT $ test language
  if errors counts + failures counts == 0 then exitSuccess else exitFailure