procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Instrument `tramp--test-check-files' in order to get traces on hydra.

Browse source
This commit is contained in:
Michael Albinus 2014-04-19 23:05:30 +02:00
parent d7b659bb06
commit ca2e9fb306
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

@ -1418,6 +1418,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
(defun tramp--test-check-files (&rest files)
"Runs a simple but comprehensive test over every file in FILES."
(tramp--instrument-test-case 10
(let ((tmp-name1 (tramp--test-make-temp-name))
(tmp-name2 (tramp--test-make-temp-name 'local)))
(unwind-protect
@ -1448,7 +1449,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
tmp-name2 nil directory-files-no-dot-files-regexp)
(sort (copy-sequence files) 'string-lessp))))
(ignore-errors (delete-directory tmp-name1 'recursive))
(ignore-errors (delete-directory tmp-name2 'recursive)))))
(ignore-errors (delete-directory tmp-name2 'recursive))))))
;; This test is inspired by Bug#17238.
(ert-deftest tramp-test30-special-characters ()