hakyll/tests/Hakyll/Web/Page/Metadata/Tests.hs

module Hakyll.Web.Page.Metadata.Tests
    ( tests
    ) where

import Test.Framework
import Test.HUnit hiding (Test)

import qualified Data.Map as M
import Data.Monoid (mempty)
import Data.Char (toLower)

import Hakyll.Web.Page
import Hakyll.Web.Page.Metadata
import TestSuite.Util

tests :: [Test]
tests = concat $
    [ fromAssertions "getField"
        [ "bar" @=? getField "foo" (Page (M.singleton "foo" "bar") "body\n")
        , ""    @=? getField "foo" (Page M.empty "body")
        ]

    , fromAssertions "getFieldMaybe"
        [ Just "bar" @=? getFieldMaybe "foo" (Page (M.singleton "foo" "bar") "")
        , Nothing    @=? getFieldMaybe "foo" (Page M.empty "body")
        ]

    , fromAssertions "setField"
        [ (Page (M.singleton "bar" "foo") "") @=? setField "bar" "foo" mempty
        , (Page (M.singleton "bar" "foo") "") @=?
            setField "bar" "foo" (Page (M.singleton "bar" "qux") "")
        ]

    , fromAssertions "trySetField"
        [ (Page (M.singleton "bar" "foo") "") @=? trySetField "bar" "foo" mempty
        , (Page (M.singleton "bar" "qux") "") @=?
            trySetField "bar" "foo" (Page (M.singleton "bar" "qux") "")
        ]

    , fromAssertions "setFieldA"
        [ (Page (M.singleton "bar" "foo") "") @=?
            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") ""
        , (@=?) "February 20, 2000" $ getField "date" $ renderDateField
            "date" "%B %e, %Y" "Date unknown" $ flip Page "" $ M.fromList
                [ ("path",      "/posts/2010-01-31-a-post.mkdwn")
                , ("published", "February 20, 2000 1:00 PM")
                ]
        , (@=?) "October 22, 2012" $ getField "date" $ renderDateField
            "date" "%B %e, %Y" "Date unknown" $ Page
                (M.singleton "date" "2012-10-22 14:35:24") ""
        ]

    , fromAssertions "copyBodyToField"
        [ (Page (M.singleton "bar" "foo") "foo") @=?
            copyBodyToField "bar" (Page M.empty "foo")
        ]

    , fromAssertions "copyBodyFromField"
        [ (Page (M.singleton "bar" "foo") "foo") @=?
            copyBodyFromField "bar" (Page (M.singleton "bar" "foo") "qux")
        ]

    , fromAssertions "comparePagesByDate"
        [ GT @=? comparePagesByDate
            (Page (M.singleton "path" "/posts/1990-08-26-foo.mkdwn") "")
            (Page (M.singleton "path" "/posts/1990-06-18-qux.mkdwn") "")
        ]
    ]