files-test-read-file-in-: Delete temporary dir on exit

* test/lisp/files-tests.el (files-test-read-file-in-~):
Create subdir inside dir.
This commit is contained in:
Tino Calancha 2016-12-20 19:22:15 +09:00
parent 35aaa6b6aa
commit 15817f4e3a

View file

@ -229,7 +229,7 @@ be $HOME."
(or def init)))
(dir (make-temp-file "read-file-name-test" t)))
(unwind-protect
(let ((subdir (expand-file-name "./~/")))
(let ((subdir (expand-file-name "./~/" dir)))
(make-directory subdir t)
(with-temp-buffer
(setq default-directory subdir)