diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-07-18 18:47:11 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-07-18 18:47:11 +0200 |
| commit | 308323bfc1e7da4b88cd83c6db265e709bec3f2c (patch) | |
| tree | 6aaf59bfcf9044e8cad58897d40f4a13894b52ca /tests | |
| parent | 0341108a87c2582036cfa4299229f29b70669638 (diff) | |
| download | hakyll-308323bfc1e7da4b88cd83c6db265e709bec3f2c.tar.gz | |
Allow ... as metadata delimiter
Diffstat (limited to 'tests')
| -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" ] |