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

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

Browse Source 
Instrument failed test case.
This commit is contained in:
Michael Albinus 2014-06-01 11:33:57 +02:00
parent 7a458be33c
commit 3340452bdc
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1394,6 +1394,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
(tramp-find-foreign-file-name-handler tramp-test-temporary-file-directory)
'tramp-sh-file-name-handler))
(tramp--instrument-test-case 10
(let* ((default-directory tramp-test-temporary-file-directory)
(tmp-name1 (tramp--test-make-temp-name))
(tmp-name2 (expand-file-name "foo" tmp-name1))
@ -1429,7 +1430,7 @@ 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)))))
(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."