699a4e1 · hakyll · git.iko.soy

git.iko.soy/hakyll

on master help sign in

Add tests for stripTags

699a4e1Jasper Van der Jeugt15 years ago

tests/Hakyll/Web/Util/Html/Tests.hsnew file+18

compare with master

unifiedsplit

@@ -0,0 +1,18 @@

1+module Hakyll.Web.Util.Html.Tests

2+ ( tests

3+ ) where

5+import Test.Framework

6+import Test.HUnit hiding (Test)

8+import Hakyll.Web.Util.Html

9+import TestSuite.Util

10+

11+tests :: [Test]

12+tests = concat

13+ [ fromAssertions "stripTags"

14+ [ "foo" @=? stripTags "foo"

15+ , "foo bar" @=? stripTags "foo bar"

16+ , "foo" @=? stripTags "foo</p"

17+ ]

18+ ]

tests/TestSuite.hs+3

@@ -12,6 +12,7 @@ import qualified Hakyll.Web.Page.Tests

12import qualified Hakyll.Web.Page.Metadata.Tests

13import qualified Hakyll.Web.RelativizeUrls.Tests

14import qualified Hakyll.Web.Template.Tests

15+import qualified Hakyll.Web.Util.Html.Tests

15import qualified Hakyll.Web.Util.Url.Tests

16import qualified Hakyll.Web.Util.Url.Tests

17main :: IO ()

18main :: IO ()

@@ -36,6 +37,8 @@ main = defaultMain

36 Hakyll.Web.RelativizeUrls.Tests.tests

37 Hakyll.Web.RelativizeUrls.Tests.tests

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

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

38 Hakyll.Web.Template.Tests.tests

39 Hakyll.Web.Template.Tests.tests

40+ , testGroup "Hakyll.Web.Util.Html.Tests"

41+ Hakyll.Web.Util.Html.Tests.tests

39 , testGroup "Hakyll.Web.Util.Url.Tests"

42 , testGroup "Hakyll.Web.Util.Url.Tests"

40 Hakyll.Web.Util.Url.Tests.tests

43 Hakyll.Web.Util.Url.Tests.tests

41 ]

44 ]