[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master fc4151f: Update eieio tests for recent eieio-core c
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master fc4151f: Update eieio tests for recent eieio-core change. |
Date: |
Sat, 04 Jul 2015 00:26:05 +0000 |
branch: master
commit fc4151f285ffb6939ada39d342b885eb5f23543d
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
Update eieio tests for recent eieio-core change.
* 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 | 4 ++--
test/automated/eieio-tests.el | 2 +-
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/test/automated/eieio-test-persist.el
b/test/automated/eieio-test-persist.el
index 6710ead..9b21b73 100644
--- a/test/automated/eieio-test-persist.el
+++ b/test/automated/eieio-test-persist.el
@@ -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
diff --git a/test/automated/eieio-tests.el b/test/automated/eieio-tests.el
index 01131d8..5709a1b 100644
--- a/test/automated/eieio-tests.el
+++ b/test/automated/eieio-tests.el
@@ -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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master fc4151f: Update eieio tests for recent eieio-core change.,
Glenn Morris <=