@@ -1,77 +0,0 @@
1−module Hakyll.Web.Page.Metadata.Tests
2− ( tests
3− ) where
4−
5−import Test.Framework
6−import Test.HUnit hiding (Test)
7−
8−import qualified Data.Map as M
9−import Data.Monoid (mempty)
10−import Data.Char (toLower)
11−
12−import Hakyll.Web.Page
13−import Hakyll.Web.Page.Metadata
14−import TestSuite.Util
15−
16−tests :: [Test]
17−tests = concat $
18− [ fromAssertions "getField"
19− [ "bar" @=? getField "foo" (Page (M.singleton "foo" "bar") "body\n")
20− , "" @=? getField "foo" (Page M.empty "body")
21− ]
22−
23− , fromAssertions "getFieldMaybe"
24− [ Just "bar" @=? getFieldMaybe "foo" (Page (M.singleton "foo" "bar") "")
25− , Nothing @=? getFieldMaybe "foo" (Page M.empty "body")
26− ]
27−
28− , fromAssertions "setField"
29− [ (Page (M.singleton "bar" "foo") "") @=? setField "bar" "foo" mempty
30− , (Page (M.singleton "bar" "foo") "") @=?
31− setField "bar" "foo" (Page (M.singleton "bar" "qux") "")
32− ]
33−
34− , fromAssertions "trySetField"
35− [ (Page (M.singleton "bar" "foo") "") @=? trySetField "bar" "foo" mempty
36− , (Page (M.singleton "bar" "qux") "") @=?
37− trySetField "bar" "foo" (Page (M.singleton "bar" "qux") "")
38− ]
39−
40− , fromAssertions "setFieldA"
41− [ (Page (M.singleton "bar" "foo") "") @=?
42− setFieldA "bar" (map toLower) (mempty, "FOO")
43− ]
44−
45− , fromAssertions "renderDateField"
46− [ (@=?) "January 31, 2010" $ getField "date" $ renderDateField
47− "date" "%B %e, %Y" "Date unknown" $ Page
48− (M.singleton "path" "/posts/2010-01-31-a-post.mkdwn") ""
49− , (@=?) "Date unknown" $ getField "date" $ renderDateField
50− "date" "%B %e, %Y" "Date unknown" $ Page
51− (M.singleton "path" "/posts/a-post.mkdwn") ""
52− , (@=?) "February 20, 2000" $ getField "date" $ renderDateField
53− "date" "%B %e, %Y" "Date unknown" $ flip Page "" $ M.fromList
54− [ ("path", "/posts/2010-01-31-a-post.mkdwn")
55− , ("published", "February 20, 2000 1:00 PM")
56− ]
57− , (@=?) "October 22, 2012" $ getField "date" $ renderDateField
58− "date" "%B %e, %Y" "Date unknown" $ Page
59− (M.singleton "date" "2012-10-22 14:35:24") ""
60− ]
61−
62− , fromAssertions "copyBodyToField"
63− [ (Page (M.singleton "bar" "foo") "foo") @=?
64− copyBodyToField "bar" (Page M.empty "foo")
65− ]
66−
67− , fromAssertions "copyBodyFromField"
68− [ (Page (M.singleton "bar" "foo") "foo") @=?
69− copyBodyFromField "bar" (Page (M.singleton "bar" "foo") "qux")
70− ]
71−
72− , fromAssertions "comparePagesByDate"
73− [ GT @=? comparePagesByDate
74− (Page (M.singleton "path" "/posts/1990-08-26-foo.mkdwn") "")
75− (Page (M.singleton "path" "/posts/1990-06-18-qux.mkdwn") "")
76− ]
77− ]