masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 03:39:38 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Cleanup in files-tests.el

Browse source 
* test/lisp/files-tests.el (files-tests--make-directory)
(files-tests--copy-directory): Cleanup temporary directories.
This commit is contained in:
Michael Albinus 2017-09-18 10:00:17 +02:00
parent 6359fe630a
commit 466df76f7d
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/lisp/files-tests.el
View file

@ -363,7 +363,8 @@ be invoked with the right arguments."
(should-not (make-directory subdir1)) (should-not (make-directory subdir1))
(should-not (make-directory subdir2 t)) (should-not (make-directory subdir2 t))
(should-error (make-directory a/b)) (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 () (ert-deftest files-test-no-file-write-contents ()
"Test that `write-contents-functions' permits saving a file. "Test that `write-contents-functions' permits saving a file.
@ -402,7 +403,8 @@ name (Bug#28412)."
(make-directory source) (make-directory source)
(write-region "" nil file) (write-region "" nil file)
(copy-directory source dest t t t) (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) (provide 'files-tests)
;;; files-tests.el ends here ;;; files-tests.el ends here