LibZip-0.1.0: runTests.hs

import Tests.LegacyTests (legacyTests)
import Tests.MonadicTests (monadicTests)

import System.Exit
import Test.HUnit

allTests = TestList
  [ "Legacy API" ~: legacyTests
  , "Monadic API" ~: monadicTests
  ]

main = do
  result <- runTestTT allTests
  if (errors result + failures result) > 0
    then exitFailure
    else exitSuccess