diff options
| author | Michael Albinus | 2019-04-29 17:24:53 +0200 |
|---|---|---|
| committer | Michael Albinus | 2019-04-29 17:24:53 +0200 |
| commit | 295c79750341df94e894a95ce51401f989fc7f48 (patch) | |
| tree | 9a204f02130aa0a44f2239da834ab2dedd08ab8a /test | |
| parent | 3c513f3f62b1b4b425cdbabcbb8cc72c49478e6a (diff) | |
| download | emacs-295c79750341df94e894a95ce51401f989fc7f48.tar.gz emacs-295c79750341df94e894a95ce51401f989fc7f48.zip | |
* test/lisp/net/tramp-tests.el (tramp--test-timeout-handler): Instrument.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 4 |
1 files changed, 4 insertions, 0 deletions
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'." | |||
| 3846 | (defun tramp--test-timeout-handler (&rest _ignore) | 3846 | (defun tramp--test-timeout-handler (&rest _ignore) |
| 3847 | "Timeout handler, reporting a failed test." | 3847 | "Timeout handler, reporting a failed test." |
| 3848 | (interactive) | 3848 | (interactive) |
| 3849 | (let ((proc (get-buffer-process (current-buffer)))) | ||
| 3850 | (when (processp proc) | ||
| 3851 | (tramp--test-message | ||
| 3852 | "cmd: %s\n%s" (process-command proc) (buffer-string)))) | ||
| 3849 | (ert-fail (format "`%s' timed out" (ert-test-name (ert-running-test))))) | 3853 | (ert-fail (format "`%s' timed out" (ert-test-name (ert-running-test))))) |
| 3850 | 3854 | ||
| 3851 | (ert-deftest tramp-test29-start-file-process () | 3855 | (ert-deftest tramp-test29-start-file-process () |