diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2017-09-18 10:00:17 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2017-09-18 10:00:17 +0200 |
| commit | 466df76f7df06a03760545fe03d71bc0dc7fe98f (patch) | |
| tree | 34878c78e6e832ab0c31090df01c94073ef79480 /test | |
| parent | 6359fe630ad06052ee0543b30466a74cd32b69c9 (diff) | |
| download | emacs-466df76f7df06a03760545fe03d71bc0dc7fe98f.tar.gz | |
Cleanup in files-tests.el
* test/lisp/files-tests.el (files-tests--make-directory)
(files-tests--copy-directory): Cleanup temporary directories.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/files-tests.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el index 3117ea697ec..f2a9a321808 100644 --- a/test/lisp/files-tests.el +++ b/test/lisp/files-tests.el @@ -363,7 +363,8 @@ be invoked with the right arguments." (should-not (make-directory subdir1)) (should-not (make-directory subdir2 t)) (should-error (make-directory a/b)) - (should-not (make-directory a/b t)))) + (should-not (make-directory a/b t)) + (delete-directory dir 'recursive))) (ert-deftest files-test-no-file-write-contents () "Test that `write-contents-functions' permits saving a file. @@ -402,7 +403,8 @@ name (Bug#28412)." (make-directory source) (write-region "" nil file) (copy-directory source dest t t t) - (should (file-exists-p (concat dest "file"))))) + (should (file-exists-p (concat dest "file"))) + (delete-directory dir 'recursive))) (provide 'files-tests) ;;; files-tests.el ends here |