From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 18 Mar 2018 09:01:37 +0000 (+0100)
Subject: * lisp/emacs-lisp/ert.el (ert-run-tests-batch): Print selector.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3a01434fb6fdb84aa2e3d1d859c5fc31ee1fc421;p=emacs.git

* 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 e4e166ac678..09cf28e38ba 100644
--- 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))