mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

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

Browse Source 
Print debug buffer in any case.
This commit is contained in:
Michael Albinus 2014-06-29 20:32:35 +02:00
parent 8d56de7901
commit 87ed944822
2 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test/ChangeLog
View File

@ -1,3 +1,8 @@
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.

19
test/automated/tramp-tests.el
View File

@ -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."