diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-06-15 20:15:33 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-06-15 20:15:33 +0200 |
| commit | 537e72333f8deafa59219b60dcae0a4f52569317 (patch) | |
| tree | adfc1212c510ff8196ef1ac99139083978a88db2 /tests/Hakyll/Web/Html/Tests.hs | |
| parent | a591b1622fe9608bc1dc485b74a54730c958bf4d (diff) | |
| download | hakyll-537e72333f8deafa59219b60dcae0a4f52569317.tar.gz | |
Sanitize URLs in toUrl
Closes #163
Diffstat (limited to 'tests/Hakyll/Web/Html/Tests.hs')
| -rw-r--r-- | tests/Hakyll/Web/Html/Tests.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/Hakyll/Web/Html/Tests.hs b/tests/Hakyll/Web/Html/Tests.hs index bfb6b7c..a33823c 100644 --- a/tests/Hakyll/Web/Html/Tests.hs +++ b/tests/Hakyll/Web/Html/Tests.hs @@ -43,9 +43,10 @@ tests = testGroup "Hakyll.Web.Html.Tests" $ concat ] , fromAssertions "toUrl" - [ "/foo/bar.html" @=? toUrl "foo/bar.html" - , "/" @=? toUrl "/" - , "/funny-pics.html" @=? toUrl "/funny-pics.html" + [ "/foo/bar.html" @=? toUrl "foo/bar.html" + , "/" @=? toUrl "/" + , "/funny-pics.html" @=? toUrl "/funny-pics.html" + , "/funny%20pics.html" @=? toUrl "funny pics.html" ] , fromAssertions "toSiteRoot" |