From 8d2012024ded3fd13a4a86ac2d53dee57957fe1b Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Fri, 17 Nov 2023 18:17:28 +0100 Subject: [PATCH] * test/lisp/net/tramp-tests.el (tramp--test-timeout-handler): Be more verbose. --- test/lisp/net/tramp-tests.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index e74837b926a..7854466b819 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el @@ -4844,6 +4844,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'." (if (tramp--test-expensive-test-p) ;; It doesn't work for `initials' and `shorthand' ;; completion styles. Should it? + ;; `orderless' passes the tests, but it is an ELPA package. '(emacs21 emacs22 basic partial-completion substring flex) '(basic))) @@ -5154,10 +5155,11 @@ 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\nbuf:\n%s\n---" (process-command proc) (buffer-string)))) + (tramp--test-message "proc: %s" (get-buffer-process (current-buffer))) + (when-let ((proc (get-buffer-process (current-buffer))) + ((processp proc))) + (tramp--test-message "cmd: %s" (process-command proc))) + (tramp--test-message "buf: %s\n%s\n---" (current-buffer) (buffer-string)) (ert-fail (format "`%s' timed out" (ert-test-name (ert-running-test))))) (ert-deftest tramp-test29-start-file-process () -- 2.39.2