[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 4207733 1/2: ; Extend traces in tramp-test36-asynch
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] master 4207733 1/2: ; Extend traces in tramp-test36-asynchronous-requests for hydra |
Date: |
Wed, 2 Aug 2017 05:01:38 -0400 (EDT) |
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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 4207733 1/2: ; Extend traces in tramp-test36-asynchronous-requests for hydra,
Michael Albinus <=