mirror of
https://github.com/simonmichael/hledger.git
synced 2024-09-20 02:37:12 +03:00
add a parsedate test
This commit is contained in:
parent
470cae55ca
commit
22728c5c07
4
Tests.hs
4
Tests.hs
@ -96,6 +96,10 @@ misc_tests = TestList [
|
||||
,
|
||||
"timeLog" ~: do
|
||||
assertparseequal timelog1 (parseWithCtx timelog timelog1_str)
|
||||
,
|
||||
"parsedate" ~: do
|
||||
assertequal (parsetimewith "%Y/%m/%d" "2008/02/03" refdate) (parsedate "2008/02/03")
|
||||
assertequal (parsetimewith "%Y/%m/%d" "2008/02/03" refdate) (parsedate "2008-02-03")
|
||||
,
|
||||
"smart dates" ~: do
|
||||
let todaysdate = parsedate "2008/11/26" -- wednesday
|
||||
|
Loading…
Reference in New Issue
Block a user