From 9867094bd27ed170315e7e02b788243d654c6bc1 Mon Sep 17 00:00:00 2001
From: samgd <sam@samgd.com>
Date: Sat, 23 Jul 2016 14:46:15 +0200
Subject: Expr trimming. '-' binds to '$'.

---
 tests/Hakyll/Web/Template/Tests.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'tests')

diff --git a/tests/Hakyll/Web/Template/Tests.hs b/tests/Hakyll/Web/Template/Tests.hs
index 1ace2d4..a7b31a7 100644
--- a/tests/Hakyll/Web/Template/Tests.hs
+++ b/tests/Hakyll/Web/Template/Tests.hs
@@ -75,6 +75,13 @@ tests = testGroup "Hakyll.Core.Template.Tests" $ concat
             , TrimR
             ]
             @=? readTemplate "$-partial(\"path\")-$"
+        -- 'Expr' trim check.
+        , Template
+            [ TrimL
+            , Expr (Ident (TemplateKey "foo"))
+            , TrimR
+            ]
+            @=? readTemplate "$-foo-$"
         ]
     ]
 
-- 
cgit v1.2.3