diff options
| author | Michael Albinus | 2019-01-23 18:07:40 +0100 |
|---|---|---|
| committer | Michael Albinus | 2019-01-23 18:07:40 +0100 |
| commit | b3dfcf3e9f217919903f3469323fcd1386a16893 (patch) | |
| tree | 210926807b101c4fa6ffc72690f03a03803bdc62 | |
| parent | b9add0a5a7eddcf80a189c478b39a5cb7a12befe (diff) | |
| download | emacs-b3dfcf3e9f217919903f3469323fcd1386a16893.tar.gz emacs-b3dfcf3e9f217919903f3469323fcd1386a16893.zip | |
; Instrument tramp-tests.el for hydra.
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 58860c7161a..9278c2254b8 100644 --- 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'." | |||
| 3806 | (skip-unless (tramp--test-enabled)) | 3806 | (skip-unless (tramp--test-enabled)) |
| 3807 | (skip-unless (tramp--test-sh-p)) | 3807 | (skip-unless (tramp--test-sh-p)) |
| 3808 | 3808 | ||
| 3809 | (tramp--test-instrument-test-case 0 | ||
| 3809 | (dolist (quoted (if (tramp--test-expensive-test) '(nil t) '(nil))) | 3810 | (dolist (quoted (if (tramp--test-expensive-test) '(nil t) '(nil))) |
| 3810 | (let ((default-directory tramp-test-temporary-file-directory) | 3811 | (let ((default-directory tramp-test-temporary-file-directory) |
| 3811 | (tmp-name (tramp--test-make-temp-name nil quoted)) | 3812 | (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'." | |||
| 3863 | (should (string-equal (buffer-string) "foo"))) | 3864 | (should (string-equal (buffer-string) "foo"))) |
| 3864 | 3865 | ||
| 3865 | ;; Cleanup. | 3866 | ;; Cleanup. |
| 3866 | (ignore-errors (delete-process proc)))))) | 3867 | (ignore-errors (delete-process proc))))))) |
| 3867 | 3868 | ||
| 3868 | (ert-deftest tramp-test30-make-process () | 3869 | (ert-deftest tramp-test30-make-process () |
| 3869 | "Check `make-process'." | 3870 | "Check `make-process'." |