slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

test register report with account pattern

Browse Source
This commit is contained in:
Simon Michael 2008-11-24 21:41:21 +00:00
parent 0ad4f7b656
commit 06aeefdbf7
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Tests.hs
View File

@ -307,6 +307,14 @@ registercommand_tests = TestList [
" assets:checking $-1 0\n" ++ " assets:checking $-1 0\n" ++
"") "")
$ showRegisterReport [] [] l $ 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
] ]
------------------------------------------------------------------------------ ------------------------------------------------------------------------------