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)