[elephant-cvs] CVS elephant/tests

[rread]

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))