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'
+
+
+