on master help sign in
ADD: Added failing test cases for `toSiteRoot`.
cc5ea59Izzy Cecil
tests/Hakyll/Web/Html/Tests.hs+2
@@ -59,6 +59,8 @@ tests = testGroup "Hakyll.Web.Html.Tests" $ concat
59 , "." @=? toSiteRoot "index.html"
59 , "." @=? toSiteRoot "index.html"
60 , "." @=? toSiteRoot "/index.html"
60 , "." @=? toSiteRoot "/index.html"
61 , "../.." @=? toSiteRoot "foo/bar/qux"
61 , "../.." @=? toSiteRoot "foo/bar/qux"
62+ , ".." @=? toSiteRoot "./foo/bar.html"
63+ , ".." @=? toSiteRoot "/foo/./bar.html"
62 ]
64 ]
63
65
64 , fromAssertions "isExternal"
66 , fromAssertions "isExternal"