test register report with account pattern

2008-11-24 21:41:21 +00:00 · 2008-11-24 21:41:21 +00:00 · 06aeefdbf7
commit 06aeefdbf7
parent 0ad4f7b656
1 changed files with 8 additions and 0 deletions
--- 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
  ]
  
 ------------------------------------------------------------------------------