diff options
| author | Stefan Kangas | 2024-12-27 05:02:55 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2024-12-27 05:13:22 +0100 |
| commit | 4f942b4994df82b9ba7ee10a75008b2338e38fc3 (patch) | |
| tree | 158270662d996df4fb3c84aef16af3533a1d769f /test/src | |
| parent | 577714e3fe722625236ce060f53b5d76f7933454 (diff) | |
| download | emacs-4f942b4994df82b9ba7ee10a75008b2338e38fc3.tar.gz emacs-4f942b4994df82b9ba7ee10a75008b2338e38fc3.zip | |
Use with-environment-variables in more places
* lisp/gnus/gnus-search.el (gnus-search-run-search):
* lisp/man.el (Man-completion-table):
* lisp/progmodes/cperl-mode.el (cperl-pod-to-manpage):
* test/src/fileio-tests.el (fileio-tests--relative-HOME):
Prefer 'with-environment-variables'.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/fileio-tests.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/test/src/fileio-tests.el b/test/src/fileio-tests.el index 750de8444c9..29177fee7ad 100644 --- a/test/src/fileio-tests.el +++ b/test/src/fileio-tests.el | |||
| @@ -100,8 +100,7 @@ Also check that an encoding error can appear in a symlink." | |||
| 100 | 100 | ||
| 101 | (ert-deftest fileio-tests--relative-HOME () | 101 | (ert-deftest fileio-tests--relative-HOME () |
| 102 | "Test that `expand-file-name' works even when HOME is relative." | 102 | "Test that `expand-file-name' works even when HOME is relative." |
| 103 | (let ((process-environment (copy-sequence process-environment))) | 103 | (with-environment-variables (("HOME" "a/b/c")) |
| 104 | (setenv "HOME" "a/b/c") | ||
| 105 | (should (equal (expand-file-name "~/foo") | 104 | (should (equal (expand-file-name "~/foo") |
| 106 | (expand-file-name "a/b/c/foo"))) | 105 | (expand-file-name "a/b/c/foo"))) |
| 107 | (when (memq system-type '(ms-dos windows-nt)) | 106 | (when (memq system-type '(ms-dos windows-nt)) |