From 2caa185504ec697b96b7bf28dd9d15d489777abf Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Wed, 28 Nov 2012 10:24:09 +0100
Subject: Minimize <img>, patch by Chris Mears

Conflicts:
	tests/Hakyll/Web/Urls/Relativize/Tests.hs
---
 tests/Hakyll/Web/Urls/Relativize/Tests.hs | 3 +--
 tests/Hakyll/Web/Urls/Tests.hs            | 4 ++--
 2 files changed, 3 insertions(+), 4 deletions(-)

(limited to 'tests')

diff --git a/tests/Hakyll/Web/Urls/Relativize/Tests.hs b/tests/Hakyll/Web/Urls/Relativize/Tests.hs
index e14a2a4..802a1ca 100644
--- a/tests/Hakyll/Web/Urls/Relativize/Tests.hs
+++ b/tests/Hakyll/Web/Urls/Relativize/Tests.hs
@@ -9,7 +9,6 @@ module Hakyll.Web.Urls.Relativize.Tests
 import           Test.Framework             (Test, testGroup)
 import           Test.HUnit                 ((@=?))
 
-
 --------------------------------------------------------------------------------
 import           Hakyll.Web.Urls.Relativize
 import           TestSuite.Util
@@ -21,7 +20,7 @@ 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\"></img>" @=?
+        , "<img src=\"../../images/lolcat.png\" />" @=?
             relativizeUrlsWith "../.." "<img src=\"/images/lolcat.png\" />"
         , "<a href=\"http://haskell.org\">Haskell</a>" @=?
             relativizeUrlsWith "../.."
diff --git a/tests/Hakyll/Web/Urls/Tests.hs b/tests/Hakyll/Web/Urls/Tests.hs
index 56a1838..648f308 100644
--- a/tests/Hakyll/Web/Urls/Tests.hs
+++ b/tests/Hakyll/Web/Urls/Tests.hs
@@ -21,8 +21,8 @@ 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\">"
+        , "<img src=\"OH BAR\" />" @=?
+            withUrls (map toUpper) "<img src=\"oh bar\" />"
 
         -- Test escaping
         , "<script>\"sup\"</script>" @=?
-- 
cgit v1.2.3