slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages 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 "balance report with cost basis" ~: do
rawl <- rawledgerfromstring rl <- rawledgerfromstring
("" ++ ("" ++
"2008/1/1 test \n" ++ "2008/1/1 test \n" ++
" a:b 10h @ $50\n" ++ " a:b 10h @ $50\n" ++
@ -383,13 +383,28 @@ balancecommand_tests = TestList [
"\n") "\n")
let l = cacheLedger [] $ let l = cacheLedger [] $
filterRawLedger (DateSpan Nothing Nothing) [] False False $ filterRawLedger (DateSpan Nothing Nothing) [] False False $
canonicaliseAmounts True rawl -- enable cost basis adjustment canonicaliseAmounts True rl -- enable cost basis adjustment
assertequal assertequal
(" $500 a\n" ++ (" $500 a\n" ++
" $-500 c\n" ++ " $-500 c\n" ++
"" ""
) )
(showBalanceReport [] [] l) (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 ] where
gives (opts,args) e = do gives (opts,args) e = do
l <- sampleledgerwithopts [] args l <- sampleledgerwithopts [] args