From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 18 Jun 2025 18:12:55 +0000 (+0200)
Subject: Show test name in ERT progress bar
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3acfc4cabba64c63d7dfd731cddbe1f49b45a4a3;p=emacs.git

Show test name in ERT progress bar

* lisp/emacs-lisp/ert.el
(ert--results-progress-bar-button-help-echo): New defun.
(ert--results-progress-bar-button): Use it.

(cherry picked from commit 5310083ba07f1a0f97a96901846be08e98508e04)
---

diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el
index cffb5a4866b..3a9ba594eaf 100644
--- a/lisp/emacs-lisp/ert.el
+++ b/lisp/emacs-lisp/ert.el
@@ -2392,7 +2392,7 @@ SELECTOR; the default t means run all the defined tests."
 
 (define-button-type 'ert--results-progress-bar-button
   'action #'ert--results-progress-bar-button-action
-  'help-echo "mouse-2, RET: Reveal test result")
+  'help-echo #'ert--results-progress-bar-button-help-echo)
 
 (define-button-type 'ert--test-name-button
   'action #'ert--test-name-button-action
@@ -2621,6 +2621,14 @@ definition."
   (goto-char (ert--button-action-position))
   (ert-results-jump-between-summary-and-result))
 
+(defun ert--results-progress-bar-button-help-echo (_window _object pos)
+  "Show the test name in `help-echo'."
+  (format
+   "%s\nmouse-2, RET: Reveal test result"
+   (save-excursion
+     (goto-char pos)
+     (or (ert-test-at-point) ""))))
+
 (defun ert-results-rerun-all-tests ()
   "Re-run all tests, using the same selector.