ptera-0.1.0.0: test/doctest/Doctest.hs

module Main where

import           Prelude

import qualified Build_doctests     as BuildF
import qualified Control.Exception  as Exception
import           Control.Monad
import qualified System.Environment as IO
import qualified System.IO          as IO
import qualified Test.DocTest       as DocTest

main :: IO ()
main = forM_ BuildF.components \(BuildF.Component name flags pkgs sources) -> do
  putStrLn "============================================="
  print name
  putStrLn "---------------------------------------------"
  IO.hFlush IO.stdout
  let args = flags ++ pkgs ++ sources
  IO.unsetEnv "GHC_ENVIRONMENT"
  DocTest.doctest args `Exception.catch`
    \(e :: Exception.SomeException) -> print e
  putStrLn "============================================="
  IO.hFlush IO.stdout