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

add a test for account filtering affecting balance report totals

Browse Source
This commit is contained in:
Simon Michael 2008-11-22 04:50:23 +00:00
parent 2388af0150
commit 7a71f137ee
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Tests.hs
View File

@ -198,6 +198,16 @@ balancecommandtests = TestList [
do do
l <- ledgerfromfile "sample.ledger" l <- ledgerfromfile "sample.ledger"
assertequal "" $ showBalanceReport [] ["-e"] l 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 [ registercommandtests = TestList [