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 :: 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
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user