Update of /project/elephant/cvsroot/elephant/tests In directory clnet:/tmp/cvs-serv4302/tests
Modified Files: elephant-tests.lisp testindexing.lisp Log Message: Commiting a thread-safe version of the SQL side (but SBCL-depdent.)
--- /project/elephant/cvsroot/elephant/tests/elephant-tests.lisp 2007/02/05 19:33:46 1.24 +++ /project/elephant/cvsroot/elephant/tests/elephant-tests.lisp 2007/02/07 22:54:13 1.25 @@ -165,10 +165,12 @@ (print (do-test 'indexing-basic)) (print (do-test 'indexing-inherit)) (print (do-test 'indexing-range)) + (print (do-test 'indexing-wipe-index)) (print (do-test 'indexing-reconnect-db)) (print (do-test 'indexing-change-class)) (print (do-test 'indexing-redef-class)) - (print (do-test 'indexing-timing)))) + (print (do-test 'indexing-timing)) + ))
(defun do-collection-tests (&optional (spec *default-spec*)) "Just test indexing" --- /project/elephant/cvsroot/elephant/tests/testindexing.lisp 2007/02/06 16:32:02 1.24 +++ /project/elephant/cvsroot/elephant/tests/testindexing.lisp 2007/02/07 22:54:13 1.25 @@ -204,7 +204,9 @@ (defclass idx-five-del () ((slot1 :initarg :slot1 :initform 1 :accessor slot1)) (:metaclass persistent-metaclass)) - + (format t "r1 = ~A~%" r1) + (format t "r1 = ~A~%" (get-index (get-value 'idx-five-del (elephant::controller-class-root *store-controller*)) + 'slot1)) (values (eq (length r1) 1) (signals-error (get-instances-by-value 'idx-five-del 'slot1 1))