From d7e9b2f2d71231ecbe761e57ca0023bd266fa566 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Tue, 31 Jan 2012 15:27:03 +0100
Subject: Add a test for renderDateField

---
 tests/Hakyll/Web/Page/Metadata/Tests.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'tests')

diff --git a/tests/Hakyll/Web/Page/Metadata/Tests.hs b/tests/Hakyll/Web/Page/Metadata/Tests.hs
index 6fbd89a..f14bfec 100644
--- a/tests/Hakyll/Web/Page/Metadata/Tests.hs
+++ b/tests/Hakyll/Web/Page/Metadata/Tests.hs
@@ -42,6 +42,15 @@ tests = concat $
             setFieldA "bar" (map toLower) (mempty, "FOO")
         ]
 
+    , fromAssertions "renderDateField"
+        [ (@=?) "January 31, 2010" $ getField "date" $ renderDateField
+            "date" "%B %e, %Y" "Date unknown" $ Page
+                (M.singleton "path" "/posts/2010-01-31-a-post.mkdwn") ""
+        , (@=?) "Date unknown" $ getField "date" $ renderDateField
+            "date" "%B %e, %Y" "Date unknown" $ Page
+                (M.singleton "path" "/posts/a-post.mkdwn") ""
+        ]
+
     , fromAssertions "copyBodyToField"
         [ (Page (M.singleton "bar" "foo") "foo") @=?
             copyBodyToField "bar" (Page M.empty "foo")
-- 
cgit v1.2.3