summaryrefslogtreecommitdiff
path: root/tests/Hakyll
diff options
context:
space:
mode:
authorJasper Van der Jeugt <m@jaspervdj.be>2013-01-16 10:50:01 +0100
committerJasper Van der Jeugt <m@jaspervdj.be>2013-01-16 10:50:01 +0100
commit652ceb03f1185ad8d41e7a3b91f00e1064bdd4ba (patch)
treea269f96a06462531678263a0d678457f2b59af70 /tests/Hakyll
parente53ca6724c8f5715792ad6b269ede52f21eb606c (diff)
downloadhakyll-652ceb03f1185ad8d41e7a3b91f00e1064bdd4ba.tar.gz
Add applyJoinTemplateList, and a test for it
Diffstat (limited to 'tests/Hakyll')
-rw-r--r--tests/Hakyll/Web/Template/Tests.hs22
1 files changed, 20 insertions, 2 deletions
diff --git a/tests/Hakyll/Web/Template/Tests.hs b/tests/Hakyll/Web/Template/Tests.hs
index fce5503..6fb5233 100644
--- a/tests/Hakyll/Web/Template/Tests.hs
+++ b/tests/Hakyll/Web/Template/Tests.hs
@@ -9,7 +9,7 @@ module Hakyll.Web.Template.Tests
import Data.Monoid (mconcat)
import Test.Framework (Test, testGroup)
import Test.Framework.Providers.HUnit (testCase)
-import Test.HUnit (Assertion, (@=?))
+import Test.HUnit (Assertion, (@=?), (@?=))
--------------------------------------------------------------------------------
@@ -18,13 +18,16 @@ import Hakyll.Core.Provider
import Hakyll.Web.Pandoc
import Hakyll.Web.Template
import Hakyll.Web.Template.Context
+import Hakyll.Web.Template.Internal
+import Hakyll.Web.Template.List
import TestSuite.Util
--------------------------------------------------------------------------------
tests :: Test
tests = testGroup "Hakyll.Core.Template.Tests"
- [ testCase "case01" case01
+ [ testCase "case01" case01
+ , testCase "applyJoinTemplateList" testApplyJoinTemplateList
]
@@ -49,3 +52,18 @@ testContext = mconcat
[ functionField "echo" (\args _ -> return $ unwords args)
, defaultContext
]
+
+
+--------------------------------------------------------------------------------
+testApplyJoinTemplateList :: Assertion
+testApplyJoinTemplateList = do
+ store <- newTestStore
+ provider <- newTestProvider store
+ str <- testCompilerDone store provider "item3" $
+ applyJoinTemplateList ", " tpl defaultContext [i1, i2]
+
+ str @?= "<b>Hello</b>, <b>World</b>"
+ where
+ i1 = Item "item1" "Hello"
+ i2 = Item "item2" "World"
+ tpl = Template [Chunk "<b>", Key "body", Chunk "</b>"]