[elephant-cvs] CVS elephant/tests

[ieslick]

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

Modified Files:
	testmigration.lisp 
Log Message:

Fix for a problem during migration of persistent classes from one store to another.
0.6.0 is clean for BDB/Allegro on Mac OS X



--- /project/elephant/cvsroot/elephant/tests/testmigration.lisp	2006/04/26 17:53:45	1.12
+++ /project/elephant/cvsroot/elephant/tests/testmigration.lisp	2006/04/26 19:19:12	1.13
@@ -171,12 +171,14 @@
 	    (unwind-protect
 		 ;; ensure class index is initialized in sc1
 		 (progn
+		   (with-transaction (:store-controller sc2)
+		     (remove-kv 'ipfoo (elephant::controller-class-root sc2)))
 		   (setf (elephant::%index-cache (find-class 'ipfoo)) nil)
 		   (find-class-index 'ipfoo :sc sc1)
 		   (format t "Making objects~%")
-		   (with-transaction (:store-controller sc2)
-		     (drop-instances (get-instances-by-class 'ipfoo) :sc sc2))
-		   (with-transaction (:store-controller sc1)
+;;		   (with-transaction (:store-controller sc2)
+;;		     (drop-instances (get-instances-by-class 'ipfoo) :sc sc2))
+		   (with-transaction (:store-controller sc1 :retries 2)
 		     (drop-instances (get-instances-by-class 'ipfoo) :sc sc1)
 		     (make-instance 'ipfoo :slot1 1 :sc sc1)
 		     (make-instance 'ipfoo :slot1 10 :sc sc1)