summaryrefslogtreecommitdiff
path: root/tests/Hakyll/Web
diff options
context:
space:
mode:
authorIzzy Cecil <lorr.cecil@gmail.com>2014-04-19 17:20:58 -0600
committerIzzy Cecil <lorr.cecil@gmail.com>2014-04-19 17:20:58 -0600
commitcc5ea59b8cc52a0a7afa092af799761db2c4c7c1 (patch)
treebafc932f35416b4fbf7fbbd128ffae1557b53d7a /tests/Hakyll/Web
parent889e6f59f761795af3f2cb83c2a551b9c8478d66 (diff)
downloadhakyll-cc5ea59b8cc52a0a7afa092af799761db2c4c7c1.tar.gz
ADD: Added failing test cases for `toSiteRoot`.
Diffstat (limited to 'tests/Hakyll/Web')
-rw-r--r--tests/Hakyll/Web/Html/Tests.hs2
1 files changed, 2 insertions, 0 deletions
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"