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