hyraxAbif-0.2.4.5: test/Tests.hs

{-# LANGUAGE NoImplicitPrelude #-}

import           Verset
import qualified System.IO as IO
import           System.Exit (exitFailure)

import qualified AbifTests
import qualified FastaTests

main :: IO ()
main = do
  IO.hSetBuffering IO.stdout IO.LineBuffering
  IO.hSetBuffering IO.stderr IO.LineBuffering

  results <- sequenceA [ AbifTests.tests
                       , FastaTests.tests
                       ]

  if and results
    then pass
    else exitFailure