document-build-0.1.0.0: test/doctest_tests.hs

import Control.Monad (unless)
import System.Exit (ExitCode (..), exitFailure)
import System.Process (rawSystem)

main :: IO ()
main = do
  results <-
    mapM
      ( \f ->
          rawSystem
            "cabal"
            [ "exec"
            , "--"
            , "doctest"
            , "-isrc"
            , "-package=filepather"
            , f
            ]
      )
      [ "src/Document/Build/Build.hs"
      , "src/Document/Build/Documents.hs"
      , "src/Document/Build/Error.hs"
      , "src/Document/Build/File.hs"
      , "src/Document/Build/Git.hs"
      , "src/Document/Build/Hash.hs"
      , "src/Document/Build.hs"
      , "src/Document/Build/Image.hs"
      , "src/Document/Build/LibreOffice.hs"
      , "src/Document/Build/Operations.hs"
      , "src/Document/Build/Output.hs"
      , "src/Document/Build/Pandoc.hs"
      , "src/Document/Build/Context.hs"
      , "src/Document/Build/Pdf.hs"
      , "src/Document/Build/Project.hs"
      , "src/Document/Build/Replace.hs"
      , "src/Document/Build/Rules.hs"
      ]
  unless (all (== ExitSuccess) results) exitFailure