ed93807ee5
--slow turns off doctest's --fast flag, which skips reloading between tests. --verbose shows progress output as tests are run, if doctest 0.16.0+ is installed (and I believe will be harmless otherwise)
21 lines
650 B
Haskell
21 lines
650 B
Haskell
{-# LANGUAGE PackageImports #-}
|
|
|
|
import Data.List
|
|
import System.Environment
|
|
import "Glob" System.FilePath.Glob
|
|
import Test.DocTest
|
|
|
|
main = do
|
|
args <- getArgs
|
|
fs1 <- glob "Hledger/**/*.hs"
|
|
fs2 <- glob "Text/**/*.hs"
|
|
--fs3 <- glob "other/ledger-parse/**/*.hs"
|
|
let fs = filter (not . isInfixOf "/.") $ ["Hledger.hs"] ++ fs1 ++ fs2
|
|
doctest $
|
|
-- show verbose progress output
|
|
(if "--verbose" `elem` args then ("--verbose" :) else id) $
|
|
-- don't reload environment per test (opposite of doctest's --fast,
|
|
-- https://github.com/sol/doctest#a-note-on-performance)
|
|
(if "--slow" `elem` args then id else ("--fast" :)) $
|
|
fs
|