slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cli: hide successes in hledger package's tests output, also

Browse Source
This commit is contained in:
Simon Michael 2017-06-09 18:26:33 -07:00
parent 54d33ce028
commit 85e5bd0978
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
hledger/test/test.hs
View File

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