From 0cac4598a77028a64dde9df74c76549cf48a19f2 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sun, 7 Nov 2021 00:41:14 +0100 Subject: 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. --- test/lisp/emacs-lisp/ert-x-tests.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'test/lisp/emacs-lisp') 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 () -- cgit v1.2.3