aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaniel Colascione2014-04-21 23:45:41 -0700
committerDaniel Colascione2014-04-21 23:45:41 -0700
commitba9b77fe2049846c50cd09285c7b201412072f0d (patch)
tree9c306d9547f5d75745ca5b39122a9dd033a86914
parent66fda7948f7d0b94194d53edcfbf27bec596c019 (diff)
downloademacs-ba9b77fe2049846c50cd09285c7b201412072f0d.tar.gz
emacs-ba9b77fe2049846c50cd09285c7b201412072f0d.zip
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.
-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))