From: Michael Albinus Date: Wed, 2 Aug 2017 08:59:57 +0000 (+0200) Subject: ; Extend traces in tramp-test36-asynchronous-requests for hydra X-Git-Tag: emacs-26.0.90~517^2~43 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4207733f4aefd17fd06e7820775d4c2359daba87;p=emacs.git ; Extend traces in tramp-test36-asynchronous-requests for hydra --- diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index d76629038f5..50dfd6fac2e 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."