diff options
Diffstat (limited to 'test/src/buffer-tests.el')
| -rw-r--r-- | test/src/buffer-tests.el | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/test/src/buffer-tests.el b/test/src/buffer-tests.el index 059926ff46b..ac213d1bade 100644 --- a/test/src/buffer-tests.el +++ b/test/src/buffer-tests.el | |||
| @@ -19,6 +19,8 @@ | |||
| 19 | 19 | ||
| 20 | ;;; Code: | 20 | ;;; Code: |
| 21 | 21 | ||
| 22 | (require 'ert) | ||
| 23 | (require 'ert-x) | ||
| 22 | (require 'cl-lib) | 24 | (require 'cl-lib) |
| 23 | 25 | ||
| 24 | (ert-deftest overlay-modification-hooks-message-other-buf () | 26 | (ert-deftest overlay-modification-hooks-message-other-buf () |
| @@ -1421,25 +1423,23 @@ with parameters from the *Messages* buffer modification." | |||
| 1421 | (should (= (length (overlays-in (point-min) (point-max))) 0)))) | 1423 | (should (= (length (overlays-in (point-min) (point-max))) 0)))) |
| 1422 | 1424 | ||
| 1423 | (ert-deftest test-kill-buffer-auto-save-default () | 1425 | (ert-deftest test-kill-buffer-auto-save-default () |
| 1424 | (let ((file (make-temp-file "ert")) | 1426 | (ert-with-temp-file file |
| 1425 | auto-save) | 1427 | (let (auto-save) |
| 1426 | (should (file-exists-p file)) | 1428 | ;; Always answer yes. |
| 1427 | ;; Always answer yes. | 1429 | (cl-letf (((symbol-function #'yes-or-no-p) (lambda (_) t))) |
| 1428 | (cl-letf (((symbol-function #'yes-or-no-p) (lambda (_) t))) | 1430 | (unwind-protect |
| 1429 | (unwind-protect | 1431 | (progn |
| 1430 | (progn | 1432 | (find-file file) |
| 1431 | (find-file file) | 1433 | (auto-save-mode t) |
| 1432 | (auto-save-mode t) | 1434 | (insert "foo\n") |
| 1433 | (insert "foo\n") | 1435 | (should buffer-auto-save-file-name) |
| 1434 | (should buffer-auto-save-file-name) | 1436 | (setq auto-save buffer-auto-save-file-name) |
| 1435 | (setq auto-save buffer-auto-save-file-name) | 1437 | (do-auto-save) |
| 1436 | (do-auto-save) | 1438 | (should (file-exists-p auto-save)) |
| 1437 | (should (file-exists-p auto-save)) | 1439 | (kill-buffer (current-buffer)) |
| 1438 | (kill-buffer (current-buffer)) | 1440 | (should (file-exists-p auto-save))) |
| 1439 | (should (file-exists-p auto-save))) | 1441 | (when auto-save |
| 1440 | (ignore-errors (delete-file file)) | 1442 | (ignore-errors (delete-file auto-save)))))))) |
| 1441 | (when auto-save | ||
| 1442 | (ignore-errors (delete-file auto-save))))))) | ||
| 1443 | 1443 | ||
| 1444 | (ert-deftest test-kill-buffer-auto-save-delete () | 1444 | (ert-deftest test-kill-buffer-auto-save-delete () |
| 1445 | (let ((file (make-temp-file "ert")) | 1445 | (let ((file (make-temp-file "ert")) |