hedgehog-0.6.1: test/test.hs

import           Control.Monad (unless)
import           System.IO (BufferMode(..), hSetBuffering, stdout, stderr)
import           System.Exit (exitFailure)

import qualified Test.Hedgehog.Seed
import qualified Test.Hedgehog.Text


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

  results <- sequence [
      Test.Hedgehog.Text.tests
    , Test.Hedgehog.Seed.tests
    ]

  unless (and results) $
    exitFailure