diff options
| author | Izzy Cecil <lorr.cecil@gmail.com> | 2014-04-19 17:20:58 -0600 |
|---|---|---|
| committer | Izzy Cecil <lorr.cecil@gmail.com> | 2014-04-19 17:20:58 -0600 |
| commit | cc5ea59b8cc52a0a7afa092af799761db2c4c7c1 (patch) | |
| tree | bafc932f35416b4fbf7fbbd128ffae1557b53d7a | |
| parent | 889e6f59f761795af3f2cb83c2a551b9c8478d66 (diff) | |
| download | hakyll-cc5ea59b8cc52a0a7afa092af799761db2c4c7c1.tar.gz | |
ADD: Added failing test cases for `toSiteRoot`.
| -rw-r--r-- | tests/Hakyll/Web/Html/Tests.hs | 2 |
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" |