From: Daniel Colascione <dancol@dancol.org>
Date: Tue, 22 Apr 2014 06:45:41 +0000 (-0700)
Subject: Fix cl-lib-struct-accessors test again.
X-Git-Tag: emacs-25.0.90~2640^2~199
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ba9b77fe2049846c50cd09285c7b201412072f0d;p=emacs.git

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.
---

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