add a parsedate test

This commit is contained in:
Simon Michael 2008-12-10 20:55:02 +00:00
parent 470cae55ca
commit 22728c5c07

View File

@ -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