add a test demonstrating negative account pattern bug

2008-11-21 19:09:42 +00:00 · 2008-11-21 19:09:42 +00:00 · 243d5c3086
commit 243d5c3086
parent 7a71f137ee
1 changed files with 8 additions and 0 deletions
--- a/Tests.hs
+++ b/Tests.hs
@ -126,6 +126,14 @@ balancecommandtests = TestList [
     \                  $1  liabilities:debts\n\
     \" --"
     (showBalanceReport [SubTotal] [] l)
+ ,
+  "balance report with negative account patterns" ~: do
+    l <- ledgerfromfile "sample.ledger"
+    assertequal (
+     "                  $2  expenses\n" ++
+     "                 $-2  income\n" ++
+     "")
+     (showBalanceReport [] ["-assets","-abiliti"] l)
 ,
  "balance report with account pattern o" ~: do
    l <- ledgerfromfile "sample.ledger"