diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-11-07 00:41:14 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-11-07 01:54:31 +0100 |
| commit | 0cac4598a77028a64dde9df74c76549cf48a19f2 (patch) | |
| tree | 0cf39903659055ec7f375db2cbcac5c07f42f105 | |
| parent | 385741fae276c7cfe2975e8a64cf084e0f63cf3d (diff) | |
| download | emacs-0cac4598a77028a64dde9df74c76549cf48a19f2.tar.gz emacs-0cac4598a77028a64dde9df74c76549cf48a19f2.tar.bz2 emacs-0cac4598a77028a64dde9df74c76549cf48a19f2.zip | |
Ensure return value of ert-with-temp-directory
* lisp/emacs-lisp/ert-x.el (ert-with-temp-file): Ensure return
value when :directory is t is the directory name.
* test/lisp/emacs-lisp/ert-x-tests.el
(ert-x-tests-with-temp-directory): Extend test for the above.
| -rw-r--r-- | lisp/emacs-lisp/ert-x.el | 4 | ||||
| -rw-r--r-- | test/lisp/emacs-lisp/ert-x-tests.el | 3 |
2 files changed, 5 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/ert-x.el b/lisp/emacs-lisp/ert-x.el index 752ac3bfdd4..ffeead4179d 100644 --- a/lisp/emacs-lisp/ert-x.el +++ b/lisp/emacs-lisp/ert-x.el @@ -445,7 +445,9 @@ See also `ert-with-temp-directory'." (or (macroexp-file-name) buffer-file-name))))) `(let* ((,temp-file (,(if directory 'file-name-as-directory 'identity) (make-temp-file ,prefix ,directory ,suffix ,text))) - (,name ,temp-file)) + (,name ,(if directory + `(file-name-as-directory ,temp-file) + temp-file))) (unwind-protect (progn ,@body) (ignore-errors diff --git a/test/lisp/emacs-lisp/ert-x-tests.el b/test/lisp/emacs-lisp/ert-x-tests.el index d7c0985b13e..9baa9941586 100644 --- a/test/lisp/emacs-lisp/ert-x-tests.el +++ b/test/lisp/emacs-lisp/ert-x-tests.el @@ -320,7 +320,8 @@ desired effect." (ert-with-temp-directory dir (setq saved dir) (should (file-exists-p dir)) - (should (file-directory-p dir))) + (should (file-directory-p dir)) + (should (equal dir (file-name-as-directory dir)))) (should-not (file-exists-p saved)))) (ert-deftest ert-x-tests-with-temp-directory/text-signals-error () |