[elpa] externals/compat e3b9f66b6d 5/5: compat-tests.el: Fix tests for Emacs 30

[ELPA Syncer]

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

    compat-tests.el: Fix tests for Emacs 30
---
 compat-tests.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/compat-tests.el b/compat-tests.el
index a1460664ff..60e652b33a 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -944,8 +944,8 @@
 
 (ert-deftest compat-ntake ()
   (should-not (ntake 5 nil))
-  (should-equal '(1 2) (ntake 5 '(1 2)))
-  (should-equal '(1 2 3) (ntake 3 '(1 2 3 4))))
+  (should-equal '(1 2) (ntake 5 (list 1 2)))
+  (should-equal '(1 2 3) (ntake 3 (list 1 2 3 4))))
 
 (ert-deftest compat-take ()
   (should-not (take 5 nil))
@@ -1752,11 +1752,11 @@
   (should-equal (list 1 2 3) (compat-call sort (list 1 2 3) #'<))
   (should-equal (list 1 2 3) (compat-call sort (list 1 3 2) #'<))
   (should-equal (list 1 2 3) (compat-call sort (list 3 2 1) #'<))
-  (should-equal [1 2 3] (compat-call sort [1 2 3] #'<))
-  (should-equal [1 2 3] (compat-call sort [1 3 2] #'<))
-  (should-equal [1 2 3] (compat-call sort [3 2 1] #'<))
+  (should-equal [1 2 3] (compat-call sort (vector 1 2 3) #'<))
+  (should-equal [1 2 3] (compat-call sort (vector 1 3 2) #'<))
+  (should-equal [1 2 3] (compat-call sort (vector 3 2 1) #'<))
   ;; Test side effect
-  (let* ((vec [4 5 8 3 1 2 3 2 3 4])
+  (let* ((vec (vector 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])))
@@ -2647,7 +2647,7 @@
   )
 
 (ert-deftest compat-decoded-time ()
-  (let ((time '(second minute hour day month year weekday dst zone)))
+  (let ((time (list 'second 'minute 'hour 'day 'month 'year 'weekday 'dst 
'zone)))
     (should-equal (decoded-time-second time) 'second)
     (should-equal (decoded-time-minute time) 'minute)
     (should-equal (decoded-time-hour time) 'hour)