diff options
Diffstat (limited to 'tests/Hakyll')
-rw-r--r-- | tests/Hakyll/Web/Urls/Relativize/Tests.hs | 3 | ||||
-rw-r--r-- | tests/Hakyll/Web/Urls/Tests.hs | 4 |
2 files changed, 3 insertions, 4 deletions
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>" @=? |