simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-11-08 07:09:28 +03:00
Code Issues Projects Releases Wiki Activity

add a failing test for zero-balance root account eliding

Browse Source
This commit is contained in:
Simon Michael 2009-01-17 17:59:35 +00:00
parent 8ff1abfb2a
commit a8ede0132a
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Tests.hs
View File

@ -391,17 +391,16 @@ balancecommand_tests = TestList [
)
(showBalanceReport [] [] l)
,
"balance report with !account" ~: do
"balance report elides zero-balance root account(s)" ~: do
l <- ledgerfromstringwithopts [] [] refdate
("!account TEST\n" ++
"2008/1/1 test\n" ++
" a 1\n" ++
" b\n"
("2008/1/1 one\n" ++
" test:a 1\n" ++
" test:b\n"
)
assertequal "" (showBalanceReport [] [] l)
assertequal
(" 1 TEST:a\n" ++
" -1 TEST:b\n" ++
(" 1 test:a\n" ++
" -1 test:b\n" ++
""
)
(showBalanceReport [SubTotal] [] l)