diff options
Diffstat (limited to 'test/lisp')
-rw-r--r-- | test/lisp/files-tests.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el index 7bfdca53e08..4a17e0d4697 100644 --- a/test/lisp/files-tests.el +++ b/test/lisp/files-tests.el @@ -166,6 +166,20 @@ form.") (should (eq buffer-file-coding-system 'iso-2022-7bit-unix)))) (delete-file tempfile)))) +(ert-deftest files-test-make-temp-file-empty-prefix () + "Test make-temp-file with an empty prefix." + (let ((tempfile (make-temp-file "")) + (tempdir (make-temp-file "" t)) + (tempfile-. (make-temp-file ".")) + (tempdir-. (make-temp-file "." t)) + (tempfile-.. (make-temp-file "..")) + (tempdir-.. (make-temp-file ".." t))) + (dolist (file (list tempfile tempfile-. tempfile-..)) + (should file) + (delete-file file)) + (dolist (dir (list tempdir tempdir-. tempdir-..)) + (should dir) + (delete-directory dir)))) ;; Stop the above "Local Var..." confusing Emacs. |