From 63a3000f9cab6446ce40cf6d9671123baee6c22b Mon Sep 17 00:00:00 2001 From: Simonas Kazlauskas Date: Wed, 3 Apr 2013 15:26:51 +0300 Subject: Account for scheme-relative URLs http://url.spec.whatwg.org/#concept-scheme-relative-url --- tests/Hakyll/Web/Html/Tests.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'tests/Hakyll/Web/Html/Tests.hs') diff --git a/tests/Hakyll/Web/Html/Tests.hs b/tests/Hakyll/Web/Html/Tests.hs index 1c17f5c..bfb6b7c 100644 --- a/tests/Hakyll/Web/Html/Tests.hs +++ b/tests/Hakyll/Web/Html/Tests.hs @@ -58,6 +58,7 @@ tests = testGroup "Hakyll.Web.Html.Tests" $ concat , fromAssertions "isExternal" [ assert (isExternal "http://reddit.com") , assert (isExternal "https://mail.google.com") + , assert (isExternal "//ajax.googleapis.com") , assert (not (isExternal "../header.png")) , assert (not (isExternal "/foo/index.html")) ] -- cgit v1.2.3