Add demoteHeaders, refactor a bit

2 files changed, 0 insertions, 89 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>"
-        ]
diff --git a/tests/Hakyll/Web/Urls/Tests.hs b/tests/Hakyll/Web/Urls/Tests.hs
deleted file mode 100644
index 648f308..0000000
--- a/tests/Hakyll/Web/Urls/Tests.hs
+++ /dev/null
@@ -1,55 +0,0 @@
---------------------------------------------------------------------------------
-module Hakyll.Web.Urls.Tests
-    ( tests
-    ) where
-
-
---------------------------------------------------------------------------------
-import           Data.Char       (toUpper)
-import           Test.Framework  (Test, testGroup)
-import           Test.HUnit      (assert, (@=?))
-
-
---------------------------------------------------------------------------------
-import           Hakyll.Web.Urls
-import           TestSuite.Util
-
-
---------------------------------------------------------------------------------
-tests :: Test
-tests = testGroup "Hakyll.Web.Urls.Tests" $ concat
-    [ fromAssertions "withUrls"
-        [ "<a href=\"FOO\">bar</a>" @=?
-            withUrls (map toUpper) "<a href=\"foo\">bar</a>"
-        , "<img src=\"OH BAR\" />" @=?
-            withUrls (map toUpper) "<img src=\"oh bar\" />"
-
-        -- Test escaping
-        , "<script>\"sup\"</script>" @=?
-            withUrls id "<script>\"sup\"</script>"
-        , "<code>&lt;stdio&gt;</code>" @=?
-            withUrls id "<code>&lt;stdio&gt;</code>"
-        , "<style>body > p { line-height: 1.3 }</style>" @=?
-            withUrls id "<style>body > p { line-height: 1.3 }</style>"
-        ]
-
-    , fromAssertions "toUrl"
-        [ "/foo/bar.html"    @=? toUrl "foo/bar.html"
-        , "/"                @=? toUrl "/"
-        , "/funny-pics.html" @=? toUrl "/funny-pics.html"
-        ]
-
-    , fromAssertions "toSiteRoot"
-        [ ".."    @=? toSiteRoot "/foo/bar.html"
-        , "."     @=? toSiteRoot "index.html"
-        , "."     @=? toSiteRoot "/index.html"
-        , "../.." @=? toSiteRoot "foo/bar/qux"
-        ]
-
-    , fromAssertions "isExternal"
-        [ assert (isExternal "http://reddit.com")
-        , assert (isExternal "https://mail.google.com")
-        , assert (not (isExternal "../header.png"))
-        , assert (not (isExternal "/foo/index.html"))
-        ]
-    ]