procyberian/emacs
1
0
Fork 0
Code Issues Pull requests 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

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 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