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