mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-08 15:35:02 +00:00
Code Issues Releases Activity

* tramp-tests.el (tramp-test29-vc-registered):

Browse Source 
Add more instrumentation code.
This commit is contained in:
Michael Albinus 2014-06-01 18:16:26 +02:00
parent be04283a7f
commit 30491d4964
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1430,7 +1430,12 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
(list (file-name-nondirectory tmp-name2)))))
(should (vc-registered tmp-name2)))
(ignore-errors (delete-directory tmp-name1 'recursive))))))
(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))))
(ignore-errors (delete-directory tmp-name1 'recursive))))))
(defun tramp--test-check-files (&rest files)
"Runs a simple but comprehensive test over every file in FILES."