diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-01-31 15:27:03 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-01-31 15:27:03 +0100 |
| commit | d7e9b2f2d71231ecbe761e57ca0023bd266fa566 (patch) | |
| tree | 17bbab5048f0aafdd99bbbcd8b29a534870e2a3b /tests/Hakyll | |
| parent | d1c0ad7c25427980bee482db31678f9ac4958c1c (diff) | |
| download | hakyll-d7e9b2f2d71231ecbe761e57ca0023bd266fa566.tar.gz | |
Add a test for renderDateField
Diffstat (limited to 'tests/Hakyll')
| -rw-r--r-- | tests/Hakyll/Web/Page/Metadata/Tests.hs | 9 |
1 files changed, 9 insertions, 0 deletions
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") |