diff options
| -rw-r--r-- | test/lisp/files-tests.el | 6 |
1 files changed, 4 insertions, 2 deletions
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." | |||
| 363 | (should-not (make-directory subdir1)) | 363 | (should-not (make-directory subdir1)) |
| 364 | (should-not (make-directory subdir2 t)) | 364 | (should-not (make-directory subdir2 t)) |
| 365 | (should-error (make-directory a/b)) | 365 | (should-error (make-directory a/b)) |
| 366 | (should-not (make-directory a/b t)))) | 366 | (should-not (make-directory a/b t)) |
| 367 | (delete-directory dir 'recursive))) | ||
| 367 | 368 | ||
| 368 | (ert-deftest files-test-no-file-write-contents () | 369 | (ert-deftest files-test-no-file-write-contents () |
| 369 | "Test that `write-contents-functions' permits saving a file. | 370 | "Test that `write-contents-functions' permits saving a file. |
| @@ -402,7 +403,8 @@ name (Bug#28412)." | |||
| 402 | (make-directory source) | 403 | (make-directory source) |
| 403 | (write-region "" nil file) | 404 | (write-region "" nil file) |
| 404 | (copy-directory source dest t t t) | 405 | (copy-directory source dest t t t) |
| 405 | (should (file-exists-p (concat dest "file"))))) | 406 | (should (file-exists-p (concat dest "file"))) |
| 407 | (delete-directory dir 'recursive))) | ||
| 406 | 408 | ||
| 407 | (provide 'files-tests) | 409 | (provide 'files-tests) |
| 408 | ;;; files-tests.el ends here | 410 | ;;; files-tests.el ends here |