From 22728c5c075a7a370364c4ba0b4627403d340fc3 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 10 Dec 2008 20:55:02 +0000
Subject: [PATCH] add a parsedate test

---
 Tests.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Tests.hs b/Tests.hs
index 0deb86c4d..e2e609112 100644
--- a/Tests.hs
+++ b/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