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

Modified Files: testmigration.lisp Log Message: Fix for add-to-root, etc api change

--- /project/elephant/cvsroot/elephant/tests/testmigration.lisp 2007/03/18 20:47:28 1.19 +++ /project/elephant/cvsroot/elephant/tests/testmigration.lisp 2007/03/24 10:51:45 1.20 @@ -43,10 +43,10 @@ (disable-class-indexing x :sc sc1)) '(idx-two idx-three idx-four idx-five idx-six idx-seven idx-eight idx-five-del stress-index idx-unbound-del)) - (add-to-root "x" "y" :store-controller sc1) + (add-to-root "x" "y" :sc sc1) (migrate sc2 sc1) - (equal (get-from-root "x" :store-controller sc1) - (get-from-root "x" :store-controller sc2))) + (equal (get-from-root "x" :sc sc1) + (get-from-root "x" :sc sc2))) (close-store sc1) (close-store sc2)))) t)