diff options
| author | Tino Calancha <tino.calancha@gmail.com> | 2016-12-20 19:22:15 +0900 |
|---|---|---|
| committer | Tino Calancha <tino.calancha@gmail.com> | 2016-12-20 19:22:15 +0900 |
| commit | 15817f4e3ae027e6ed573a1814bd4cf1d59e4d64 (patch) | |
| tree | 7c2a8608c299e579c96eee17c9dc8bb4cf8f2a73 /test/lisp/files-tests.el | |
| parent | 35aaa6b6aa9a2e7b42465603fb32355a009c510f (diff) | |
| download | emacs-15817f4e3ae027e6ed573a1814bd4cf1d59e4d64.tar.gz | |
files-test-read-file-in-: Delete temporary dir on exit
* test/lisp/files-tests.el (files-test-read-file-in-~):
Create subdir inside dir.
Diffstat (limited to 'test/lisp/files-tests.el')
| -rw-r--r-- | test/lisp/files-tests.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el index f4ccd5c2044..6fbe993bfdd 100644 --- a/test/lisp/files-tests.el +++ b/test/lisp/files-tests.el @@ -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) |