From d004dc19996c5d1a96a36c46c2580c3f0db33261 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Wed, 25 May 2011 11:24:33 +0200
Subject: Test for UnixFilter

---
 tests/TestSuite/Util.hs | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

(limited to 'tests/TestSuite')

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
-- 
cgit v1.2.3