[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 295c797: * test/lisp/net/tramp-tests.el (tramp--tes
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] master 295c797: * test/lisp/net/tramp-tests.el (tramp--test-timeout-handler): Instrument. |
Date: |
Mon, 29 Apr 2019 11:25:02 -0400 (EDT) |
branch: master
commit 295c79750341df94e894a95ce51401f989fc7f48
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>
* 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 4495a1f..cba697d 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 ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 295c797: * test/lisp/net/tramp-tests.el (tramp--test-timeout-handler): Instrument.,
Michael Albinus <=