reflect success/failure in doctest and unittest runners' exit codes

Tests.hs

@@ -202,6 +202,7 @@ import Data.Time.Format
 import Locale (defaultTimeLocale)
 import Text.ParserCombinators.Parsec
 import Test.HUnit.Tools (runVerboseTests)
+import System.Exit (exitFailure,exitSuccess)
 
 import Commands.All
 import Ledger
@@ -209,7 +210,11 @@ import Options
 import Utils
 
 
-runtests opts args = runner ts
+runtests opts args = do
+  (counts,_) <- runner ts
+  if errors counts > 0 || (failures counts > 0)
+   then exitFailure
+   else exitSuccess
     where
       runner | (Verbose `elem` opts) = runVerboseTests
              | otherwise = \t -> runTestTT t >>= return . (flip (,) 0)

tools/doctest.hs

@@ -30,7 +30,7 @@ to that, and/or add this to hledger's built-in test runner.
 module Main where
 import Data.List (isPrefixOf)
 import System (getArgs)
-import System.Exit (ExitCode(ExitSuccess))
+import System.Exit (ExitCode(ExitSuccess),exitFailure,exitSuccess)
 import System.IO (hGetContents, hPutStr, hPutStrLn, stderr)
 import System.Process (runInteractiveCommand, waitForProcess)
 import Text.Printf (printf)
@@ -40,7 +40,8 @@ main = do
   s <- readFile f
   let tests = doctests s
   putStrLn $ printf "Running %d doctests from %s" (length tests) f
-  mapM_ runShellDocTest $ doctests s
+  ok <-  mapM runShellDocTest $ doctests s
+  if any not ok then exitFailure else exitSuccess
 
 runShellDocTest :: String -> IO Bool
 runShellDocTest s = do