From d9e0c3e86b03834a03e7ddf37b70cc141eccfe1c Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Wed, 9 Feb 2011 19:28:53 +0100 Subject: Some tests for the Page module --- tests/Hakyll/Web/Page/Tests.hs | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 tests/Hakyll/Web/Page/Tests.hs (limited to 'tests/Hakyll') diff --git a/tests/Hakyll/Web/Page/Tests.hs b/tests/Hakyll/Web/Page/Tests.hs new file mode 100644 index 0000000..14f3d7e --- /dev/null +++ b/tests/Hakyll/Web/Page/Tests.hs @@ -0,0 +1,35 @@ +{-# LANGUAGE OverloadedStrings #-} +module Hakyll.Web.Page.Tests + ( tests + ) where + +import Test.Framework +import Test.Framework.Providers.HUnit +import Test.HUnit hiding (Test) + +import qualified Data.Map as M + +import Hakyll.Web.Page +import Hakyll.Web.Page.Internal +import Hakyll.Web.Page.Read +import TestSuite.Util + +tests :: [Test] +tests = fromAssertions "applyTemplate" + -- Hakyll templates + [ Page (M.singleton "foo" "bar") "body\n" @=? readPage + "--- \n\ + \foo: bar \n\ + \--- \n\ + \body" + + , Page M.empty "line one\nlijn twee\n" @=? readPage + "line one\n\ + \lijn twee" + + , Page (M.fromList [("field1", "unos"), ("veld02", "deux")]) "" @=? readPage + "---\n\ + \veld02: deux\n\ + \field1: unos\n\ + \---" + ] -- cgit v1.2.3