[elephant-cvs] CVS elephant/tests

[ieslick]

Update of /project/elephant/cvsroot/elephant/tests
In directory clnet:/tmp/cvs-serv9966/tests

Modified Files:
	testindexing.lisp 
Log Message:
Further lispworks tweaks; fix bug in wipe-class-indexing

--- /project/elephant/cvsroot/elephant/tests/testindexing.lisp	2007/02/26 19:12:20	1.30
+++ /project/elephant/cvsroot/elephant/tests/testindexing.lisp	2007/02/26 19:55:13	1.31
@@ -219,6 +219,7 @@
 	(:metaclass persistent-metaclass))
 
       (with-transaction (:store-controller *store-controller*)
+	(drop-instances (get-instances-by-class 'idx-five-del))
 	(make-instance 'idx-five-del))
       
       (let ((r1 (get-instances-by-value 'idx-five-del 'slot1 1)))