From 12b4e8a0b276829747dffd45ddb6fd89d0c61454 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Fri, 25 Nov 2011 23:05:50 +0100
Subject: Add escapeHtml function

---
 tests/Hakyll/Web/Util/Html/Tests.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'tests/Hakyll')

diff --git a/tests/Hakyll/Web/Util/Html/Tests.hs b/tests/Hakyll/Web/Util/Html/Tests.hs
index fc72cdf..e73c88b 100644
--- a/tests/Hakyll/Web/Util/Html/Tests.hs
+++ b/tests/Hakyll/Web/Util/Html/Tests.hs
@@ -15,4 +15,8 @@ tests = concat
         , "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