either-n-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"
            , f
            ]
      )
      [ "src/Data/Either3.hs"
      , "src/Data/Either3/Either3.hs"
      , "src/Data/Either3/Either3T.hs"
      , "src/Data/Lens/Injection/Generic.hs"
      , "src/Data/Lens/Injection/Injection1.hs"
      , "src/Data/Lens/Injection/Injection2.hs"
      , "src/Data/Lens/Injection/Injection3.hs"
      , "src/Data/Lens/Injection/Injection4.hs"
      , "src/Data/Lens/Injection/Injection5.hs"
      , "src/Data/Lens/Injection/Injection6.hs"
      , "src/Data/Lens/Injection/Injection7.hs"
      , "src/Data/Lens/Injection/Injection8.hs"
      , "src/Data/Lens/Injection/Injection9.hs"
      , "src/Data/Lens/Injection/Injection10.hs"
      , "src/Data/Lens/Injection/Injection11.hs"
      , "src/Data/Lens/Injection/Injection12.hs"
      , "src/Data/Lens/Injection/Injection13.hs"
      , "src/Data/Lens/Injection/Injection14.hs"
      , "src/Data/Lens/Injection/Injection15.hs"
      , "src/Data/Lens/Injection/Injection16.hs"
      , "src/Data/Lens/Injection/Injection17.hs"
      , "src/Data/Lens/Injection/Injection18.hs"
      , "src/Data/Lens/Injection/Injection19.hs"
      ]
  unless (all (== ExitSuccess) results) exitFailure