diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2011-09-06 22:26:07 +0200 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2011-09-06 22:27:53 +0200 |
commit | 75f157ca8c319d770f02c38d65226bb3de495a0e (patch) | |
tree | 51c92ac2658e3f265dc3971651dd89817f4e6cc9 /tests/Hakyll/Web/Util/Url | |
parent | bf4115eb0fad1a3b7a0ce5dc71b55045df30995b (diff) | |
download | hakyll-75f157ca8c319d770f02c38d65226bb3de495a0e.tar.gz |
Add some URL utilities
Diffstat (limited to 'tests/Hakyll/Web/Util/Url')
-rw-r--r-- | tests/Hakyll/Web/Util/Url/Tests.hs | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/tests/Hakyll/Web/Util/Url/Tests.hs b/tests/Hakyll/Web/Util/Url/Tests.hs deleted file mode 100644 index aab4172..0000000 --- a/tests/Hakyll/Web/Util/Url/Tests.hs +++ /dev/null @@ -1,25 +0,0 @@ -module Hakyll.Web.Util.Url.Tests - ( tests - ) where - -import Test.Framework -import Test.HUnit hiding (Test) - -import Hakyll.Web.Util.Url -import TestSuite.Util - -tests :: [Test] -tests = concat - [ fromAssertions "toUrl" - [ "/foo/bar.html" @=? toUrl "foo/bar.html" - , "/" @=? toUrl "/" - , "/funny-pics.html" @=? toUrl "/funny-pics.html" - ] - - , fromAssertions "toSiteRoot" - [ ".." @=? toSiteRoot "/foo/bar.html" - , "." @=? toSiteRoot "index.html" - , "." @=? toSiteRoot "/index.html" - , "../.." @=? toSiteRoot "foo/bar/qux" - ] - ] |