lib: hide successful hunit tests, to avoid obscuring failed doctests (#568)
This commit is contained in:
parent
da9aa81ec7
commit
dae17093c3
@ -1,6 +1,10 @@
|
|||||||
import Hledger (tests_Hledger)
|
import Hledger (tests_Hledger)
|
||||||
|
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
|
main = do
|
||||||
|
args <- getArgs
|
||||||
|
let args' = "--hide-successes" : args
|
||||||
|
defaultMainWithArgs (hUnitTestToTests tests_Hledger) args'
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user