diff --git a/layers/+distributions/spacemacs-base/funcs.el b/layers/+distributions/spacemacs-base/funcs.el index 407f68f05e5d..45864c426860 100644 --- a/layers/+distributions/spacemacs-base/funcs.el +++ b/layers/+distributions/spacemacs-base/funcs.el @@ -665,12 +665,18 @@ The body of the advice is in BODY." (if (y-or-n-p (format "Erase content of buffer %s ? " (current-buffer))) (erase-buffer))) +(defun spacemacs//find-ert-test-buffer (ert-test) + "Return the buffer where ERT-TEST is defined." + (car (find-definition-noselect (ert-test-name ert-test) 'ert-deftest))) + (defun spacemacs/ert-run-tests-buffer () "Run all the tests in the current buffer." (interactive) (save-buffer) (load-file (buffer-file-name)) - (ert t)) + (let ((cbuf (current-buffer))) + (ert '(satisfies (lambda (test) + (eq cbuf (spacemacs//find-ert-test-buffer test))))))) (defun spacemacs/alternate-buffer (&optional window) "Switch back and forth between current and last buffer in the