TESTS: run all tests twice to detect state skew

This commit is contained in:
2016-05-02 19:18:15 +02:00
parent b3b239d4c9
commit 95b49f41dd

View File

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