Commit 295c7975 authored by Michael Albinus's avatar Michael Albinus
Browse files

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

parent 3c513f3f
Pipeline #1497 passed with stage
in 72 minutes and 43 seconds
......@@ -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 ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment