[elephant-cvs] CVS elephant/tests

[ieslick]

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)