diff options
Diffstat (limited to 'tests/Hakyll/Web/Page/Tests.hs')
| -rw-r--r-- | tests/Hakyll/Web/Page/Tests.hs | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/tests/Hakyll/Web/Page/Tests.hs b/tests/Hakyll/Web/Page/Tests.hs index b44daca..8e01302 100644 --- a/tests/Hakyll/Web/Page/Tests.hs +++ b/tests/Hakyll/Web/Page/Tests.hs @@ -14,13 +14,13 @@ import TestSuite.Util tests :: [Test] tests = fromAssertions "readPage" - [ Page (M.singleton "foo" "bar") "body\n" @=? readPage + [ Page (M.singleton "foo" "bar") "body" @=? readPage "--- \n\ \foo: bar \n\ \--- \n\ \body" - , Page M.empty "line one\nlijn twee\n" @=? readPage + , Page M.empty "line one\nlijn twee" @=? readPage "line one\n\ \lijn twee" @@ -28,5 +28,13 @@ tests = fromAssertions "readPage" "---\n\ \veld02: deux\n\ \field1: unos\n\ - \---" + \---\n" + + , Page (M.fromList [("author", "jasper"), ("title", "lol")]) "O hai\n" + @=? readPage + "---\n\ + \author: jasper\n\ + \title: lol\n\ + \...\n\ + \O hai\n" ] |