Commit 87ed9448 authored by Michael Albinus's avatar Michael Albinus
Browse files

* automated/tramp-tests.el (tramp--instrument-test-case):

Print debug buffer in any case.
parent 8d56de79
2014-06-29 Michael Albinus <michael.albinus@gmx.de>
* automated/tramp-tests.el (tramp--instrument-test-case):
Print debug buffer in any case.
2014-06-28 Leo Liu <sdl.web@gmail.com>
* automated/calc-tests.el: New file and add tests for math-bignum.
......
......@@ -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."
......
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