diff options
Diffstat (limited to 'test')
| -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 @@ | |||
| 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)) |