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 = 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