From 220b6880829e3cb1d5416976430e8b40ce808faf Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 12 Oct 2008 05:09:01 +0000
Subject: [PATCH] another test

---
 Tests.hs | 28 +++++++++++++++-------------
 1 file changed, 15 insertions(+), 13 deletions(-)

diff --git a/Tests.hs b/Tests.hs
index e4b3e2333..1ce4b6dc5 100644
--- a/Tests.hs
+++ b/Tests.hs
@@ -156,6 +156,21 @@ balancecommandtests =
      (balancereport [ShowSubs] ["o"] l)
   ,
 
+  "balance report with account pattern a" ~: do
+    rl <- rawledgerfromfile "sample.ledger"
+    let l = cacheLedger (mkRegex "a") $ filterRawLedgerEntries "" "" wildcard rl
+    assertequal
+     "                 $-1  assets\n\
+     \                 $-2    cash\n\
+     \                  $1    saving\n\
+     \                 $-1  income:salary\n\
+     \                  $1  liabilities\n\
+     \--------------------\n\
+     \                 $-1\n\
+     \" --"
+     (balancereport [] ["a"] l)
+  ,
+
   "balance report with account pattern e" ~: do
     rl <- rawledgerfromfile "sample.ledger"
     let l = cacheLedger (mkRegex "e") $ filterRawLedgerEntries "" "" wildcard rl
@@ -167,19 +182,6 @@ balancecommandtests =
      \                  $1  liabilities:debts\n\
      \" --"
      (balancereport [] ["e"] l)
-
---   "balance report with account pattern e and showsubs" ~: do
---     rl <- rawledgerfromfile "sample.ledger"
---     let l = cacheLedger (mkRegex "o") $ filterRawLedgerEntries "" "" wildcard rl
---     assertequal
---      "                  $1  expenses:food\n\
---      \                 $-2  income\n\
---      \                 $-1    gifts\n\
---      \                 $-1    salary\n\
---      \--------------------\n\
---      \                 $-1\n\
---      \" --"
---      (balancereport [ShowSubs] ["o"] l)
  ]
 
 -- | Assert a parsed thing equals some expected thing, or print a parse error.