lib: hide successful hunit tests, to avoid obscuring failed doctests (#568)

This commit is contained in:
Simon Michael 2017-06-06 21:18:54 -07:00
parent da9aa81ec7
commit dae17093c3

View File

@ -1,6 +1,10 @@
import Hledger (tests_Hledger)
import System.Environment (getArgs)
import Test.Framework.Providers.HUnit (hUnitTestToTests)
import Test.Framework.Runners.Console (defaultMain)
import Test.Framework.Runners.Console (defaultMainWithArgs)
main :: IO ()
main = defaultMain $ hUnitTestToTests tests_Hledger
main = do
args <- getArgs
let args' = "--hide-successes" : args
defaultMainWithArgs (hUnitTestToTests tests_Hledger) args'