From 197f35cb5b7ab551213d8b9e6b81adc2482fddcd Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 9 May 2012 15:30:43 +0000
Subject: [PATCH] unit test exposing sample journal parse failure

---
 hledger/Hledger/Cli.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/hledger/Hledger/Cli.hs b/hledger/Hledger/Cli.hs
index bbe08b7c9..8bf90cf0e 100644
--- a/hledger/Hledger/Cli.hs
+++ b/hledger/Hledger/Cli.hs
@@ -105,6 +105,10 @@ tests_Hledger_Cli = TestList
       "expenses","expenses:food","expenses:food:dining","expenses:phone","expenses:vacation",
       "liabilities","liabilities:credit cards","liabilities:credit cards:discover"]
 
+  ,"sample journal parses" ~: do
+     _ <- samplejournal
+     assertBool "" True
+
   ,"balance report tests" ~:
    let opts `gives` es = do
         j <- samplejournal