; Further tramp-tests instrumentation

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 7612fcdddf8344ae66f008d12dc14494a77a0ed1..9deb794f401f3c7c27ae24a44e91f8acae210405 100644 (file)
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -2278,10 +2278,10 @@ This checks also `file-name-as-directory', `file-name-directory',
                (with-temp-buffer
                  (insert-file-contents target)
                  (should (string-equal (buffer-string) "foo")))
-               (when (tramp--test-expensive-test)
-                 (should-error
-                  (copy-file source target)
-                  :type 'file-already-exists))
+               ;; (when (tramp--test-expensive-test)
+               ;;   (should-error
+               ;;    (copy-file source target)
+               ;;    :type 'file-already-exists))
                (copy-file source target 'ok))
 
            ;; Cleanup.
@@ -2297,11 +2297,11 @@ This checks also `file-name-as-directory', `file-name-directory',
                (should (file-exists-p source))
                (make-directory target)
                (should (file-directory-p target))
-               ;; This has been changed in Emacs 26.1.
-               (when (and (tramp--test-expensive-test) (tramp--test-emacs26-p))
-                 (should-error
-                  (copy-file source target)
-                  :type 'file-already-exists))
+               ;; ;; This has been changed in Emacs 26.1.
+               ;; (when (and (tramp--test-expensive-test) (tramp--test-emacs26-p))
+               ;;   (should-error
+               ;;    (copy-file source target)
+               ;;    :type 'file-already-exists))
                (copy-file source (file-name-as-directory target))
                (should
                 (file-exists-p