From: Michael Albinus <michael.albinus@gmx.de>
Date: Mon, 18 Sep 2017 08:00:17 +0000 (+0200)
Subject: Cleanup in files-tests.el
X-Git-Tag: emacs-26.0.90~139
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=466df76f7df06a03760545fe03d71bc0dc7fe98f;p=emacs.git

Cleanup in files-tests.el

* test/lisp/files-tests.el (files-tests--make-directory)
(files-tests--copy-directory): Cleanup temporary directories.
---

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