test: Set git user name and email in case git can't guess values.

1 files changed, 3 insertions, 0 deletions

diff --git a/test.hs b/test.hs
index b32a4abb0..309b54176 100644
--- a/test.hs
+++ b/test.hs
@@ -508,6 +508,9 @@ setuprepo dir = do
 	cleanup dir
 	ensuretmpdir
 	Utility.boolSystem "git" ["init", "-q", dir] @? "git init failed"
+	indir dir $ do
+		Utility.boolSystem "git" ["config", "user.name", "Test User"] @? "git config failed"
+		Utility.boolSystem "git" ["config", "user.email", "test@example.com"] @? "git config failed"
 	return dir
 
 copyrepo :: FilePath -> FilePath -> IO FilePath