procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Reduce buffer-tests noisiness even more

Browse source 
* test/src/buffer-tests.el (test-kill-buffer-auto-save-default)
(test-kill-buffer-auto-save-delete-yes)
(test-kill-buffer-auto-save-delete-no)
(test-buffer-modifications, test-restore-buffer-modified-p): Shut
up auto-save messages.  (Bug#59028)
This commit is contained in:
Eli Zaretskii 2022-11-16 16:37:23 +02:00
parent aee4d67b09
commit 0a26b26217
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
test/src/buffer-tests.el
View file

@ -8422,7 +8422,7 @@ Finally, kill the buffer and its temporary file."
(insert "foo\n")
(should buffer-auto-save-file-name)
(setq auto-save buffer-auto-save-file-name)
(do-auto-save)
(do-auto-save t)
(should (file-exists-p auto-save))
(kill-buffer (current-buffer))
(should (file-exists-p auto-save)))))))
@ -8437,7 +8437,7 @@ Finally, kill the buffer and its temporary file."
(insert "foo\n")
(should buffer-auto-save-file-name)
(setq auto-save buffer-auto-save-file-name)
(do-auto-save)
(do-auto-save t)
(should (file-exists-p auto-save))
;; This should delete the auto-save file.
(kill-buffer (current-buffer))
@ -8453,7 +8453,7 @@ Finally, kill the buffer and its temporary file."
(insert "foo\n")
(should buffer-auto-save-file-name)
(setq auto-save buffer-auto-save-file-name)
(do-auto-save)
(do-auto-save t)
(should (file-exists-p auto-save))
;; This should not delete the auto-save file.
(kill-buffer (current-buffer))
@ -8468,7 +8468,7 @@ Finally, kill the buffer and its temporary file."
(insert "foo")
(should (buffer-modified-p))
(should-not (eq (buffer-modified-p) 'autosaved))
(do-auto-save nil t)
(do-auto-save t t)
(should (eq (buffer-modified-p) 'autosaved))
(with-silent-modifications
(put-text-property 1 3 'face 'bold))
@ -8492,7 +8492,7 @@ Finally, kill the buffer and its temporary file."
(restore-buffer-modified-p nil)
(should-not (buffer-modified-p))
(insert "bar")
(do-auto-save nil t)
(do-auto-save t t)
(should (eq (buffer-modified-p) 'autosaved))
(insert "zot")
(restore-buffer-modified-p 'autosaved)