Proposal: ert-run-test-at-point

Proposal: ert-run-test-at-point

[Mariano Montone]

Hello,

I have this in my .emacs, for quickly running the ert test at cursor point:

;; run ert test at point

(defun defun-at-point ()
   "Return the text of the defun at point."
   (apply #'buffer-substring-no-properties
          (region-for-defun-at-point)))

(defun region-for-defun-at-point ()
   "Return the start and end position of defun at point."
   (save-excursion
     (save-match-data
       (end-of-defun)
       (let ((end (point)))
         (beginning-of-defun)
         (list (point) end)))))

(defun ert-run-test-at-point ()
   "Run the ert test at point."
   (interactive)
   (let* ((test-form (read-from-string (defun-at-point)))
      (test-name (cadar test-form)))
     (ert test-name)))


Then I bind ert-run-test-at-point to C-c C-t (locally to the buffer with 
the tests), and I'm able to quickly run the tests at cursor point as I 
write them.

I think it would be cool if something like this came by default with ERT.


      Mariano

Re: Proposal: ert-run-test-at-point

[Mariano Montone]

El 9/9/22 a las 12:04, Mariano Montone escribió:
> Hello,
>
> I have this in my .emacs, for quickly running the ert test at cursor 
> point:
>
> ;; run ert test at point
...
>
> (defun ert-run-test-at-point ()
>   "Run the ert test at point."
>   (interactive)
>   (let* ((test-form (read-from-string (defun-at-point)))
>      (test-name (cadar test-form)))
>     (ert test-name)))
>
Perhaps calling eval-defun it gets even better:

(defun ert-run-test-at-point ()
   "Run the ert test at point."
   (interactive)
   (eval-defun nil)
   (let* ((test-form (read-from-string (defun-at-point)))
      (test-name (cadar test-form)))
     (ert test-name)))