diff --git a/test/Spec.hs b/test/Spec.hs
index b520c42..e1c9cbb 100644
--- 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