import qualified Tests.Base as Base

import Control.Monad
import Test.HUnit
import System.Exit

main :: IO ()
main = do
  c <- runTestTT tests
  print c
  when ((errors c, failures c) /= (0, 0))
    exitFailure

tests :: Test
tests = test
  [ "base" ~: Base.tests
  ]