TESTS: less side effects plz

2016-06-05 14:33:53 +02:00
parent 5d1c5cc2ce
commit bc348c7dd5
21 changed files with 262 additions and 54 deletions
--- a/test/HPath/IO/DeleteFileSpec.hs
+++ b/test/HPath/IO/DeleteFileSpec.hs
@@ -20,6 +20,12 @@ import GHC.IO.Exception
 import Utils


+upTmpDir :: IO ()
+upTmpDir = do
+  setTmpDir "DeleteFileSpec"
+  createTmpDir
+
+
 setupFiles :: IO ()
 setupFiles = do
  createRegularFile' "foo"
@@ -40,7 +46,7 @@ cleanupFiles = do


 spec :: Spec
-spec = before_ setupFiles $ after_ cleanupFiles $
+spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $
  describe "HPath.IO.deleteFile" $ do

    -- successes --