Function: ert-kill-all-test-buffers

ert-kill-all-test-buffers is an autoloaded, interactive and byte-compiled function defined in ert-x.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-x.el.gz
;;;###autoload
(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))
		 (cl-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)