mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

Fix cl-lib-struct-accessors test again.

Browse source 
* 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.
This commit is contained in:
Daniel Colascione 2014-04-21 23:45:41 -07:00
parent 66fda7948f
commit ba9b77fe20
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
test/automated/cl-lib.el
View file

@ -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))