[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master ba7ef9699ff 1/2: End default-directory with slash in eglot-tests
From: |
Basil L. Contovounesios |
Subject: |
master ba7ef9699ff 1/2: End default-directory with slash in eglot-tests |
Date: |
Mon, 10 Apr 2023 06:04:12 -0400 (EDT) |
branch: master
commit ba7ef9699ff21667f8b242e294616f0a255ede22
Author: Basil L. Contovounesios <contovob@tcd.ie>
Commit: Basil L. Contovounesios <contovob@tcd.ie>
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).
---
test/lisp/progmodes/eglot-tests.el | 4 ++--
1 file 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)