From 243d5c30862aadb312d74d431d66510e5c6c3aba Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 21 Nov 2008 19:09:42 +0000
Subject: [PATCH] add a test demonstrating negative account pattern bug

---
 Tests.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/Tests.hs b/Tests.hs
index 7444bfcc7..90fffdc81 100644
--- 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"