[Emacs-diffs] master 4207733 1/2: ; Extend traces in tramp-test36-asynchronous-requests for hydra

[Michael Albinus]

branch: master
commit 4207733f4aefd17fd06e7820775d4c2359daba87
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    ; Extend traces in tramp-test36-asynchronous-requests for hydra
---
 test/lisp/net/tramp-tests.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index d766290..50dfd6f 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -3804,6 +3804,7 @@ process sentinels.  They shall not disturb each other."
   ;; seconds, and we send a SIGUSR1 signal after 300 seconds.
   (with-timeout (300 (tramp--test-timeout-handler))
     (define-key special-event-map [sigusr1] 'tramp--test-timeout-handler)
+    (tramp--test-instrument-test-case (if (getenv "EMACS_HYDRA_CI") 10 0)
     (let* ((watchdog
             (start-process
              "*watchdog*" nil shell-file-name shell-command-switch
@@ -3917,10 +3918,9 @@ process sentinels.  They shall not disturb each other."
                   ;; Give the watchdog a chance.
                   (read-event nil nil 0.01)
                   ;; Regular operation post process action.
-                  (tramp--test-instrument-test-case 10
-                    (if (= count 2)
-                        (should-not (file-attributes file))
-                      (should (file-attributes file))))
+                  (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))
@@ -3945,7 +3945,7 @@ process sentinels.  They shall not disturb each other."
           (ignore-errors (delete-process (get-buffer-process buf)))
           (ignore-errors (kill-buffer buf)))
         (ignore-errors (cancel-timer timer))
-        (ignore-errors (delete-directory tmp-name 'recursive))))))
+        (ignore-errors (delete-directory tmp-name 'recursive)))))))
 
 (ert-deftest tramp-test37-recursive-load ()
   "Check that Tramp does not fail due to recursive load."