From 75f157ca8c319d770f02c38d65226bb3de495a0e Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Tue, 6 Sep 2011 22:26:07 +0200 Subject: Add some URL utilities --- tests/Hakyll/Web/Util/Url/Tests.hs | 25 ------------------------- 1 file changed, 25 deletions(-) delete mode 100644 tests/Hakyll/Web/Util/Url/Tests.hs (limited to 'tests/Hakyll/Web/Util/Url') 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" - ] - ] -- cgit v1.2.3