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

;lib: commodityStylesFromAmounts: a failing unit test for #1091

Browse Source
This commit is contained in:
Simon Michael 2019-09-25 23:08:00 -10:00
parent 7ffe38677a
commit 4884213a3e
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
hledger-lib/Hledger/Data/Journal.hs
View File

@ -1352,4 +1352,29 @@ tests_Journal = tests "Journal" [
]
,tests "commodityStylesFromAmounts" $ [
test "#1091" $ do
-- The journal from #1091 causing problems (when txns are processed in reverse order):
-- 2019/09/24
-- a 2,000.00
-- b 1,000
-- c
--
-- 2019/09/26
-- (d) 2000,00
--
commodityStylesFromAmounts [
nullamt{aquantity=2000, astyle=AmountStyle L False 2 (Just ',') Nothing}
,nullamt{aquantity=2000, astyle=AmountStyle L False 2 (Just '.') (Just (DigitGroups ',' [3]))}
,nullamt{aquantity= 1, astyle=AmountStyle L False 3 (Just ',') Nothing}
-- there was an AUTO amount here too but it doesn't matter
]
`is`
M.fromList [
("", AmountStyle L False 3 (Just '.') (Just (DigitGroups ',' [3])))
]
]
]