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

; Instrument tramp-tests.el

Browse source
This commit is contained in:
Michael Albinus 2017-07-02 12:16:33 +02:00
parent c7e7eb323c
commit 4383ff87a1
1 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -3700,7 +3700,11 @@ process sentinels. They shall not disturb each other."
;; Suppress nasty messages.
(inhibit-message t)
(number-proc 10)
(timer-repeat 1)
;; On hydra, timings are bad.
(timer-repeat
(cond
((getenv "NIX_STORE") 10
(t 1))))
;; We must distinguish due to performance reasons.
(timer-operation
(cond
@ -3725,10 +3729,13 @@ process sentinels. They shall not disturb each other."
(let ((default-directory tmp-name)
(file
(buffer-name (nth (random (length buffers)) buffers))))
(tramp--test-message "Start timer %s %s" timer-operation file)
(tramp--test-message
"Start timer %s %s %s"
timer-operation file (current-time-string))
(funcall timer-operation file)
(tramp--test-message
"Stop timer %s %s" timer-operation file))))))
"Stop timer %s %s %s"
timer-operation file (current-time-string)))))))
;; Create temporary buffers. The number of buffers
;; corresponds to the number of processes; it could be