From: Stefan Kangas <stefan@marxist.se>
Date: Fri, 24 Sep 2021 20:17:04 +0000 (+0200)
Subject: Revert change to use seq-random-elt in Tramp test
X-Git-Tag: emacs-28.0.90~679
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ee5c80ff5454320a0bbe8c2d5b32eb2f0b46bdb;p=emacs.git

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

* 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.
---

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index f105c6f60ba..358f87d84c9 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -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)))