[Emacs-diffs] master 55d62d3: ; Change instrumentation code in tramp-tests.el

[Michael Albinus]

branch: master
commit 55d62d344a0c2ad6c2726fae04366b2a3ed87f6f
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    ; Change instrumentation code in tramp-tests.el
---
 test/lisp/net/tramp-tests.el | 17 ++++-------------
 1 file changed, 4 insertions(+), 13 deletions(-)

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 979f674..3e28eb6 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -149,7 +149,6 @@ handled properly.  BODY shall not contain a timeout."
         (debug-ignored-errors
          (cons "^make-symbolic-link not supported$" debug-ignored-errors))
         inhibit-message)
-     (message "tramp--test-instrument-test-case %s" tramp-verbose)
      (unwind-protect
         (let ((tramp--test-instrument-test-case-p t)) ,@body)
        ;; Unwind forms.
@@ -3908,23 +3907,15 @@ process sentinels.  They shall not disturb each other."
                       (should-not (file-attributes file))
                     (should (file-attributes file)))
                   ;; Send string to process.
-                  (tramp--test-message
-                   "Trace 1 action %d %s %s" count buf (current-time-string))
                   (process-send-string proc (format "%s\n" (buffer-name buf)))
-                  (tramp--test-message
-                   "Trace 2 action %d %s %s" count buf (current-time-string))
                   (accept-process-output proc 0.1 nil 0)
-                  (tramp--test-message
-                   "Trace 3 action %d %s %s" count buf (current-time-string))
                   ;; Give the watchdog a chance.
                   (read-event nil nil 0.01)
                   ;; Regular operation.
-                  (if (= count 2)
-                      (if (= (length buffers) 1)
-                          (tramp--test-instrument-test-case 10
-                            (should-not (file-attributes file)))
-                        (should-not (file-attributes file)))
-                    (should (file-attributes file)))
+                  (tramp--test-instrument-test-case 10
+                    (if (= count 2)
+                        (should-not (file-attributes file))
+                      (should (file-attributes file))))
                   (tramp--test-message
                    "Stop action %d %s %s" count buf (current-time-string))
                   (process-put proc 'bar (1+ count))