diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-01-25 10:36:17 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-01-25 10:36:17 +0100 |
| commit | 98d311ebc87d8818160bd9c115b8cac4b958c4e1 (patch) | |
| tree | 49ca87696ffc16a89a03d7d9985cabcdc30d1758 /tests/Hakyll/Web | |
| parent | d31e92c09dc824a9347ec935f1dbebfa1512226a (diff) | |
| download | hakyll-98d311ebc87d8818160bd9c115b8cac4b958c4e1.tar.gz | |
Fix TagSoup options and bump its dependency
Diffstat (limited to 'tests/Hakyll/Web')
| -rw-r--r-- | tests/Hakyll/Web/Urls/Tests.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/Hakyll/Web/Urls/Tests.hs b/tests/Hakyll/Web/Urls/Tests.hs index db7a10b..d7bd3a6 100644 --- a/tests/Hakyll/Web/Urls/Tests.hs +++ b/tests/Hakyll/Web/Urls/Tests.hs @@ -17,6 +17,12 @@ tests = concat withUrls (map toUpper) "<a href=\"foo\">bar</a>" , "<img src=\"OH BAR\">" @=? withUrls (map toUpper) "<img src=\"oh bar\">" + + -- Test escaping + , "<script>\"sup\"</script>" @=? + withUrls id "<script>\"sup\"</script>" + , "<code><stdio></code>" @=? + withUrls id "<code><stdio></code>" ] , fromAssertions "toUrl" [ "/foo/bar.html" @=? toUrl "foo/bar.html" |