From 69ffbe03563cdbc7be6b826e2def2fc797442792 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Tue, 25 Dec 2012 22:49:17 +0100
Subject: Add demoteHeaders, refactor a bit

---
 tests/Hakyll/Web/Util/Html/Tests.hs | 29 -----------------------------
 1 file changed, 29 deletions(-)
 delete mode 100644 tests/Hakyll/Web/Util/Html/Tests.hs

(limited to 'tests/Hakyll/Web/Util/Html/Tests.hs')

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>"
-        ]
-    ]
-- 
cgit v1.2.3