slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions 2 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

@ -96,6 +96,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