Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 05:17:35 +00:00
Code Issues Projects Releases Packages Wiki Activity

Revert change to use seq-random-elt in Tramp test

Browse source 
* test/lisp/net/tramp-tests.el (tramp-test44-asynchronous-requests):
Revert change to use seq-random-elt, as Tramp needs to be compatible
with Emacs 25, and the function was only added in 26.1.
This commit is contained in:
Stefan Kangas 2021-09-24 22:17:04 +02:00
parent 54cfadd92f
commit 2ee5c80ff5
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -6787,7 +6787,10 @@ process sentinels. They shall not disturb each other."
(let ((time (float-time))
(default-directory tmp-name)
(file
(buffer-name (seq-random-elt buffers)))
(buffer-name
;; Use `seq-random-elt' once <26.1 support
;; is dropped.
(nth (random (length buffers)) buffers)))
;; A remote operation in a timer could
;; confuse Tramp heavily. So we ignore this
;; error here.
@ -6852,7 +6855,8 @@ process sentinels. They shall not disturb each other."
;; the buffers. Mix with regular operation.
(let ((buffers (copy-sequence buffers)))
(while buffers
(let* ((buf (seq-random-elt buffers))
;; Use `seq-random-elt' once <26.1 support is dropped.
(let* ((buf (nth (random (length buffers)) buffers))
(proc (get-buffer-process buf))
(file (process-get proc 'foo))
(count (process-get proc 'bar)))