diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-20 11:36:45 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-20 11:36:45 +0100 |
commit | bfa10560f87b1843f9302a70f6c9333fc2731e88 (patch) | |
tree | ebba1270dad7f601c5188c455e3d642130f0ac83 /tests/TestSuite | |
parent | b1f70c339e031c1f6abf04ff63566f2cb9757a07 (diff) | |
download | hakyll-bfa10560f87b1843f9302a70f6c9333fc2731e88.tar.gz |
Re-enable some tests
Diffstat (limited to 'tests/TestSuite')
-rw-r--r-- | tests/TestSuite/Util.hs | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/tests/TestSuite/Util.hs b/tests/TestSuite/Util.hs index 6b19333..9403ce5 100644 --- a/tests/TestSuite/Util.hs +++ b/tests/TestSuite/Util.hs @@ -2,6 +2,8 @@ -- | Test utilities module TestSuite.Util ( fromAssertions + , newTestStore + , cleanTestStore , withTestStore , newTestProvider , testCompiler @@ -36,11 +38,21 @@ fromAssertions name = zipWith testCase names -------------------------------------------------------------------------------- +newTestStore :: IO Store +newTestStore = Store.new True "_teststore" + + +-------------------------------------------------------------------------------- +cleanTestStore :: IO () +cleanTestStore = removeDirectoryRecursive "_teststore" + + +-------------------------------------------------------------------------------- withTestStore :: (Store -> IO a) -> IO a withTestStore f = do - store <- Store.new True "_teststore" + store <- newTestStore result <- f store - removeDirectoryRecursive "_teststore" + cleanTestStore return result |