Update of /project/elephant/cvsroot/elephant/tests In directory common-lisp:/tmp/cvs-serv21166/tests

Modified Files: testindexing.lisp Log Message: Bug fixes to indexing tests for failures under SBCL

--- /project/elephant/cvsroot/elephant/tests/testindexing.lisp 2006/02/22 04:40:57 1.7 +++ /project/elephant/cvsroot/elephant/tests/testindexing.lisp 2006/02/22 17:15:49 1.8 @@ -130,8 +130,8 @@ ;; (format t "connect store: ~A ~A~%" *store-controller* (controller-path *store-controller*))

(when (find-class 'idx-five nil) - (disable-class-indexing 'idx-two :errorp nil) - (setf (find-class 'idx-two) nil)) + (disable-class-indexing 'idx-five :errorp nil) + (setf (find-class 'idx-five) nil))

(defclass idx-five () ((slot1 :initarg :slot1 :initform 1 :accessor slot1 :index t) @@ -220,14 +220,15 @@ (progn (when (find-class 'idx-eight nil) (disable-class-indexing 'idx-eight :errorp nil) - (setf (find-class 'idx-six nil) nil)) + (setf (find-class 'idx-eight nil) nil))

(defclass idx-eight () ((slot1 :accessor slot1 :initarg :slot1 :index t) (slot2 :accessor slot2 :initarg :slot2) (slot3 :accessor slot3 :initarg :slot3 :transient t) (slot4 :accessor slot4 :initarg :slot4 :index t) - (slot5 :accessor slot5 :initarg :slot5))) + (slot5 :accessor slot5 :initarg :slot5)) + (:metaclass persistent-metaclass))

(let ((o1 nil) (o2 nil)) @@ -240,7 +241,8 @@ (slot2 :accessor slot2 :initarg :slot2 :initform 12 :index t) (slot3 :accessor slot3 :initarg :slot3 :initform 13) (slot6 :accessor slot6 :initarg :slot6 :initform 14 :index t) - (slot7 :accessor slot7 :initarg :slot7))) + (slot7 :accessor slot7 :initarg :slot7)) + (:metaclass persistent-metaclass))

(values (and (eq (slot1 o1) 1) @@ -255,9 +257,6 @@ (eq (length (get-instances-by-value 'idx-eight 'slot6 14)) 2)) (and (not (slot-boundp o1 'slot7)))))) t t t t t t) - - - nil)

;; create 500 objects, write each object's slots