TESTS: run all tests twice to detect state skew

This commit is contained in:
Julian Ospald 2016-05-02 19:18:15 +02:00
parent b3b239d4c9
commit 95b49f41dd
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28

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