diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-26 16:11:37 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-26 16:11:37 +0100 |
commit | 1bcce776e786eb6688bace653ecafa1a5a4fb563 (patch) | |
tree | fc889c8e4af23c32dec6637d5c4e2de1fe383830 /tests/Hakyll/Core/Routes/Tests.hs | |
parent | 25b8c8b199082ebbc41d1af03fc19202b798f156 (diff) | |
download | hakyll-1bcce776e786eb6688bace653ecafa1a5a4fb563.tar.gz |
Re-add some tests, cleanup...
Diffstat (limited to 'tests/Hakyll/Core/Routes/Tests.hs')
-rw-r--r-- | tests/Hakyll/Core/Routes/Tests.hs | 21 |
1 files changed, 14 insertions, 7 deletions
diff --git a/tests/Hakyll/Core/Routes/Tests.hs b/tests/Hakyll/Core/Routes/Tests.hs index d204b16..8bdbe85 100644 --- a/tests/Hakyll/Core/Routes/Tests.hs +++ b/tests/Hakyll/Core/Routes/Tests.hs @@ -1,17 +1,24 @@ +-------------------------------------------------------------------------------- {-# LANGUAGE OverloadedStrings #-} module Hakyll.Core.Routes.Tests ( tests ) where -import Test.Framework -import Test.HUnit hiding (Test) -import Hakyll.Core.Identifier -import Hakyll.Core.Routes -import TestSuite.Util +-------------------------------------------------------------------------------- +import Test.Framework (Test, testGroup) +import Test.HUnit ((@=?)) -tests :: [Test] -tests = fromAssertions "runRoutes" + +-------------------------------------------------------------------------------- +import Hakyll.Core.Identifier +import Hakyll.Core.Routes +import TestSuite.Util + + +-------------------------------------------------------------------------------- +tests :: Test +tests = testGroup "Hakyll.Core.Routes.Tests" $ fromAssertions "runRoutes" [ Just "foo.html" @=? runRoutes (setExtension "html") "foo" , Just "foo.html" @=? runRoutes (setExtension ".html") "foo" , Just "foo.html" @=? runRoutes (setExtension "html") "foo.markdown" |