summaryrefslogtreecommitdiff
path: root/tests/Hakyll/Web
diff options
context:
space:
mode:
authorJasper Van der Jeugt <m@jaspervdj.be>2012-11-19 15:12:53 +0100
committerJasper Van der Jeugt <m@jaspervdj.be>2012-11-19 15:12:53 +0100
commit802742cdbed1bb0afa022e072621e621d21158f6 (patch)
tree3fa7e6bd6d7bdb70257bf2f7717607a3fdf0d702 /tests/Hakyll/Web
parent88ffd3c5bea6b5e5cb1004173130b5691a7591f6 (diff)
downloadhakyll-802742cdbed1bb0afa022e072621e621d21158f6.tar.gz
Remove hamlet, add function fields
Diffstat (limited to 'tests/Hakyll/Web')
-rw-r--r--tests/Hakyll/Web/Template/Tests.hs13
1 files changed, 11 insertions, 2 deletions
diff --git a/tests/Hakyll/Web/Template/Tests.hs b/tests/Hakyll/Web/Template/Tests.hs
index 42be506..4e49d1f 100644
--- a/tests/Hakyll/Web/Template/Tests.hs
+++ b/tests/Hakyll/Web/Template/Tests.hs
@@ -6,6 +6,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, (@=?))
@@ -32,9 +33,17 @@ case01 :: Assertion
case01 = withTestStore $ \store -> do
provider <- newTestProvider store
- out <- resourceString provider "example.md.out"
+ out <- resourceString provider "template.html.out"
tpl <- testCompilerDone store provider "template.html" $ templateCompiler
item <- testCompilerDone store provider "example.md" $
- pageCompiler >>= applyTemplate (itemBody tpl) defaultContext
+ pageCompiler >>= applyTemplate (itemBody tpl) testContext
out @=? itemBody item
+
+
+--------------------------------------------------------------------------------
+testContext :: Context String
+testContext = mconcat
+ [ functionField "echo" (\args _ -> return $ unwords args)
+ , defaultContext
+ ]