bricks-0.0.0.1: test/Bricks/Test/Hedgehog.hs

{-# LANGUAGE OverloadedStrings #-}

module Bricks.Test.Hedgehog
  ( runTests
  ) where

-- Base
import           Control.Monad (unless)
import           Data.Foldable (for_)
import qualified System.Exit   as Exit
import qualified System.IO     as IO

-- Hedgehog
import qualified Hedgehog

runTests :: Hedgehog.Group -> IO ()
runTests tests =
  do
    for_ [IO.stdout, IO.stderr] $ \h -> do
      IO.hSetEncoding h IO.utf8
      IO.hSetBuffering h IO.LineBuffering
    success <- Hedgehog.checkParallel tests
    unless success Exit.exitFailure