Function: ert-kill-all-test-buffers

ert-kill-all-test-buffers is an interactive and byte-compiled function defined in ert.el.gz.

Signature

(ert-kill-all-test-buffers)

Documentation

Kill all test buffers that are still live.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/ert.el.gz
(defun ert-kill-all-test-buffers ()
  "Kill all test buffers that are still live."
  (interactive)
  (let ((count 0))
    (maphash (lambda (buffer _dummy)
               (when (or (not (buffer-live-p buffer))
                         (kill-buffer buffer))
                 (incf count)))
             ert--test-buffers)
    (message "%s out of %s test buffers killed"
             count (hash-table-count ert--test-buffers)))
  ;; It could be that some test buffers were actually kept alive
  ;; (e.g., due to `kill-buffer-query-functions').  I'm not sure what
  ;; to do about this.  For now, let's just forget them.
  (clrhash ert--test-buffers)
  nil)