TESTS: run all tests twice to detect state skew

2016-05-02 19:18:15 +02:00 · 2016-05-02 19:18:15 +02:00 · 95b49f41dd
parent b3b239d4c9
commit 95b49f41dd
1 changed files with 13 additions and 7 deletions
--- a/test/Spec.hs
+++ b/test/Spec.hs
@ -36,13 +36,19 @@ import System.Process

 main :: IO ()
 main = hspec $ do
-  copyFileSpec
-  copyDirRecursiveSpec
-  createDirSpec
-  createRegularFileSpec
-  renameFileSpec
-  moveFileSpec
-  recreateSymlinkSpec
+  let tests = [copyFileSpec
+              , copyDirRecursiveSpec
+              , createDirSpec
+              , createRegularFileSpec
+              , renameFileSpec
+              , moveFileSpec
+              ,recreateSymlinkSpec
+              ]
+
+  -- run all tests twice to catch missing cleanups or state skew
+  sequence_ tests
+  sequence_ tests
+
  -- TODO: deleteFile, deleteDir, deleteDirRecursive, getDirsFiles, getFileType