; Kill some stray buffers left behind by ERC tests
* test/lisp/erc/erc-services-tests.el (erc--auth-source-search--plstore-standard, erc--auth-source-search--plstore-announced, erc--auth-source-search--plstore-overrides): Kill buffer renamed by plstore. In the future, try using the `:buffer' keyword introduced in Emacs 29. * test/lisp/erc/resources/erc-d/erc-d-t.el (erc-d-t-kill-related-buffers): Don't forget about `erc-dcc-chat-mode' buffers.
This commit is contained in:
parent
f31e65694c
commit
c267cd0151
2 changed files with 7 additions and 4 deletions
|
@ -248,7 +248,8 @@
|
|||
(let ((auth-sources (list plstore-file))
|
||||
(auth-source-do-cache nil))
|
||||
(erc-services-tests--auth-source-standard
|
||||
#'erc-services-test--call-with-plstore))))
|
||||
#'erc-services-test--call-with-plstore))
|
||||
(kill-buffer (get-file-buffer plstore-file))))
|
||||
|
||||
(ert-deftest erc--auth-source-search--plstore-announced ()
|
||||
(ert-with-temp-file plstore-file
|
||||
|
@ -264,7 +265,8 @@
|
|||
(let ((auth-sources (list plstore-file))
|
||||
(auth-source-do-cache nil))
|
||||
(erc-services-tests--auth-source-announced
|
||||
#'erc-services-test--call-with-plstore))))
|
||||
#'erc-services-test--call-with-plstore))
|
||||
(kill-buffer (get-file-buffer plstore-file))))
|
||||
|
||||
(ert-deftest erc--auth-source-search--plstore-overrides ()
|
||||
(ert-with-temp-file plstore-file
|
||||
|
@ -296,7 +298,8 @@
|
|||
(let ((auth-sources (list plstore-file))
|
||||
(auth-source-do-cache nil))
|
||||
(erc-services-tests--auth-source-overrides
|
||||
#'erc-services-test--call-with-plstore))))
|
||||
#'erc-services-test--call-with-plstore))
|
||||
(kill-buffer (get-file-buffer plstore-file))))
|
||||
|
||||
;; auth-source JSON backend
|
||||
|
||||
|
|
|
@ -32,7 +32,7 @@
|
|||
(dolist (buf (buffer-list))
|
||||
(with-current-buffer buf
|
||||
(when (or erc-d-u--process-buffer
|
||||
(derived-mode-p 'erc-mode))
|
||||
(derived-mode-p 'erc-mode 'erc-dcc-chat-mode))
|
||||
(push buf buflist))))
|
||||
(dolist (buf buflist)
|
||||
(when (and (boundp 'erc-server-flood-timer)
|
||||
|
|
Loading…
Add table
Reference in a new issue