From 1de54ac671b11eb8039f5d5b219ef3f7652b5658 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 20 Apr 2016 15:09:46 -0400 Subject: [PATCH] a couple of tests chdir in ways that need an absolute path in the overridden HOME --- Test.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Test.hs b/Test.hs index f7faf476be..7a5a9aeaa4 100644 --- a/Test.hs +++ b/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 ()