From bbe29b9cc17eee0255add896e7e98cab15f3f5dc Mon Sep 17 00:00:00 2001 From: bmag Date: Tue, 4 Oct 2016 08:24:52 +0300 Subject: [PATCH] elisp test buffer: run only current buffer's tests --- layers/+distributions/spacemacs-base/funcs.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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