Commit ca2e9fb3 authored by Michael Albinus's avatar Michael Albinus
Browse files

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

parent d7b659bb
......@@ -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 ()
......
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