summaryrefslogtreecommitdiff
path: root/tests/Hakyll/Web/Util/Html/Tests.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/Hakyll/Web/Util/Html/Tests.hs')
-rw-r--r--tests/Hakyll/Web/Util/Html/Tests.hs29
1 files changed, 0 insertions, 29 deletions
diff --git a/tests/Hakyll/Web/Util/Html/Tests.hs b/tests/Hakyll/Web/Util/Html/Tests.hs
deleted file mode 100644
index 3a99ca7..0000000
--- a/tests/Hakyll/Web/Util/Html/Tests.hs
+++ /dev/null
@@ -1,29 +0,0 @@
---------------------------------------------------------------------------------
-module Hakyll.Web.Util.Html.Tests
- ( tests
- ) where
-
-
---------------------------------------------------------------------------------
-import Test.Framework (Test, testGroup)
-import Test.HUnit ((@=?))
-
-
---------------------------------------------------------------------------------
-import Hakyll.Web.Util.Html
-import TestSuite.Util
-
-
---------------------------------------------------------------------------------
-tests :: Test
-tests = testGroup "Hakyll.Web.Util.Html" $ concat
- [ fromAssertions "stripTags"
- [ "foo" @=? stripTags "<p>foo</p>"
- , "foo bar" @=? stripTags "<p>foo</p> bar"
- , "foo" @=? stripTags "<p>foo</p"
- ]
- , fromAssertions "escapeHtml"
- [ "Me &amp; Dean" @=? escapeHtml "Me & Dean"
- , "&lt;img&gt;" @=? escapeHtml "<img>"
- ]
- ]