2012-11-27 15:10:45 +00:00
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Hakyll.Web.Template.Context.Tests
|
|
|
|
( tests
|
|
|
|
) where
|
|
|
|
|
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
import Test.Framework (Test, testGroup)
|
|
|
|
import Test.Framework.Providers.HUnit (testCase)
|
|
|
|
import Test.HUnit (Assertion, (@=?))
|
|
|
|
|
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
import Hakyll.Core.Compiler
|
|
|
|
import Hakyll.Core.Identifier
|
|
|
|
import Hakyll.Core.Provider
|
|
|
|
import Hakyll.Core.Store (Store)
|
|
|
|
import Hakyll.Web.Template.Context
|
|
|
|
import TestSuite.Util
|
|
|
|
|
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
tests :: Test
|
|
|
|
tests = testGroup "Hakyll.Core.Template.Context.Tests"
|
|
|
|
[ testCase "testDateField" testDateField
|
|
|
|
]
|
|
|
|
|
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
testDateField :: Assertion
|
2013-01-06 17:33:00 +00:00
|
|
|
testDateField = do
|
|
|
|
store <- newTestStore
|
2012-11-27 15:10:45 +00:00
|
|
|
provider <- newTestProvider store
|
|
|
|
|
|
|
|
date1 <- testContextDone store provider "example.md" "date" $
|
|
|
|
dateField "date" "%B %e, %Y"
|
|
|
|
date1 @=? "October 22, 2012"
|
|
|
|
|
|
|
|
date2 <- testContextDone store provider
|
|
|
|
"posts/2010-08-26-birthday.md" "date" $
|
|
|
|
dateField "date" "%B %e, %Y"
|
|
|
|
date2 @=? "August 26, 2010"
|
|
|
|
|
2013-01-06 17:33:00 +00:00
|
|
|
cleanTestEnv
|
|
|
|
|
2012-11-27 15:10:45 +00:00
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
testContextDone :: Store -> Provider -> Identifier -> String
|
|
|
|
-> Context String -> IO String
|
|
|
|
testContextDone store provider identifier key context =
|
|
|
|
testCompilerDone store provider identifier $ do
|
|
|
|
item <- getResourceBody
|
2014-10-27 11:20:31 +00:00
|
|
|
cf <- unContext context key [] item
|
2013-05-06 21:32:25 +00:00
|
|
|
case cf of
|
|
|
|
StringField str -> return str
|
|
|
|
ListField _ _ -> error $
|
|
|
|
"Hakyll.Web.Template.Context.Tests.testContextDone: " ++
|
|
|
|
"Didn't expect ListField"
|