From bc4739eb1e88c6c409f83e4e471e5d0472792ad8 Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Wed, 19 Apr 2023 15:33:16 +0200 Subject: 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 7312123..981aab0 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 () -- cgit v1.0