simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-20 10:47:29 +03:00
Code Issues Projects Releases Wiki Activity

failing test for eliding !account accounts

Browse Source
This commit is contained in:
Simon Michael 2008-12-10 18:37:25 +00:00
parent 3343e21ab1
commit 8ff1abfb2a
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
Tests.hs
View File

@ -375,7 +375,7 @@ balancecommand_tests = TestList [
"")
,
"balance report with cost basis" ~: do
rawl <- rawledgerfromstring
rl <- rawledgerfromstring
("" ++
"2008/1/1 test \n" ++
" a:b 10h @ $50\n" ++
@ -383,13 +383,28 @@ balancecommand_tests = TestList [
"\n")
let l = cacheLedger [] $
filterRawLedger (DateSpan Nothing Nothing) [] False False $
canonicaliseAmounts True rawl -- enable cost basis adjustment
canonicaliseAmounts True rl -- enable cost basis adjustment
assertequal
(" $500 a\n" ++
" $-500 c\n" ++
""
)
(showBalanceReport [] [] l)
,
"balance report with !account" ~: do
l <- ledgerfromstringwithopts [] [] refdate
("!account TEST\n" ++
"2008/1/1 test\n" ++
" a 1\n" ++
" b\n"
)
assertequal "" (showBalanceReport [] [] l)
assertequal
(" 1 TEST:a\n" ++
" -1 TEST:b\n" ++
""
)
(showBalanceReport [SubTotal] [] l)
] where
gives (opts,args) e = do
l <- sampleledgerwithopts [] args