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

[Mariano Montone <marianomontone@gmail.com>]

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)))