From 2bdeb2bf6e858d106cb1edacb187b00bc89af728 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Mon, 13 Jun 2011 21:44:38 +0000
Subject: [PATCH] web: run unit tests at startup.. it's handy for development,
 and why not

---
 hledger-web/hledger-web.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/hledger-web/hledger-web.hs b/hledger-web/hledger-web.hs
index 6031a74de..20fa164e1 100644
--- a/hledger-web/hledger-web.hs
+++ b/hledger-web/hledger-web.hs
@@ -23,6 +23,7 @@ import Text.Printf
 import Yesod.Helpers.Static
 
 import Hledger.Cli
+import Hledger.Cli.Tests (runTestsOrExit)
 import Hledger.Data
 import Prelude hiding (putStr, putStrLn)
 import Hledger.Utils.UTF8 (putStr, putStrLn)
@@ -67,6 +68,8 @@ main = do
 -- | The web command.
 web :: [Opt] -> [String] -> Journal -> IO ()
 web opts args j = do
+  putStrLn $ "Running self-tests..."
+  runTestsOrExit opts args
   created <- createFilesIfMissing
   if created
    then do