From cc5ea59b8cc52a0a7afa092af799761db2c4c7c1 Mon Sep 17 00:00:00 2001
From: Izzy Cecil <lorr.cecil@gmail.com>
Date: Sat, 19 Apr 2014 17:20:58 -0600
Subject: ADD: Added failing test cases for `toSiteRoot`.
---
tests/Hakyll/Web/Html/Tests.hs | 2 ++
1 file changed, 2 insertions(+)
(limited to 'tests/Hakyll')
diff --git a/tests/Hakyll/Web/Html/Tests.hs b/tests/Hakyll/Web/Html/Tests.hs
index e150ea2..bad5ebc 100644
--- a/tests/Hakyll/Web/Html/Tests.hs
+++ b/tests/Hakyll/Web/Html/Tests.hs
@@ -59,6 +59,8 @@ tests = testGroup "Hakyll.Web.Html.Tests" $ concat
, "." @=? toSiteRoot "index.html"
, "." @=? toSiteRoot "/index.html"
, "../.." @=? toSiteRoot "foo/bar/qux"
+ , ".." @=? toSiteRoot "./foo/bar.html"
+ , ".." @=? toSiteRoot "/foo/./bar.html"
]
, fromAssertions "isExternal"
--
cgit v1.2.3