From 6c0be2e2d3b8992263573540b3498ea51b10b2e6 Mon Sep 17 00:00:00 2001
From: samgd <sam@samgd.com>
Date: Sat, 23 Jul 2016 12:19:27 +0200
Subject: If Trim parsing

---
 tests/Hakyll/Web/Template/Tests.hs | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'tests/Hakyll/Web')

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
-- 
cgit v1.2.3