diff options
| author | Tino Calancha | 2016-12-20 19:22:15 +0900 |
|---|---|---|
| committer | Tino Calancha | 2016-12-20 19:22:15 +0900 |
| commit | 15817f4e3ae027e6ed573a1814bd4cf1d59e4d64 (patch) | |
| tree | 7c2a8608c299e579c96eee17c9dc8bb4cf8f2a73 | |
| parent | 35aaa6b6aa9a2e7b42465603fb32355a009c510f (diff) | |
| download | emacs-15817f4e3ae027e6ed573a1814bd4cf1d59e4d64.tar.gz emacs-15817f4e3ae027e6ed573a1814bd4cf1d59e4d64.zip | |
files-test-read-file-in-: Delete temporary dir on exit
* test/lisp/files-tests.el (files-test-read-file-in-~):
Create subdir inside dir.
| -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." | |||
| 229 | (or def init))) | 229 | (or def init))) |
| 230 | (dir (make-temp-file "read-file-name-test" t))) | 230 | (dir (make-temp-file "read-file-name-test" t))) |
| 231 | (unwind-protect | 231 | (unwind-protect |
| 232 | (let ((subdir (expand-file-name "./~/"))) | 232 | (let ((subdir (expand-file-name "./~/" dir))) |
| 233 | (make-directory subdir t) | 233 | (make-directory subdir t) |
| 234 | (with-temp-buffer | 234 | (with-temp-buffer |
| 235 | (setq default-directory subdir) | 235 | (setq default-directory subdir) |