[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-26 466df76: Cleanup in files-tests.el
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] emacs-26 466df76: Cleanup in files-tests.el |
Date: |
Mon, 18 Sep 2017 04:00:34 -0400 (EDT) |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-26 466df76: Cleanup in files-tests.el,
Michael Albinus <=