[Emacs-diffs] master 5d968db: More hydra.nixos.org logging for unfinished tests

[Glenn Morris]

branch: master
commit 5d968dbf6bb85f73b806d196b05db3406ce808be
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    More hydra.nixos.org logging for unfinished tests
    
    * lisp/emacs-lisp/ert.el (ert-summarize-tests-batch-and-exit):
    Dump contents of any unfinished log files on hydra.nixos.org.
---
 lisp/emacs-lisp/ert.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el
index 7d8d0a5..3beb8a0 100644
--- a/lisp/emacs-lisp/ert.el
+++ b/lisp/emacs-lisp/ert.el
@@ -1548,7 +1548,14 @@ Ran \\([0-9]+\\) tests, \\([0-9]+\\) results as expected\
       (mapc (lambda (l) (message "  %s" l)) notests))
     (when badtests
       (message "%d files did not finish:" (length badtests))
-      (mapc (lambda (l) (message "  %s" l)) badtests))
+      (mapc (lambda (l) (message "  %s" l)) badtests)
+      (if (getenv "EMACS_HYDRA_CI")
+          (with-temp-buffer
+            (dolist (f badtests)
+              (erase-buffer)
+              (insert-file-contents f)
+              (message "Contents of unfinished file %s:" f)
+              (message "-----\n%s\n-----" (buffer-string))))))
     (when unexpected
       (message "%d files contained unexpected results:" (length unexpected))
       (mapc (lambda (l) (message "  %s" l)) unexpected))