[elpa] externals/org b3660cf135 7/9: * testing/lisp/test-org-attach-git.el: Avoid using global git config

[ELPA Syncer]

branch: externals/org
commit b3660cf1351e9ffeb7dc127f53a82171e89e155c
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    * testing/lisp/test-org-attach-git.el: Avoid using global git config
    
    (test-org-attach-git/with-annex): Disable global git config during
    testing.
---
 testing/lisp/test-org-attach-git.el | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/testing/lisp/test-org-attach-git.el 
b/testing/lisp/test-org-attach-git.el
index cc2a1dc627..e8b41fe8ce 100644
--- a/testing/lisp/test-org-attach-git.el
+++ b/testing/lisp/test-org-attach-git.el
@@ -28,9 +28,16 @@
      (unwind-protect
         (let ((default-directory tmpdir)
               (org-attach-id-dir tmpdir))
-          (shell-command "git init")
-          (shell-command "git annex init")
-          ,@body))))
+           ;; Ignore global git config.
+           (with-environment-variables
+               (("GIT_CONFIG_GLOBAL" (concat tmpdir ".global-config"))
+                ("GIT_CONFIG_SYSTEM" ""))
+             ;; Otherwise, some git operations may err.
+             (shell-command "git config --global user.email 
\"john.doe@example.com\"")
+             (shell-command "git config --global user.name \"John Doe\"")
+            (shell-command "git init")
+            (shell-command "git annex init")
+            ,@body)))))
 
 (ert-deftest test-org-attach-git/use-annex ()
   (test-org-attach-git/with-annex