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

add a test demonstrating negative account pattern bug

Browse Source
This commit is contained in:
Simon Michael 2008-11-21 19:09:42 +00:00
parent 7a71f137ee
commit 243d5c3086
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

@ -126,6 +126,14 @@ balancecommandtests = TestList [
\ $1 liabilities:debts\n\ \ $1 liabilities:debts\n\
\" --" \" --"
(showBalanceReport [SubTotal] [] l) (showBalanceReport [SubTotal] [] l)
,
"balance report with negative account patterns" ~: do
l <- ledgerfromfile "sample.ledger"
assertequal (
" $2 expenses\n" ++
" $-2 income\n" ++
"")
(showBalanceReport [] ["-assets","-abiliti"] l)
, ,
"balance report with account pattern o" ~: do "balance report with account pattern o" ~: do
l <- ledgerfromfile "sample.ledger" l <- ledgerfromfile "sample.ledger"