martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

; Fix cleanup in buffer-tests

Browse Source 
* test/src/buffer-tests.el (test-restore-buffer-modified-p)
(test-buffer-chars-modified-ticks): Don't leave unsaved and
modified file buffers after the tests.
This commit is contained in:
Eli Zaretskii
2025-11-16 11:07:32 +02:00
parent 50c30a9240
commit 858d54d51d
1 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
test/src/buffer-tests.el
View File

@@ -8507,7 +8507,10 @@ Finally, kill the buffer and its temporary file."
;; Clean up.
(when (file-exists-p buffer-auto-save-file-name)
(delete-file buffer-auto-save-file-name))))
(delete-file buffer-auto-save-file-name))
;; Don't leave modified and unsaved files, to avoid confirmation
;; prompts when exiting Emacs in interactive sessions.
(restore-buffer-modified-p nil)))
(ert-with-temp-file file
(setq file (file-truename file))
@@ -8518,7 +8521,10 @@ Finally, kill the buffer and its temporary file."
(should (buffer-modified-p))
(should-not (eq (buffer-modified-p) 'autosaved))
(restore-buffer-modified-p 'autosaved)
(should (eq (buffer-modified-p) 'autosaved)))))
(should (eq (buffer-modified-p) 'autosaved))
;; Don't leave modified and unsaved files, to avoid confirmation
;; prompts when exiting Emacs in interactive sessions.
(restore-buffer-modified-p nil))))
(ert-deftest test-buffer-chars-modified-ticks ()
"Test `buffer-chars-modified-tick'."
@@ -8532,7 +8538,11 @@ Finally, kill the buffer and its temporary file."
(write-region text nil f2 nil 'silent)
(insert-file-contents f2)
(should (= (buffer-chars-modified-tick) (buffer-modified-tick)))
(should (> (buffer-chars-modified-tick) 1)))))))
(should (> (buffer-chars-modified-tick) 1))
;; Don't leave modified and unsaved files, to avoid
;; confirmation prompts when exiting Emacs in interactive
;; sessions.
(restore-buffer-modified-p nil))))))
(ert-deftest test-labeled-narrowing ()
"Test `with-restriction' and `without-restriction'."