diff options
Diffstat (limited to 'tests/Hakyll')
-rw-r--r-- | tests/Hakyll/Core/Runtime/Tests.hs | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/tests/Hakyll/Core/Runtime/Tests.hs b/tests/Hakyll/Core/Runtime/Tests.hs new file mode 100644 index 0000000..bb39a5f --- /dev/null +++ b/tests/Hakyll/Core/Runtime/Tests.hs @@ -0,0 +1,37 @@ +-------------------------------------------------------------------------------- +{-# LANGUAGE OverloadedStrings #-} +module Hakyll.Core.Runtime.Tests + ( tests + ) where + + +-------------------------------------------------------------------------------- +import System.FilePath ((</>)) +import Test.Framework (Test, testGroup) +import Test.HUnit (Assertion, (@?=)) + + +-------------------------------------------------------------------------------- +import Hakyll.Core.Configuration +import Hakyll.Core.Routes +import Hakyll.Core.Rules +import Hakyll.Core.Runtime +import Hakyll.Web.Page +import TestSuite.Util + + +-------------------------------------------------------------------------------- +tests :: Test +tests = testGroup "Hakyll.Core.Runtime.Tests" $ fromAssertions "run" [case01] + + +-------------------------------------------------------------------------------- +case01 :: Assertion +case01 = withTestConfiguration $ \config -> do + _ <- run config $ do + match "*.md" $ do + route $ setExtension "html" + compile $ pageCompiler + + out <- readFile $ destinationDirectory config </> "example.html" + lines out @?= ["<p>This is an example.</p>"] |