; Instrument tramp-tests.el for hydra.

b3dfcf3e · Michael Albinus · b9add0a5 · b3dfcf3e
Commit b3dfcf3e authored Jan 23, 2019 by Michael Albinus
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

test/lisp/net/tramp-tests.el test/lisp/net/tramp-tests.el +2 -1

No files found.
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -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'."