diff options
Diffstat (limited to 'tests/Hakyll')
-rw-r--r-- | tests/Hakyll/Core/Provider/Tests.hs | 1 | ||||
-rw-r--r-- | tests/Hakyll/Core/Rules/Tests.hs | 1 | ||||
-rw-r--r-- | tests/Hakyll/Core/Store/Tests.hs | 1 | ||||
-rw-r--r-- | tests/Hakyll/Web/Pandoc/FileType/Tests.hs | 26 | ||||
-rw-r--r-- | tests/Hakyll/Web/Template/Tests.hs | 2 |
5 files changed, 31 insertions, 0 deletions
diff --git a/tests/Hakyll/Core/Provider/Tests.hs b/tests/Hakyll/Core/Provider/Tests.hs index 5fd9c0d..abe5c1d 100644 --- a/tests/Hakyll/Core/Provider/Tests.hs +++ b/tests/Hakyll/Core/Provider/Tests.hs @@ -37,3 +37,4 @@ case01 = do doesntExist <- resourceMetadata provider "doesntexist.md" M.empty @=? doesntExist + cleanTestEnv diff --git a/tests/Hakyll/Core/Rules/Tests.hs b/tests/Hakyll/Core/Rules/Tests.hs index 1701cff..908f712 100644 --- a/tests/Hakyll/Core/Rules/Tests.hs +++ b/tests/Hakyll/Core/Rules/Tests.hs @@ -53,6 +53,7 @@ rulesTest = do checkRoute "example.mv1" (sv "mv1" "example.md") checkRoute "example.mv2" (sv "mv2" "example.md") readIORef ioref >>= assert + cleanTestEnv where sv g = setVersion (Just g) expected = diff --git a/tests/Hakyll/Core/Store/Tests.hs b/tests/Hakyll/Core/Store/Tests.hs index 19b268b..95140e3 100644 --- a/tests/Hakyll/Core/Store/Tests.hs +++ b/tests/Hakyll/Core/Store/Tests.hs @@ -67,3 +67,4 @@ wrongType = do e == typeOf (undefined :: Int) && t == typeOf (undefined :: String) _ -> False + cleanTestEnv diff --git a/tests/Hakyll/Web/Pandoc/FileType/Tests.hs b/tests/Hakyll/Web/Pandoc/FileType/Tests.hs new file mode 100644 index 0000000..e6b222f --- /dev/null +++ b/tests/Hakyll/Web/Pandoc/FileType/Tests.hs @@ -0,0 +1,26 @@ +-------------------------------------------------------------------------------- +{-# LANGUAGE OverloadedStrings #-} +module Hakyll.Web.Pandoc.FileType.Tests + ( tests + ) where + + +-------------------------------------------------------------------------------- +import Test.Framework (Test, testGroup) +import Test.HUnit ((@=?)) + + +-------------------------------------------------------------------------------- +import Hakyll.Web.Pandoc.FileType +import TestSuite.Util + + +-------------------------------------------------------------------------------- +tests :: Test +tests = testGroup "Hakyll.Web.Pandoc.FileType.Tests" $ + fromAssertions "fileType" + [ Markdown @=? fileType "index.md" + , Rst @=? fileType "about/foo.rst" + , LiterateHaskell Markdown @=? fileType "posts/bananas.lhs" + , LiterateHaskell LaTeX @=? fileType "posts/bananas.tex.lhs" + ] diff --git a/tests/Hakyll/Web/Template/Tests.hs b/tests/Hakyll/Web/Template/Tests.hs index 6fb5233..b96cfa5 100644 --- a/tests/Hakyll/Web/Template/Tests.hs +++ b/tests/Hakyll/Web/Template/Tests.hs @@ -44,6 +44,7 @@ case01 = do pandocCompiler >>= applyTemplate (itemBody tpl) testContext out @=? itemBody item + cleanTestEnv -------------------------------------------------------------------------------- @@ -63,6 +64,7 @@ testApplyJoinTemplateList = do applyJoinTemplateList ", " tpl defaultContext [i1, i2] str @?= "<b>Hello</b>, <b>World</b>" + cleanTestEnv where i1 = Item "item1" "Hello" i2 = Item "item2" "World" |