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

a couple of tests chdir in ways that need an absolute path in the overridden HOME

Browse source
This commit is contained in:
Joey Hess 2016-04-20 15:09:46 -04:00
parent fcd09badca
commit 1de54ac671
Failed to extract signature
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Test.hs
View file

@ -1794,8 +1794,9 @@ isolateGitConfig :: IO ()
isolateGitConfig = do isolateGitConfig = do
let tmphome = tmpdir </> "home" let tmphome = tmpdir </> "home"
createDirectoryIfMissing False tmphome createDirectoryIfMissing False tmphome
Utility.Env.setEnv "HOME" tmphome True tmphomeabs <- absPath tmphome
Utility.Env.setEnv "XDG_CONFIG_HOME" tmphome True Utility.Env.setEnv "HOME" tmphomeabs True
Utility.Env.setEnv "XDG_CONFIG_HOME" tmphomeabs True
Utility.Env.setEnv "GIT_CONFIG_NOSYSTEM" "1" True Utility.Env.setEnv "GIT_CONFIG_NOSYSTEM" "1" True
cleanup :: FilePath -> IO () cleanup :: FilePath -> IO ()