; Instrument tramp-tests.el for hydra.

This commit is contained in:
Michael Albinus 2019-01-23 18:07:40 +01:00
parent b9add0a5a7
commit b3dfcf3e9f

View file

@ -3806,6 +3806,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
(skip-unless (tramp--test-enabled))
(skip-unless (tramp--test-sh-p))
(tramp--test-instrument-test-case 0
(dolist (quoted (if (tramp--test-expensive-test) '(nil t) '(nil)))
(let ((default-directory tramp-test-temporary-file-directory)
(tmp-name (tramp--test-make-temp-name nil quoted))
@ -3863,7 +3864,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
(should (string-equal (buffer-string) "foo")))
;; Cleanup.
(ignore-errors (delete-process proc))))))
(ignore-errors (delete-process proc)))))))
(ert-deftest tramp-test30-make-process ()
"Check `make-process'."