[elpa] externals/compat bc4739eb1e 2/2: compat-tests: Fix sort warning on Emacs 30

[ELPA Syncer]

branch: externals/compat
commit bc4739eb1e88c6c409f83e4e471e5d0472792ad8
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    compat-tests: Fix sort warning on Emacs 30
---
 compat-tests.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/compat-tests.el b/compat-tests.el
index 7312123814..981aab0659 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1750,8 +1750,9 @@
   (should-equal [1 2 3] (compat-call sort [1 3 2] #'<))
   (should-equal [1 2 3] (compat-call sort [3 2 1] #'<))
   ;; Test side effect
-  (let ((vec [4 5 8 3 1 2 3 2 3 4]))
-    (compat-call sort vec #'>)
+  (let* ((vec [4 5 8 3 1 2 3 2 3 4])
+         (sorted (compat-call sort vec #'>)))
+    (should-equal sorted [8 5 4 4 3 3 3 2 2 1])
     (should-equal vec [8 5 4 4 3 3 3 2 2 1])))
 
 (ert-deftest compat-replace-string-in-region ()