diff options
| -rw-r--r-- | test/automated/cl-lib.el | 2 |
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 @@ :b :a :a 42) '(42 :a)))) +(cl-defstruct mystruct (abc :readonly t) def) (ert-deftest cl-lib-struct-accessors () - (cl-defstruct mystruct (abc :readonly t) def) (let ((x (make-mystruct :abc 1 :def 2))) (should (eql (cl-struct-slot-value 'mystruct 'abc x) 1)) (should (eql (cl-struct-slot-value 'mystruct 'def x) 2)) |