Commit 4207733f authored by Michael Albinus's avatar Michael Albinus
Browse files

; Extend traces in tramp-test36-asynchronous-requests for hydra

parent ae055834
......@@ -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))))
(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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment