filepather-0.7.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"
            , f
            ]
      )
      [ "src/System/FilePather/Combinators.hs"
      , "src/System/FilePather/FilePather.hs"
      , "src/System/FilePather/Trail.hs"
      , "src/System/FilePather/Tracked.hs"
      , "src/System/FilePather.hs"
      ]
  unless (all (== ExitSuccess) results) exitFailure