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