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/CanonicalizePathSpec.hs
+++ b/test/HPath/IO/CanonicalizePathSpec.hs
@@ -17,6 +17,11 @@ import Utils



+upTmpDir :: IO ()
+upTmpDir = do
+  setTmpDir "CanonicalizePathSpec"
+  createTmpDir
+
 setupFiles :: IO ()
 setupFiles = do
  createRegularFile' "file"
@@ -35,7 +40,7 @@ cleanupFiles = do


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

    -- successes --