require testpack; give better --verbose test output

Tests.hs

@@ -7,6 +7,7 @@ where
 import qualified Data.Map as Map
 import Text.ParserCombinators.Parsec
 import Test.HUnit
+import Test.HUnit.Tools (assertRaises, runVerboseTests)
 import Ledger
 import Utils
 import Options
@@ -15,13 +16,10 @@ import PrintCommand
 import RegisterCommand
 
 
-runtests opts args = do
+runtests opts args = runner flattests
-  when (Verbose `elem` opts)
-       (do
-         putStrLn $ printf "Running %d tests%s:" n s
-         sequence $ map (putStrLn . tname) $ tflatten flattests; putStrLn "Results:")
-  runTestTT flattests
     where
+      runner | (Verbose `elem` opts) = runVerboseTests
+             | otherwise = \t -> runTestTT t >>= return . (flip (,) 0)
       deeptests = tfilter matchname $ TestList tests
       flattests = TestList $ filter matchname $ concatMap tflatten tests
       matchname = matchpats args . tname

hledger.cabal

@@ -33,7 +33,7 @@ Executable hledger
 
   Build-Depends:  base, containers, haskell98, directory, parsec,
                   regex-compat, regexpr>=0.5.1, old-locale, time,
-                  HUnit, mtl, bytestring, filepath, process
+                  HUnit, mtl, bytestring, filepath, process, testpack
 
   Other-Modules:  BalanceCommand
                   Options