[elephant-cvs] CVS elephant/tests

[ieslick]

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