Merge branch 'master' into type-safe-identifiers

1 files changed, 28 insertions, 0 deletions

diff --git a/tests/TestSuite/Util.hs b/tests/TestSuite/Util.hs
index f32bcad..d82b280 100644
--- a/tests/TestSuite/Util.hs
+++ b/tests/TestSuite/Util.hs
@@ -2,15 +2,43 @@
 --
 module TestSuite.Util
     ( fromAssertions
+    , makeStoreTest
+    , runCompilerJobTest
     ) where
 
+import Data.Monoid (mempty)
+
 import Test.Framework
 import Test.Framework.Providers.HUnit
 import Test.HUnit hiding (Test)
 
+import Hakyll.Core.Compiler.Internal
+import Hakyll.Core.Identifier
+import Hakyll.Core.Logger
+import Hakyll.Core.Resource.Provider
+import Hakyll.Core.Store
+
 fromAssertions :: String       -- ^ Name
                -> [Assertion]  -- ^ Cases
                -> [Test]       -- ^ Result tests
 fromAssertions name = zipWith testCase names
   where
     names = map (\n -> name ++ " [" ++ show n ++ "]") [1 :: Int ..]
+
+-- | Create a store for testing
+--
+makeStoreTest :: IO Store
+makeStoreTest = makeStore "_store"
+
+-- | Testing for 'runCompilerJob'
+--
+runCompilerJobTest :: Compiler () a
+                   -> Identifier
+                   -> ResourceProvider
+                   -> [Identifier]
+                   -> IO a
+runCompilerJobTest compiler id' provider uni = do
+    store <- makeStoreTest
+    logger <- makeLogger $ const $ return ()
+    Right x <- runCompilerJob compiler id' provider uni mempty store True logger
+    return x