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

add a parsedate test

Browse Source
This commit is contained in:
Simon Michael 2008-12-10 20:55:02 +00:00
parent 470cae55ca
commit 22728c5c07
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Tests.hs
View File

@ -97,6 +97,10 @@ misc_tests = TestList [
"timeLog" ~: do "timeLog" ~: do
assertparseequal timelog1 (parseWithCtx timelog timelog1_str) 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 "smart dates" ~: do
let todaysdate = parsedate "2008/11/26" -- wednesday let todaysdate = parsedate "2008/11/26" -- wednesday
let str `gives` datestr = assertequal datestr (fixSmartDateStr todaysdate str) let str `gives` datestr = assertequal datestr (fixSmartDateStr todaysdate str)