From: Michael Albinus <michael.albinus@gmx.de>
Date: Mon, 29 Apr 2019 15:24:53 +0000 (+0200)
Subject: * test/lisp/net/tramp-tests.el (tramp--test-timeout-handler): Instrument.
X-Git-Tag: emacs-27.0.90~3048
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=295c79750341df94e894a95ce51401f989fc7f48;p=emacs.git

* test/lisp/net/tramp-tests.el (tramp--test-timeout-handler): Instrument.
---

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 4495a1fce42..cba697da18c 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -3846,6 +3846,10 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
 (defun tramp--test-timeout-handler (&rest _ignore)
   "Timeout handler, reporting a failed test."
   (interactive)
+  (let ((proc (get-buffer-process (current-buffer))))
+    (when (processp proc)
+      (tramp--test-message
+       "cmd: %s\n%s" (process-command proc) (buffer-string))))
   (ert-fail (format "`%s' timed out" (ert-test-name (ert-running-test)))))
 
 (ert-deftest tramp-test29-start-file-process ()