Add demoteHeaders, refactor a bit

1 files changed, 0 insertions, 34 deletions

diff --git a/tests/Hakyll/Web/Urls/Relativize/Tests.hs b/tests/Hakyll/Web/Urls/Relativize/Tests.hs
deleted file mode 100644
index 802a1ca..0000000
--- a/tests/Hakyll/Web/Urls/Relativize/Tests.hs
+++ /dev/null
@@ -1,34 +0,0 @@
---------------------------------------------------------------------------------
-{-# LANGUAGE OverloadedStrings #-}
-module Hakyll.Web.Urls.Relativize.Tests
-    ( tests
-    ) where
-
-
---------------------------------------------------------------------------------
-import           Test.Framework             (Test, testGroup)
-import           Test.HUnit                 ((@=?))
-
---------------------------------------------------------------------------------
-import           Hakyll.Web.Urls.Relativize
-import           TestSuite.Util
-
-
---------------------------------------------------------------------------------
-tests :: Test
-tests = testGroup "Hakyll.Web.Urls.Relativize.Tests" $
-    fromAssertions "relativizeUrls"
-        [ "<a href=\"../foo\">bar</a>" @=?
-            relativizeUrlsWith ".." "<a href=\"/foo\">bar</a>"
-        , "<img src=\"../../images/lolcat.png\" />" @=?
-            relativizeUrlsWith "../.." "<img src=\"/images/lolcat.png\" />"
-        , "<a href=\"http://haskell.org\">Haskell</a>" @=?
-            relativizeUrlsWith "../.."
-                "<a href=\"http://haskell.org\">Haskell</a>"
-        , "<a href=\"http://haskell.org\">Haskell</a>" @=?
-            relativizeUrlsWith "../.."
-                "<a href=\"http://haskell.org\">Haskell</a>"
-        , "<script src=\"//ajax.googleapis.com/jquery.min.js\"></script>" @=?
-            relativizeUrlsWith "../.."
-                "<script src=\"//ajax.googleapis.com/jquery.min.js\"></script>"
-        ]