From 85e5bd0978c744a260c1ca162b8162c4e905c1f9 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Fri, 9 Jun 2017 18:26:33 -0700 Subject: [PATCH] cli: hide successes in hledger package's tests output, also --- hledger/test/test.hs | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/hledger/test/test.hs b/hledger/test/test.hs index 515366b34..01c9b6e8d 100644 --- a/hledger/test/test.hs +++ b/hledger/test/test.hs @@ -1,6 +1,13 @@ import Hledger.Cli (tests_Hledger_Cli) +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_Cli +main = do + args <- getArgs + let args' = "--hide-successes" : args + defaultMainWithArgs (hUnitTestToTests tests_Hledger_Cli) args' + + +