aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2019-01-24 14:36:38 +0100
committerMichael Albinus2019-01-24 14:36:38 +0100
commit24f11003d27cf81ae6c844b8aed825e1ab561654 (patch)
tree9c7fa9ed657ea4ccc4dd3a5d9ed140d7965b6513
parentf3f9a3582ef2081e96d12fb92ac190ffe9c1c431 (diff)
downloademacs-24f11003d27cf81ae6c844b8aed825e1ab561654.tar.gz
emacs-24f11003d27cf81ae6c844b8aed825e1ab561654.zip
; Remove tramp-tests instrumentation
-rw-r--r--test/lisp/net/tramp-tests.el6
1 files changed, 2 insertions, 4 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index c9532f54b7c..5adc6b1a140 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -3806,7 +3806,6 @@ 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 10
3810 (dolist (quoted (if (tramp--test-expensive-test) '(nil t) '(nil))) 3809 (dolist (quoted (if (tramp--test-expensive-test) '(nil t) '(nil)))
3811 (let ((default-directory tramp-test-temporary-file-directory) 3810 (let ((default-directory tramp-test-temporary-file-directory)
3812 (tmp-name (tramp--test-make-temp-name nil quoted)) 3811 (tmp-name (tramp--test-make-temp-name nil quoted))
@@ -3864,7 +3863,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
3864 (should (string-equal (buffer-string) "foo"))) 3863 (should (string-equal (buffer-string) "foo")))
3865 3864
3866 ;; Cleanup. 3865 ;; Cleanup.
3867 (ignore-errors (delete-process proc))))))) 3866 (ignore-errors (delete-process proc))))))
3868 3867
3869(ert-deftest tramp-test30-make-process () 3868(ert-deftest tramp-test30-make-process ()
3870 "Check `make-process'." 3869 "Check `make-process'."
@@ -3873,7 +3872,6 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
3873 (skip-unless (tramp--test-sh-p)) 3872 (skip-unless (tramp--test-sh-p))
3874 (skip-unless (tramp--test-emacs27-p)) 3873 (skip-unless (tramp--test-emacs27-p))
3875 3874
3876 (tramp--test-instrument-test-case 10
3877 (dolist (quoted (if (tramp--test-expensive-test) '(nil t) '(nil))) 3875 (dolist (quoted (if (tramp--test-expensive-test) '(nil t) '(nil)))
3878 (let ((default-directory tramp-test-temporary-file-directory) 3876 (let ((default-directory tramp-test-temporary-file-directory)
3879 (tmp-name (tramp--test-make-temp-name nil quoted)) 3877 (tmp-name (tramp--test-make-temp-name nil quoted))
@@ -3990,7 +3988,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
3990 3988
3991 ;; Cleanup. 3989 ;; Cleanup.
3992 (ignore-errors (delete-process proc)) 3990 (ignore-errors (delete-process proc))
3993 (ignore-errors (kill-buffer stderr)))))))) 3991 (ignore-errors (kill-buffer stderr)))))))
3994 3992
3995(ert-deftest tramp-test31-interrupt-process () 3993(ert-deftest tramp-test31-interrupt-process ()
3996 "Check `interrupt-process'." 3994 "Check `interrupt-process'."