filepather-0.7.0.0: test/hedgehog_tests.hs

{-# LANGUAGE OverloadedStrings #-}

import Control.Monad (unless)
import FilePatherTests (filePatherTests)
import Hedgehog (Group (..), checkParallel)
import System.Exit (exitFailure)
import System.IO (BufferMode (..), hSetBuffering, stderr, stdout)
import TrackedTests (trackedTests)

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

  result <-
    and
      <$> mapM
        checkParallel
        [ Group "FilePather" filePatherTests
        , Group "Tracked" trackedTests
        ]

  unless result exitFailure