Update of /project/elephant/cvsroot/elephant/tests In directory clnet:/tmp/cvs-serv14083/tests
Modified Files: testindexing.lisp Log Message: Apparently a misplaced parenthesis...
--- /project/elephant/cvsroot/elephant/tests/testindexing.lisp 2006/02/25 20:53:57 1.13 +++ /project/elephant/cvsroot/elephant/tests/testindexing.lisp 2006/02/27 16:49:49 1.14 @@ -269,8 +269,7 @@ (disable-class-indexing 'idx-eight :errorp nil) (setf (find-class 'idx-eight nil) nil))
-;; (format t "sc: ~A ct: ~A~%" *store-controller* *current-transaction*) - + ;; (format t "sc: ~A ct: ~A~%" *store-controller* *current-transaction*) (defclass idx-eight () ((slot1 :accessor slot1 :initarg :slot1 :index t) (slot2 :accessor slot2 :initarg :slot2) @@ -303,11 +302,11 @@ (not (slot-exists-p o1 'slot5)) (signals-error (get-instances-by-value 'idx-eight 'slot4 4))) (eq (slot6 o1) 14) - (eq (length (get-instances-by-value 'idx-eight 'slot6 14)) 2)) + (eq (length (get-instances-by-value 'idx-eight 'slot6 14)) 2) (and ;;(slot-exists-p o1 'slot7) - (not (slot-boundp o1 'slot7))) + (not (slot-boundp o1 'slot7))) (and ;;(slot-exists-p o2 'slot7) - (not (slot-boundp o2 'slot7)))))) + (not (slot-boundp o2 'slot7)))))) t t t t t t t t)
;; create 500 objects, write each object's slots