procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix uncaught cl-nreconc on constant list

Browse source 
* test/lisp/emacs-lisp/cl-extra-tests.el (cl-extra-test-isqrt):
Expect most specific error type.
(cl-extra-test-nreconc): Pass fresh list as first argument to
cl-nreconc.  The usual mutates-arguments warning was not emitted,
possibly in relation to bug#74920 and cl-nreconc being proclaimed
inline.
(cl-extra-test-list-length): Simplify using nconc.
This commit is contained in:
Basil L. Contovounesios 2025-02-02 17:24:14 +01:00
parent 52034675a2
commit b8c8ae92db
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
test/lisp/emacs-lisp/cl-extra-tests.el
View file

@ -220,8 +220,8 @@
(should (equal (cl-isqrt 0) 0))
(should (equal (cl-isqrt 3) 1))
(should (equal (cl-isqrt 10) 3))
(should-error (cl-isqrt -4))
(should-error (cl-isqrt 2.5)))
(should-error (cl-isqrt -4) :type 'arith-error)
(should-error (cl-isqrt 2.5) :type 'arith-error))
(ert-deftest cl-extra-test-floor ()
(should (equal (cl-floor 4.5) '(4 0.5)))
@ -282,13 +282,13 @@
(should (equal (cl-revappend '(1 2 3) '(4 5 6)) '(3 2 1 4 5 6))))
(ert-deftest cl-extra-test-nreconc ()
(should (equal (cl-nreconc '(1 2 3) '(4 5 6)) '(3 2 1 4 5 6))))
(should (equal (cl-nreconc (list 1 2 3) '(4 5 6)) '(3 2 1 4 5 6))))
(ert-deftest cl-extra-test-list-length ()
(should (equal (cl-list-length '(1 2 3)) 3))
(should (equal (cl-list-length '()) 0))
(let ((xl (number-sequence 1 100)))
(setcdr (nthcdr 99 xl) xl)
(nconc xl xl)
(should (equal (cl-list-length xl) nil))))
(ert-deftest cl-extra-test-tailp ()