procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adjust timer in tramp-test36-asynchronous-requests

Browse source 
* test/lisp/net/tramp-tests.el (tramp-test36-asynchronous-requests):
Adjust timer if it takes too much time.
This commit is contained in:
Michael Albinus 2017-07-14 10:55:31 +02:00
parent 4d3657af32
commit 05c7c8278e
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
test/lisp/net/tramp-tests.el
View file

@ -3726,12 +3726,18 @@ process sentinels. They shall not disturb each other."
0 timer-repeat
(lambda ()
(when buffers
(let ((default-directory tmp-name)
(let ((time (float-time))
(default-directory tmp-name)
(file
(buffer-name (nth (random (length buffers)) buffers))))
(tramp--test-message
"Start timer %s %s" file (current-time-string))
(funcall timer-operation file)
;; Adjust timer if it takes too much time.
(when (> (- (float-time) time) timer-repeat)
(setq timer-repeat (* 1.5 timer-repeat))
(setf (timer--repeat-delay timer) timer-repeat)
(tramp--test-message "Increase timer %s" timer-repeat))
(tramp--test-message
"Stop timer %s %s" file (current-time-string)))))))