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

Fix typo in test of read-only cl-defstruct slot.

Browse source 
* test/lisp/emacs-lisp/cl-macs-tests.el (mystruct)
(cl-lib-struct-accessors): Use ":read-only" instead of ":readonly".

* test/lisp/emacs-lisp/cl-lib-tests.el (cl-lib-struct-accessors):
Test using `setf' on read-only accessor to make sure the correct keyword
is used.
This commit is contained in:
Earl Hyatt 2025-03-29 17:30:48 -04:00 • committed by Stefan Monnier
parent e04d1dafc7
commit 6f311883d2
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
test/lisp/emacs-lisp/cl-macs-tests.el
View file

@ -520,7 +520,7 @@ collection clause."
(:constructor cl-lib--con-1 (&aux (abc 1)))
(:constructor cl-lib--con-2 (&optional def) "Constructor docstring."))
"General docstring."
(abc 5 :readonly t) (def nil))
(abc 5 :read-only t) (def nil))
(ert-deftest cl-lib-struct-accessors ()
(let ((x (make-mystruct :abc 1 :def 2)))
@ -530,8 +530,9 @@ collection clause."
(should (eql (cl-struct-slot-value 'mystruct 'def x) -1))
(should (eql (cl-struct-slot-offset 'mystruct 'abc) 1))
(should-error (cl-struct-slot-offset 'mystruct 'marypoppins))
(should-error (setf (mystruct-abc x) 3))
(should (pcase (cl-struct-slot-info 'mystruct)
(`((cl-tag-slot) (abc 5 :readonly t)
(`((cl-tag-slot) (abc 5 :read-only t)
(def . ,(or 'nil '(nil))))
t)))))