a couple of tests chdir in ways that need an absolute path in the overridden HOME
This commit is contained in:
parent
fcd09badca
commit
1de54ac671
1 changed files with 3 additions and 2 deletions
5
Test.hs
5
Test.hs
|
@ -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 ()
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue