Commit ba9b77fe authored by Daniel Colascione's avatar Daniel Colascione
Browse files

Fix cl-lib-struct-accessors test again.

* test/automated/cl-lib.el (cl-lib-struct-accessors): Fix test to
account for removal of `cl-struct-set-slot-value'. Also, move
the defstruct to top level.
parent 66fda794
......@@ -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))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment