TESTS: run all tests twice to detect state skew
This commit is contained in:
parent
b3b239d4c9
commit
95b49f41dd
20
test/Spec.hs
20
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
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user