* lisp/emacs-lisp/ert.el (ert-run-tests-batch): Print selector.

diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el
index e4e166ac678b2c35e31797335ca019f368cb6bda..09cf28e38badf3ac1b52513da6f4a700abad94e2 100644 (file)
--- a/lisp/emacs-lisp/ert.el
+++ b/lisp/emacs-lisp/ert.el
@@ -1360,9 +1360,10 @@ Returns the stats object."
        (run-started
         (unless ert-quiet
           (cl-destructuring-bind (stats) event-args
-            (message "Running %s tests (%s)"
+            (message "Running %s tests (%s, selector `%S')"
                      (length (ert--stats-tests stats))
-                     (ert--format-time-iso8601 (ert--stats-start-time stats))))))
+                     (ert--format-time-iso8601 (ert--stats-start-time stats))
+                     selector))))
        (run-ended
         (cl-destructuring-bind (stats abortedp) event-args
           (let ((unexpected (ert-stats-completed-unexpected stats))