[Emacs-diffs] emacs-26 466df76: Cleanup in files-tests.el

[Michael Albinus]

branch: emacs-26
commit 466df76f7df06a03760545fe03d71bc0dc7fe98f
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    Cleanup in files-tests.el
    
    * test/lisp/files-tests.el (files-tests--make-directory)
    (files-tests--copy-directory): Cleanup temporary directories.
---
 test/lisp/files-tests.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el
index 3117ea6..f2a9a32 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