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

This commit is contained in:
Joey Hess 2016-04-20 15:09:46 -04:00
parent fcd09badca
commit 1de54ac671
Failed to extract signature

View file

@ -1794,8 +1794,9 @@ isolateGitConfig :: IO ()
isolateGitConfig = do
let tmphome = tmpdir </> "home"
createDirectoryIfMissing False tmphome
Utility.Env.setEnv "HOME" tmphome True
Utility.Env.setEnv "XDG_CONFIG_HOME" tmphome True
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
cleanup :: FilePath -> IO ()