Skip to content
Snippets Groups Projects
Commit 0723e383 authored by Patrick Augusto's avatar Patrick Augusto Committed by Emily Pillmore
Browse files

Adding an extra check in the v2-configure tests

parent db63e9c4
No related branches found
No related tags found
No related merge requests found
......@@ -5,6 +5,7 @@ import Distribution.Client.CmdConfigure
import Test.Tasty
import Test.Tasty.HUnit
import Control.Monad
import System.Directory
import System.FilePath
import Distribution.Verbosity
......@@ -85,7 +86,10 @@ configureTests = testGroup "Configure tests"
}
backup = projectFile <.> "local~"
removeFile backup
exists <- doesFileExist backup
when exists $
removeFile backup
_ <- configureAction' flags [] defaultGlobalFlags
doesFileExist backup >>=
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment