diff --git a/Tests.hs b/Tests.hs
index b9c2df078..7444bfcc7 100644
--- a/Tests.hs
+++ b/Tests.hs
@@ -198,6 +198,16 @@ balancecommandtests = TestList [
   do 
     l <- ledgerfromfile "sample.ledger"
     assertequal "" $ showBalanceReport [] ["-e"] l
+ ,
+  "balance report negative patterns affect totals" ~: 
+  do 
+    l <- ledgerfromfile "sample.ledger"
+    assertequal (
+     "                  $1  expenses\n" ++
+     "--------------------\n" ++
+     "                  $1\n" ++
+     "")
+     $ showBalanceReport [] ["expenses","-food"] l
  ]
 
 registercommandtests = TestList [