diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-04-20 15:09:46 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-04-20 15:09:46 -0400 |
commit | 635a524ebc3cdfcfd27871466d0eaa21467055ad (patch) | |
tree | cc2652d8c105f357e82cf4c7313cafaad67df84b /Test.hs | |
parent | 7e05ea7f9e9b28b7b35a8080e9b8104c55de9c4e (diff) |
a couple of tests chdir in ways that need an absolute path in the overridden HOME
Diffstat (limited to 'Test.hs')
-rw-r--r-- | Test.hs | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -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 () |