summaryrefslogtreecommitdiff
path: root/tests/Hakyll/Web/Page/Tests.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/Hakyll/Web/Page/Tests.hs')
-rw-r--r--tests/Hakyll/Web/Page/Tests.hs40
1 files changed, 0 insertions, 40 deletions
diff --git a/tests/Hakyll/Web/Page/Tests.hs b/tests/Hakyll/Web/Page/Tests.hs
deleted file mode 100644
index 8e01302..0000000
--- a/tests/Hakyll/Web/Page/Tests.hs
+++ /dev/null
@@ -1,40 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-module Hakyll.Web.Page.Tests
- ( tests
- ) where
-
-import Test.Framework
-import Test.HUnit hiding (Test)
-
-import qualified Data.Map as M
-
-import Hakyll.Web.Page
-import Hakyll.Web.Page.Read
-import TestSuite.Util
-
-tests :: [Test]
-tests = fromAssertions "readPage"
- [ Page (M.singleton "foo" "bar") "body" @=? readPage
- "--- \n\
- \foo: bar \n\
- \--- \n\
- \body"
-
- , Page M.empty "line one\nlijn twee" @=? readPage
- "line one\n\
- \lijn twee"
-
- , Page (M.fromList [("field1", "unos"), ("veld02", "deux")]) "" @=? 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"
- ]