aboutsummaryrefslogtreecommitdiffstats
path: root/test/src/buffer-tests.el
diff options
context:
space:
mode:
Diffstat (limited to 'test/src/buffer-tests.el')
-rw-r--r--test/src/buffer-tests.el38
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"))