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

;close: cleanups (#1165)

Browse Source
This commit is contained in:
Simon Michael 2020-01-22 05:51:25 -08:00
parent a1fbe0247a
commit 98b90a8a7b
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hledger/Hledger/Cli/Commands/Close.hs
View File

@ -34,6 +34,7 @@ closemode = hledgerCommandMode
([], Just $ argsFlag "[QUERY]") ([], Just $ argsFlag "[QUERY]")
-- debugger, beware: close is incredibly devious. simple rules combine to make a horrid maze. -- debugger, beware: close is incredibly devious. simple rules combine to make a horrid maze.
-- tests are in tests/close.test.
close CliOpts{rawopts_=rawopts, reportopts_=ropts} j = do close CliOpts{rawopts_=rawopts, reportopts_=ropts} j = do
today <- getCurrentDay today <- getCurrentDay
let let

2
tests/close.test
View File

@ -237,7 +237,7 @@ $ hledger -f- close -p 2016 assets liabilities
>=0 >=0
# 9. With --interleaved, balanced posting pairs are adjacent. # 9. With --interleaved, each transfer's postings are adjacent.
# (And balances with the same cost are not necessarily combined into # (And balances with the same cost are not necessarily combined into
# a single posting. Eg the 5734 EUR above is 5733 EUR and 1 EUR below.) # a single posting. Eg the 5734 EUR above is 5733 EUR and 1 EUR below.)
$ hledger -f- close -p 2016 assets liabilities --interleaved $ hledger -f- close -p 2016 assets liabilities --interleaved