diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2014-06-29 20:32:35 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2014-06-29 20:32:35 +0200 |
| commit | 87ed944822b8616396bd1b16257b7f299047c1a3 (patch) | |
| tree | 8984a310241f2a3db3c72a8cfc8949ed4eabc7de /test/automated/tramp-tests.el | |
| parent | 8d56de79017652907c97aa00ba0d8155229b496b (diff) | |
| download | emacs-87ed944822b8616396bd1b16257b7f299047c1a3.tar.gz | |
* automated/tramp-tests.el (tramp--instrument-test-case):
Print debug buffer in any case.
Diffstat (limited to 'test/automated/tramp-tests.el')
| -rw-r--r-- | test/automated/tramp-tests.el | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/test/automated/tramp-tests.el b/test/automated/tramp-tests.el index b010ab467f6..864a43d638f 100644 --- a/test/automated/tramp-tests.el +++ b/test/automated/tramp-tests.el @@ -116,18 +116,15 @@ shall not contain a timeout." `(let ((tramp-verbose ,verbose) (tramp-message-show-message t) (tramp-debug-on-error t)) - (condition-case err + (unwind-protect (progn ,@body) - (ert-test-skipped - (signal (car err) (cdr err))) - ((error quit) - (with-parsed-tramp-file-name tramp-test-temporary-file-directory nil - (with-current-buffer (tramp-get-connection-buffer v) - (message "%s" (buffer-string))) - (with-current-buffer (tramp-get-debug-buffer v) - (message "%s" (buffer-string)))) - (message "%s" err) - (signal (car err) (cdr err)))))) + (when (> tramp-verbose 3) + (with-parsed-tramp-file-name tramp-test-temporary-file-directory nil + (with-current-buffer (tramp-get-connection-buffer v) + (message "%s" (buffer-string))) + (with-current-buffer + (tramp-get-debug-buffer v) + (message "%s" (buffer-string)))))))) (ert-deftest tramp-test00-availability () "Test availability of Tramp functions." |