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

1 files changed, 3 insertions, 2 deletions

diff --git a/Test.hs b/Test.hs
index f7faf476b..7a5a9aeaa 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 ()