mirror of
https://github.com/simonmichael/hledger.git
synced 2024-09-20 02:37:12 +03:00
lib: doctests: add --verbose and --slow flags to executable
--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)
This commit is contained in:
parent
8a4fb59aaa
commit
ed93807ee5
@ -156,6 +156,7 @@ tests:
|
|||||||
dependencies:
|
dependencies:
|
||||||
- Glob >=0.7
|
- Glob >=0.7
|
||||||
- doctest >=0.8
|
- doctest >=0.8
|
||||||
|
# doctest >=0.16.0 needed to show verbose progress output
|
||||||
# doctest with ghc 8.4 on mac requires a workaround:
|
# doctest with ghc 8.4 on mac requires a workaround:
|
||||||
# ~$ locate HSinteger-gmp-1.0.2.0.o
|
# ~$ locate HSinteger-gmp-1.0.2.0.o
|
||||||
# /Users/simon/.stack/programs/x86_64-osx/ghc-8.4.3/lib/ghc-8.4.2/integer-gmp-1.0.2.0/HSinteger-gmp-1.0.2.0.o
|
# /Users/simon/.stack/programs/x86_64-osx/ghc-8.4.3/lib/ghc-8.4.2/integer-gmp-1.0.2.0/HSinteger-gmp-1.0.2.0.o
|
||||||
|
@ -1,14 +1,20 @@
|
|||||||
{-# LANGUAGE PackageImports #-}
|
{-# LANGUAGE PackageImports #-}
|
||||||
|
|
||||||
import Data.List
|
import Data.List
|
||||||
|
import System.Environment
|
||||||
import "Glob" System.FilePath.Glob
|
import "Glob" System.FilePath.Glob
|
||||||
import Test.DocTest
|
import Test.DocTest
|
||||||
|
|
||||||
main = do
|
main = do
|
||||||
|
args <- getArgs
|
||||||
fs1 <- glob "Hledger/**/*.hs"
|
fs1 <- glob "Hledger/**/*.hs"
|
||||||
fs2 <- glob "Text/**/*.hs"
|
fs2 <- glob "Text/**/*.hs"
|
||||||
--fs3 <- glob "other/ledger-parse/**/*.hs"
|
--fs3 <- glob "other/ledger-parse/**/*.hs"
|
||||||
let fs = filter (not . isInfixOf "/.") $ ["Hledger.hs"] ++ fs1 ++ fs2
|
let fs = filter (not . isInfixOf "/.") $ ["Hledger.hs"] ++ fs1 ++ fs2
|
||||||
doctest $
|
doctest $
|
||||||
"--fast" : -- https://github.com/sol/doctest#a-note-on-performance
|
-- 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
|
fs
|
||||||
|
Loading…
Reference in New Issue
Block a user