summaryrefslogtreecommitdiff
path: root/tests/Hakyll/Web
diff options
context:
space:
mode:
authorsamgd <sam@samgd.com>2016-07-23 12:19:27 +0200
committersamgd <sam@samgd.com>2016-07-23 12:21:38 +0200
commit6c0be2e2d3b8992263573540b3498ea51b10b2e6 (patch)
tree4a4db65e5920b2d1d5fe039975a03f4f8631d521 /tests/Hakyll/Web
parent02dd1cf2360cb2a650cb61c5e6ae2ca573eb5125 (diff)
downloadhakyll-6c0be2e2d3b8992263573540b3498ea51b10b2e6.tar.gz
If Trim parsing
Diffstat (limited to 'tests/Hakyll/Web')
-rw-r--r--tests/Hakyll/Web/Template/Tests.hs13
1 files changed, 8 insertions, 5 deletions
diff --git a/tests/Hakyll/Web/Template/Tests.hs b/tests/Hakyll/Web/Template/Tests.hs
index 453cd49..c1991a0 100644
--- a/tests/Hakyll/Web/Template/Tests.hs
+++ b/tests/Hakyll/Web/Template/Tests.hs
@@ -39,16 +39,20 @@ tests = testGroup "Hakyll.Core.Template.Tests" $ concat
(Template [Chunk "foo"])
Nothing]
@=? readTemplate "$if(a(\"bar\"))$foo$endif$"
- -- 'If' 'Trim_' test.
+ -- 'If' trim check.
, Template
[ TrimL
+ , TrimR
, If (Ident (TemplateKey "body"))
- (Template [ TrimR
+ (Template [ Chunk "\n"
, Expr (Ident (TemplateKey "body"))
+ , Chunk "\n"
])
(Just (Template [ TrimL
, TrimR
+ , Chunk "\n"
, Expr (Ident (TemplateKey "body"))
+ , Chunk "\n"
]))
, TrimL
, TrimR
@@ -65,9 +69,8 @@ case01 = do
provider <- newTestProvider store
out <- resourceString provider "template.html.out"
- tpl <- testCompilerDone store provider "template.html" $
- templateBodyCompiler
- item <- testCompilerDone store provider "example.md" $
+ tpl <- testCompilerDone store provider "template.html" templateBodyCompiler
+ item <- testCompilerDone store provider "example.md" $
pandocCompiler >>= applyTemplate (itemBody tpl) testContext
out @=? itemBody item