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) (showBalanceReport [] [] l)
, ,
"balance report with !account" ~: do "balance report elides zero-balance root account(s)" ~: do
l <- ledgerfromstringwithopts [] [] refdate l <- ledgerfromstringwithopts [] [] refdate
("!account TEST\n" ++ ("2008/1/1 one\n" ++
"2008/1/1 test\n" ++ " test:a 1\n" ++
" a 1\n" ++ " test:b\n"
" b\n"
) )
assertequal "" (showBalanceReport [] [] l) assertequal "" (showBalanceReport [] [] l)
assertequal assertequal
(" 1 TEST:a\n" ++ (" 1 test:a\n" ++
" -1 TEST:b\n" ++ " -1 test:b\n" ++
"" ""
) )
(showBalanceReport [SubTotal] [] l) (showBalanceReport [SubTotal] [] l)