From 06aeefdbf70e5a444c83f117796d1babf9b3fe9d Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Mon, 24 Nov 2008 21:41:21 +0000
Subject: [PATCH] test register report with account pattern

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

diff --git a/Tests.hs b/Tests.hs
index 7bd28d6cb..925a3959e 100644
--- a/Tests.hs
+++ b/Tests.hs
@@ -307,6 +307,14 @@ registercommand_tests = TestList [
      "                                assets:checking                 $-1            0\n" ++
      "")
      $ showRegisterReport [] [] l
+  ,
+  "register report with account pattern" ~:
+  do 
+    l <- ledgerfromfile [] "sample.ledger"
+    assertequal (
+     "2007/01/01 eat & shop           assets:cash                     $-2          $-2\n" ++
+     "")
+     $ showRegisterReport [] ["cash"] l
   ]
   
 ------------------------------------------------------------------------------