diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-28 22:40:23 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-28 22:40:23 +0100 |
| commit | d460fd88d13984aa0e851527f7ff65065230c411 (patch) | |
| tree | 15dd7f4444743ecae78abad8ce7d20ba71ee9258 /tests/Hakyll/Core/Routes/Tests.hs | |
| parent | 49989eab5767b24cb3e917b95137ae05566e34a8 (diff) | |
| download | hakyll-d460fd88d13984aa0e851527f7ff65065230c411.tar.gz | |
Add `gsubRoute`
Diffstat (limited to 'tests/Hakyll/Core/Routes/Tests.hs')
| -rw-r--r-- | tests/Hakyll/Core/Routes/Tests.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/Hakyll/Core/Routes/Tests.hs b/tests/Hakyll/Core/Routes/Tests.hs index 5aa6dbd..201c656 100644 --- a/tests/Hakyll/Core/Routes/Tests.hs +++ b/tests/Hakyll/Core/Routes/Tests.hs @@ -15,4 +15,7 @@ tests = fromAssertions "runRoutes" , Just "foo.html" @=? runRoutes (setExtension ".html") "foo" , Just "foo.html" @=? runRoutes (setExtension "html") "foo.markdown" , Just "foo.html" @=? runRoutes (setExtension ".html") "foo.markdown" + + , Just "tags/bar.xml" @=? + runRoutes (gsubRoute "rss/" (const "")) "tags/rss/bar.xml" ] |