casa-reoc-0.1.0.0: test/hedgehog_tests.hs

{-# LANGUAGE OverloadedStrings #-}

import Control.Monad (unless)
import Hedgehog (Group (..), checkParallel)
import OpticsTests (opticsTests)
import RenderTests (renderTests)
import System.Exit (exitFailure)
import System.IO (BufferMode (..), hSetBuffering, stderr, stdout)

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

  result <-
    and
      <$> mapM
        checkParallel
        [ Group "Optics" opticsTests
        , Group "Render" renderTests
        ]

  unless result exitFailure