mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 14:30:50 -08:00
Code Issues Projects Releases Wiki Activity

* test/lisp/net/tramp-tests.el (tramp--test-timeout-handler): Be more verbose.

Browse source
This commit is contained in:
Michael Albinus 2023-11-17 18:17:28 +01:00
parent 7b0e07c41a
commit 8d2012024d
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
test/lisp/net/tramp-tests.el
View file

@ -4844,6 +4844,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
(if (tramp--test-expensive-test-p) (if (tramp--test-expensive-test-p)
;; It doesn't work for `initials' and `shorthand' ;; It doesn't work for `initials' and `shorthand'
;; completion styles. Should it? ;; completion styles. Should it?
;; `orderless' passes the tests, but it is an ELPA package.
'(emacs21 emacs22 basic partial-completion substring flex) '(emacs21 emacs22 basic partial-completion substring flex)
'(basic))) '(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) (defun tramp--test-timeout-handler (&rest _ignore)
"Timeout handler, reporting a failed test." "Timeout handler, reporting a failed test."
(interactive) (interactive)
(let ((proc (get-buffer-process (current-buffer)))) (tramp--test-message "proc: %s" (get-buffer-process (current-buffer)))
(when (processp proc) (when-let ((proc (get-buffer-process (current-buffer)))
(tramp--test-message ((processp proc)))
"cmd: %s\nbuf:\n%s\n---" (process-command proc) (buffer-string)))) (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-fail (format "`%s' timed out" (ert-test-name (ert-running-test)))))
(ert-deftest tramp-test29-start-file-process () (ert-deftest tramp-test29-start-file-process ()