From 295c79750341df94e894a95ce51401f989fc7f48 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 29 Apr 2019 17:24:53 +0200 Subject: [PATCH] * test/lisp/net/tramp-tests.el (tramp--test-timeout-handler): Instrument. --- test/lisp/net/tramp-tests.el | 4 ++++ 1 file changed, 4 insertions(+) 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 () -- 2.39.5