diff options
author | Basil L. Contovounesios <contovob@tcd.ie> | 2023-04-10 10:42:09 +0100 |
---|---|---|
committer | Basil L. Contovounesios <contovob@tcd.ie> | 2023-04-10 11:03:33 +0100 |
commit | ba7ef9699ff21667f8b242e294616f0a255ede22 (patch) | |
tree | 5c01e8c64a200d94b764bcc9e0f87847350ff7c2 | |
parent | 3faf43137a376631c49b1300e693acc83e20d9c1 (diff) | |
download | emacs-ba7ef9699ff21667f8b242e294616f0a255ede22.tar.gz |
End default-directory with slash in eglot-tests
* test/lisp/progmodes/eglot-tests.el (eglot--call-with-fixture):
Separate prefix from random part of temporary file name. Ensure
default-directory ends with a directory separator (bug#61637).
-rw-r--r-- | test/lisp/progmodes/eglot-tests.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/lisp/progmodes/eglot-tests.el b/test/lisp/progmodes/eglot-tests.el index 0486c938558..ad0a411189f 100644 --- a/test/lisp/progmodes/eglot-tests.el +++ b/test/lisp/progmodes/eglot-tests.el @@ -85,8 +85,8 @@ directory hierarchy." (defun eglot--call-with-fixture (fixture fn) "Helper for `eglot--with-fixture'. Run FN under FIXTURE." - (let* ((fixture-directory (make-nearby-temp-file "eglot--fixture" t)) - (default-directory fixture-directory) + (let* ((fixture-directory (make-nearby-temp-file "eglot--fixture-" t)) + (default-directory (file-name-as-directory fixture-directory)) created-files new-servers test-body-successful-p) |