mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions 1

use a separate tmp dir for the test home

Browse source
This commit is contained in:
Joey Hess 2016-04-20 15:27:59 -04:00
parent 1de54ac671
commit d13819b503
Failed to extract signature
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
Test.hs
View file

@ -110,9 +110,8 @@ optParser = TestOptions
)
runner :: Maybe (TestOptions -> IO ())
runner = Just $ \opts -> do
runner = Just $ \opts -> isolateGitConfig $ do
ensuretmpdir
isolateGitConfig
crippledfilesystem <- Annex.Init.probeCrippledFileSystem' tmpdir
case tryIngredients ingredients (tastyOptionSet opts) (tests crippledfilesystem opts) of
Nothing -> error "No tests found!?"
@ -1790,14 +1789,13 @@ ensuretmpdir = do
createDirectory tmpdir
{- Prevent global git configs from affecting the test suite. -}
isolateGitConfig :: IO ()
isolateGitConfig = do
let tmphome = tmpdir </> "home"
createDirectoryIfMissing False tmphome
isolateGitConfig :: IO a -> IO a
isolateGitConfig a = Utility.Tmp.withTmpDir "testhome" $ \tmphome -> do
tmphomeabs <- absPath tmphome
Utility.Env.setEnv "HOME" tmphomeabs True
Utility.Env.setEnv "XDG_CONFIG_HOME" tmphomeabs True
Utility.Env.setEnv "GIT_CONFIG_NOSYSTEM" "1" True
a
cleanup :: FilePath -> IO ()
cleanup = cleanup' False