diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-12-25 22:49:17 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-12-25 22:49:29 +0100 |
| commit | 69ffbe03563cdbc7be6b826e2def2fc797442792 (patch) | |
| tree | 3792ce42ee2e9983876f9177533201dd712b76d1 /tests/Hakyll/Web/Util/Html/Tests.hs | |
| parent | 2ae11c9d7f3138fe9e8397059c641e1962ede197 (diff) | |
| download | hakyll-69ffbe03563cdbc7be6b826e2def2fc797442792.tar.gz | |
Add demoteHeaders, refactor a bit
Diffstat (limited to 'tests/Hakyll/Web/Util/Html/Tests.hs')
| -rw-r--r-- | tests/Hakyll/Web/Util/Html/Tests.hs | 29 |
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 & Dean" @=? escapeHtml "Me & Dean" - , "<img>" @=? escapeHtml "<img>" - ] - ] |