procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix a vc test for Breezy by setting $HOME

Browse source 
* test/lisp/vc/vc-tests.el (vc--fix-home-for-bzr): New macro.
(vc-test--create-repo, vc-test--register, vc-test--working-revision)
(vc-test--checkout-model, vc-test--rename-file)
(vc-test--version-diff): Fix test for Breezy by setting HOME to a
temporary directory.  (Bug#70195)
This commit is contained in:
Stefan Kangas 2025-03-02 13:26:43 +01:00
parent c73003ade1
commit e4d8095c3d
1 changed files with 13 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
test/lisp/vc/vc-tests.el
View file

@ -177,6 +177,12 @@ For backends which don't support it, it is emulated."
(t (vc-create-repo backend))))
(defmacro vc--fix-home-for-bzr (tempdir)
;; See the comment in `vc-bzr-test-bug9726'.
'(when (eq backend 'Bzr)
(push (format "BZR_HOME=%s" tempdir) process-environment)
(push (format "HOME=%s" tempdir) process-environment)))
(defun vc-test--create-repo (backend)
"Create a test repository in `default-directory', a temporary directory."
(ert-with-temp-directory tempdir
@ -187,10 +193,7 @@ For backends which don't support it, it is emulated."
(make-temp-name "vc-test") temporary-file-directory)))
(process-environment process-environment)
vc-test--cleanup-hook)
(when (eq backend 'Bzr)
(setq process-environment (cons (format "BZR_HOME=%s" tempdir)
process-environment)))
(vc--fix-home-for-bzr tempdir)
(unwind-protect
(progn
;; Cleanup.
@ -242,9 +245,7 @@ This checks also `vc-backend' and `vc-responsible-backend'."
(make-temp-name "vc-test") temporary-file-directory)))
(process-environment process-environment)
vc-test--cleanup-hook)
(when (eq backend 'Bzr)
(setq process-environment (cons (format "BZR_HOME=%s" tempdir)
process-environment)))
(vc--fix-home-for-bzr tempdir)
(unwind-protect
(progn
;; Cleanup.
@ -323,9 +324,7 @@ This checks also `vc-backend' and `vc-responsible-backend'."
(make-temp-name "vc-test") temporary-file-directory)))
(process-environment process-environment)
vc-test--cleanup-hook)
(when (eq backend 'Bzr)
(setq process-environment (cons (format "BZR_HOME=%s" tempdir)
process-environment)))
(vc--fix-home-for-bzr tempdir)
(unwind-protect
(progn
;; Cleanup.
@ -388,10 +387,7 @@ This checks also `vc-backend' and `vc-responsible-backend'."
(make-temp-name "vc-test") temporary-file-directory)))
(process-environment process-environment)
vc-test--cleanup-hook)
(when (eq backend 'Bzr)
(setq process-environment (cons (format "BZR_HOME=%s" tempdir)
process-environment)))
(vc--fix-home-for-bzr tempdir)
(unwind-protect
(progn
;; Cleanup.
@ -466,10 +462,7 @@ This checks also `vc-backend' and `vc-responsible-backend'."
(make-temp-name "vc-test") temporary-file-directory)))
(process-environment process-environment)
vc-test--cleanup-hook)
(when (eq backend 'Bzr)
(setq process-environment (cons (format "BZR_HOME=%s" tempdir)
process-environment)))
(vc--fix-home-for-bzr tempdir)
(unwind-protect
(progn
;; Cleanup.
@ -549,10 +542,7 @@ This checks also `vc-backend' and `vc-responsible-backend'."
(make-temp-name "vc-test") temporary-file-directory)))
(process-environment process-environment)
vc-test--cleanup-hook)
(when (eq backend 'Bzr)
(setq process-environment (cons (format "BZR_HOME=%s" tempdir)
process-environment)))
(vc--fix-home-for-bzr tempdir)
(unwind-protect
(progn
;; Cleanup.
@ -601,9 +591,7 @@ This checks also `vc-backend' and `vc-responsible-backend'."
(make-temp-name "vc-test") temporary-file-directory))))
(process-environment process-environment)
vc-test--cleanup-hook)
(when (eq backend 'Bzr)
(setq process-environment (cons (format "BZR_HOME=%s" tempdir)
process-environment)))
(vc--fix-home-for-bzr tempdir)
;; git tries various approaches to guess a user name and email,
;; which can fail depending on how the system is configured.
;; Eg if the user account has no GECOS, git commit can fail with