From ba9b77fe2049846c50cd09285c7b201412072f0d Mon Sep 17 00:00:00 2001 From: Daniel Colascione Date: Mon, 21 Apr 2014 23:45:41 -0700 Subject: [PATCH] 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. --- test/automated/cl-lib.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 2.39.2