diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Hakyll/Web/Template/Context/Tests.hs | 2 | ||||
| -rw-r--r-- | tests/Hakyll/Web/Template/Tests.hs | 2 | ||||
| -rw-r--r-- | tests/data/template.html | 3 | ||||
| -rw-r--r-- | tests/data/template.html.out | 1 |
4 files changed, 5 insertions, 3 deletions
diff --git a/tests/Hakyll/Web/Template/Context/Tests.hs b/tests/Hakyll/Web/Template/Context/Tests.hs index 627624f..5f77dad 100644 --- a/tests/Hakyll/Web/Template/Context/Tests.hs +++ b/tests/Hakyll/Web/Template/Context/Tests.hs @@ -51,7 +51,7 @@ testContextDone :: Store -> Provider -> Identifier -> String testContextDone store provider identifier key context = testCompilerDone store provider identifier $ do item <- getResourceBody - cf <- unContext context key item + cf <- unContext context key [] item case cf of StringField str -> return str ListField _ _ -> error $ diff --git a/tests/Hakyll/Web/Template/Tests.hs b/tests/Hakyll/Web/Template/Tests.hs index 8763147..8baf01b 100644 --- a/tests/Hakyll/Web/Template/Tests.hs +++ b/tests/Hakyll/Web/Template/Tests.hs @@ -76,4 +76,4 @@ testApplyJoinTemplateList = do where i1 = Item "item1" "Hello" i2 = Item "item2" "World" - tpl = Template [Chunk "<b>", Key "body", Chunk "</b>"] + tpl = Template [Chunk "<b>", Expr (Ident "body"), Chunk "</b>"] diff --git a/tests/data/template.html b/tests/data/template.html index 26f9e8a..55e76f6 100644 --- a/tests/data/template.html +++ b/tests/data/template.html @@ -1,7 +1,8 @@ <div> I'm so rich I have $$3. - $rev foo$ + $rev("foo")$ + $rev(rev("foo"))$ $if(body)$ I have body diff --git a/tests/data/template.html.out b/tests/data/template.html.out index 0b17d31..75ef4df 100644 --- a/tests/data/template.html.out +++ b/tests/data/template.html.out @@ -2,6 +2,7 @@ I'm so rich I have $3. oof + foo I have body |