8cec091 · hakyll · git.iko.soy

tests/Hakyll/Web/Page/Tests.hs+1−2

compare with master

unifiedsplit

@@ -15,8 +15,7 @@ import Hakyll.Web.Page.Read

15import TestSuite.Util

16

17tests :: [Test]

18−tests = fromAssertions "applyTemplate"

18+tests = fromAssertions "readPage"

19− -- Hakyll templates

20 [ Page (M.singleton "foo" "bar") "body\n" @=? readPage

19 [ Page (M.singleton "foo" "bar") "body\n" @=? readPage

21 "--- \n\

20 "--- \n\

22 \foo: bar \n\

21 \foo: bar \n\

tests/Hakyll/Web/RelativizeUrls/Tests.hsnew file+21

@@ -0,0 +1,21 @@

1+{-# LANGUAGE OverloadedStrings #-}

2+module Hakyll.Web.RelativizeUrls.Tests

3+ ( tests

4+ ) where

5+

6+import Test.Framework

7+import Test.Framework.Providers.HUnit

8+import Test.HUnit hiding (Test)

9+

10+import Hakyll.Web.RelativizeUrls

11+import TestSuite.Util

12+

13+tests :: [Test]

14+tests = fromAssertions "relativizeUrls"

15+ [ "<a href=\"../foo\">bar</a>" @=?

16+ relativizeUrls ".." "<a href=\"/foo\">bar</a>"

17+ , "<img src=\"../../images/lolcat.png\"></img>" @=?

18+ relativizeUrls "../.." "<img src=\"/images/lolcat.png\" />"

19+ , "<a href=\"http://haskell.org\">Haskell</a>" @=?

20+ relativizeUrls "../.." "<a href=\"http://haskell.org\">Haskell</a>"

21+ ]

tests/TestSuite.hs+3

@@ -6,6 +6,7 @@ import qualified Hakyll.Core.DirectedGraph.Tests

6import qualified Hakyll.Core.Identifier.Tests

7import qualified Hakyll.Core.Routes.Tests

8import qualified Hakyll.Web.Page.Tests

9+import qualified Hakyll.Web.RelativizeUrls.Tests

9import qualified Hakyll.Web.Template.Tests

10import qualified Hakyll.Web.Template.Tests

10

11

11main :: IO ()

12main :: IO ()

@@ -18,6 +19,8 @@ main = defaultMain

18 Hakyll.Core.Routes.Tests.tests

19 Hakyll.Core.Routes.Tests.tests

19 , testGroup "Hakyll.Web.Page.Tests"

20 , testGroup "Hakyll.Web.Page.Tests"

20 Hakyll.Web.Page.Tests.tests

21 Hakyll.Web.Page.Tests.tests

22+ , testGroup "Hakyll.Web.RelativizeUrls.Tests"

23+ Hakyll.Web.RelativizeUrls.Tests.tests

21 , testGroup "Hakyll.Web.Template.Tests"

24 , testGroup "Hakyll.Web.Template.Tests"

22 Hakyll.Web.Template.Tests.tests

25 Hakyll.Web.Template.Tests.tests

23 ]

26 ]