hasufell/hsfm
1
1
Fork 0
Code Issues 33 Pull Requests Releases Wiki Activity

TESTS: remove side effects from CopyFileOverwriteSpec

Browse Source 
And also compare the results.
This commit is contained in:
Julian Ospald 2016-05-09 00:21:18 +02:00
parent 29f4dc67b6
commit ca9cf51e3c
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
test/FileSystem/FileOperations/CopyFileOverwriteSpec.hs
View File

@ -40,9 +40,16 @@ spec =
(specDir `ba` "outputFile") (specDir `ba` "outputFile")
removeFileIfExists (specDir `ba` "outputFile") removeFileIfExists (specDir `ba` "outputFile")
it "copyFileOverwrite, output file already exists, all clear" $ it "copyFileOverwrite, output file already exists, all clear" $ do
copyFile' (specDir `ba` "alreadyExists") (specDir `ba` "alreadyExists.bak")
copyFileOverwrite' (specDir `ba` "inputFile") copyFileOverwrite' (specDir `ba` "inputFile")
(specDir `ba` "alreadyExists") (specDir `ba` "alreadyExists")
(system $ "cmp -s " ++ specDir' ++ "inputFile" ++ " "
++ specDir' ++ "alreadyExists")
`shouldReturn` ExitSuccess
removeFileIfExists (specDir `ba` "alreadyExists")
copyFile' (specDir `ba` "alreadyExists.bak") (specDir `ba` "alreadyExists")
removeFileIfExists (specDir `ba` "alreadyExists.bak")
it "copyFileOverwrite, and compare" $ do it "copyFileOverwrite, and compare" $ do
copyFileOverwrite' (specDir `ba` "inputFile") copyFileOverwrite' (specDir `ba` "inputFile")