From dae17093c3527dd2180db148bcaf597c880f288e Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Tue, 6 Jun 2017 21:18:54 -0700 Subject: [PATCH] lib: hide successful hunit tests, to avoid obscuring failed doctests (#568) --- hledger-lib/tests/hunittests.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/hledger-lib/tests/hunittests.hs b/hledger-lib/tests/hunittests.hs index f09f5e2aa..711c87d47 100644 --- a/hledger-lib/tests/hunittests.hs +++ b/hledger-lib/tests/hunittests.hs @@ -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'