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

add a test for setAmountDisplayPrefs precision handling

Browse Source
This commit is contained in:
Simon Michael 2008-11-08 20:26:56 +00:00
parent 0b23598138
commit c00a1811c5
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Tests.hs
View File

@ -105,8 +105,24 @@ unittests = TestList [
"transactionamount" ~: do "transactionamount" ~: do
assertparseequal (Mixed [dollars 47.18]) (parsewith transactionamount " $47.18") assertparseequal (Mixed [dollars 47.18]) (parsewith transactionamount " $47.18")
assertparseequal (Mixed [Amount (Commodity {symbol="$",side=L,spaced=False,comma=False,precision=0}) 1]) (parsewith transactionamount " $1.") assertparseequal (Mixed [Amount (Commodity {symbol="$",side=L,spaced=False,comma=False,precision=0}) 1]) (parsewith transactionamount " $1.")
,
"setAmountDisplayPrefs" ~: do
let l = setAmountDisplayPrefs $ rawLedgerWithAmounts ["1","2.00"]
-- should be using the greatest precision everywhere
assertequal [2,2] (rawLedgerPrecisions l)
] ]
rawLedgerPrecisions = map precision . rawLedgerCommodities
rawLedgerCommodities rl = concatMap (\(Mixed as) -> map commodity as) $ map amount $ rawLedgerTransactions rl
rawLedgerWithAmounts as =
RawLedger
[]
[]
[nullentry{etransactions=[nullrawtxn{tamount=parse a}]} | a <- as]
""
where parse = fromparse . parsewith transactionamount . (" "++)
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
functests = TestList [ functests = TestList [