aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/automated/cl-lib.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/test/automated/cl-lib.el b/test/automated/cl-lib.el
index 89bc3cea392..48a4c5da251 100644
--- a/test/automated/cl-lib.el
+++ b/test/automated/cl-lib.el
@@ -201,8 +201,8 @@
201 :b :a :a 42) 201 :b :a :a 42)
202 '(42 :a)))) 202 '(42 :a))))
203 203
204(cl-defstruct mystruct (abc :readonly t) def)
204(ert-deftest cl-lib-struct-accessors () 205(ert-deftest cl-lib-struct-accessors ()
205 (cl-defstruct mystruct (abc :readonly t) def)
206 (let ((x (make-mystruct :abc 1 :def 2))) 206 (let ((x (make-mystruct :abc 1 :def 2)))
207 (should (eql (cl-struct-slot-value 'mystruct 'abc x) 1)) 207 (should (eql (cl-struct-slot-value 'mystruct 'abc x) 1))
208 (should (eql (cl-struct-slot-value 'mystruct 'def x) 2)) 208 (should (eql (cl-struct-slot-value 'mystruct 'def x) 2))