From 6e14d33a101e4ea9559d13d7a562da7ebc72acf2 Mon Sep 17 00:00:00 2001 From: samgd Date: Sat, 23 Jul 2016 12:41:41 +0200 Subject: For trimming --- tests/Hakyll/Web/Template/Tests.hs | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) (limited to 'tests') diff --git a/tests/Hakyll/Web/Template/Tests.hs b/tests/Hakyll/Web/Template/Tests.hs index c1991a0..b6a3a1d 100644 --- a/tests/Hakyll/Web/Template/Tests.hs +++ b/tests/Hakyll/Web/Template/Tests.hs @@ -6,7 +6,6 @@ module Hakyll.Web.Template.Tests -------------------------------------------------------------------------------- -import Data.Monoid (mconcat) import Test.Framework (Test, testGroup) import Test.Framework.Providers.HUnit (testCase) import Test.HUnit (Assertion, (@=?), (@?=)) @@ -33,12 +32,12 @@ tests = testGroup "Hakyll.Core.Template.Tests" $ concat , fromAssertions "readTemplate" [ Template [Chunk "Hello ", Expr (Call "guest" [])] - @=? readTemplate "Hello $guest()$" + @=? readTemplate "Hello $guest()$" , Template [If (Call "a" [StringLiteral "bar"]) (Template [Chunk "foo"]) Nothing] - @=? readTemplate "$if(a(\"bar\"))$foo$endif$" + @=? readTemplate "$if(a(\"bar\"))$foo$endif$" -- 'If' trim check. , Template [ TrimL @@ -58,6 +57,17 @@ tests = testGroup "Hakyll.Core.Template.Tests" $ concat , TrimR ] @=? readTemplate "$-if(body)-$\n$body$\n$-else-$\n$body$\n$-endif-$" + -- 'For' trim check. + , Template + [ TrimL + , TrimR + , For (Ident (TemplateKey "authors")) + (Template [Chunk "\n body \n"]) + Nothing + , TrimL + , TrimR + ] + @=? readTemplate "$-for(authors)-$\n body \n$-endfor-$" ] ] -- cgit v1.2.3