document-build-0.1.0.0: test/hedgehog_tests.hs

{-# LANGUAGE OverloadedStrings #-}

import BuildTests (buildTests)
import Control.Monad (unless)
import Hedgehog (Group (..), checkParallel)
import OutputTests (outputTests)
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 "Document.Build" buildTests
        , Group "Output" outputTests
        ]

  unless result exitFailure