]> code.delx.au - gnu-emacs/commitdiff
Update eieio tests for recent eieio-core change.
authorGlenn Morris <rgm@gnu.org>
Sat, 4 Jul 2015 00:25:51 +0000 (17:25 -0700)
committerGlenn Morris <rgm@gnu.org>
Sat, 4 Jul 2015 00:25:51 +0000 (17:25 -0700)
* test/automated/eieio-test-persist.el (persist-test-save-and-compare):
* test/automated/eieio-tests.el
(eieio-test-32-slot-attribute-override-2):
Replace the deleted eieio--class-v with cl--find-class.

test/automated/eieio-test-persist.el
test/automated/eieio-tests.el

index 6710ead2e7740155192bae6e49e60b2f31a8ce78..9b21b7303858036c037e25158e98a95d5e5c770b 100644 (file)
@@ -48,7 +48,7 @@ This is usually a symbol that starts with `:'."
   (let* ((file (oref original file))
         (class (eieio-object-class original))
         (fromdisk (eieio-persistent-read file class))
-        (cv (eieio--class-v class))
+        (cv (cl--find-class class))
         (slots  (eieio--class-slots cv))
         )
     (unless (object-of-class-p fromdisk class)
@@ -62,7 +62,7 @@ This is usually a symbol that starts with `:'."
             (origvalue (eieio-oref original oneslot))
             (fromdiskvalue (eieio-oref fromdisk oneslot))
             (initarg-p (eieio--attribute-to-initarg
-                         (eieio--class-v class) oneslot))
+                         (cl--find-class class) oneslot))
             )
 
        (if initarg-p
index 01131d886dddfd2d1eba9dbecf65f19308cd8aec..5709a1bfeb2f32d70352afaa633ab4473b425514 100644 (file)
@@ -803,7 +803,7 @@ Subclasses to override slot attributes.")
   (should (eq (oref-default 'slotattr-class-ok initform) 'no-init)))
 
 (ert-deftest eieio-test-32-slot-attribute-override-2 ()
-  (let* ((cv (eieio--class-v 'slotattr-ok))
+  (let* ((cv (cl--find-class 'slotattr-ok))
          (slots  (eieio--class-slots cv))
         (args   (eieio--class-initarg-tuples cv)))
     ;; :initarg should override for subclass