yogsototh/hakyll
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add a test for renderDateField

Browse source
This commit is contained in:
Jasper Van der Jeugt 2012-01-31 15:27:03 +01:00
parent d1c0ad7c25
commit d7e9b2f2d7
2 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Hakyll/Web/Feed.hs
View file

@ -7,11 +7,11 @@
-- Also note that the pages should have (at least) the following fields to
-- produce a correct feed:
--
-- - @$title@: Title of the item
-- - @$title$@: Title of the item
--
-- - @$description@: Description to appear in the feed
-- - @$description$@: Description to appear in the feed
--
-- - @$url@: URL to the item - this is usually set automatically.
-- - @$url$@: URL to the item - this is usually set automatically.
--
-- In addition, the posts should be named according to the rules for
-- 'Hakyll.Page.Metadata.renderDateField'.

9
tests/Hakyll/Web/Page/Metadata/Tests.hs
View file

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