mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

Update eieio tests for recent eieio-core change.

Browse source 
* 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.
This commit is contained in:
Glenn Morris 2015-07-03 17:25:51 -07:00
parent e3c4cd0074
commit fc4151f285
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test/automated/eieio-test-persist.el
View 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

2
test/automated/eieio-tests.el
View 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