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"