[elephant-cvs] CVS elephant/tests

[ieslick]

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

Modified Files:
	elephant-tests.lisp testmigration.lisp 
Log Message:
Added legacy upgrade support, fixed some store-controller base class functionality for SQL to properly delete connections on close

--- /project/elephant/cvsroot/elephant/tests/elephant-tests.lisp	2006/02/22 22:01:45	1.19
+++ /project/elephant/cvsroot/elephant/tests/elephant-tests.lisp	2006/03/07 14:12:22	1.20
@@ -83,6 +83,10 @@
   '(:clsql (:sqlite3 "sqlite3-test.db"))
   "This is of the form '(filename &optional init-function),")
 
+(defvar *testsqlite3-spec2*
+  '(:clsql (:sqlite3 "sqlite3-test2.db"))
+  "This is of the form '(filename &optional init-function),")
+
 (defvar *testsqlite3-memory-spec*
   '(:clsql (:sqlite3 :memory))
   "Using :memory: as a file name will get you an completely in-memory system")
--- /project/elephant/cvsroot/elephant/tests/testmigration.lisp	2006/02/21 19:40:08	1.10
+++ /project/elephant/cvsroot/elephant/tests/testmigration.lisp	2006/03/07 14:12:22	1.11
@@ -181,6 +181,8 @@
 		   (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)
 		     (drop-instances (get-instances-by-class 'ipfoo) :sc sc1)
 		     (make-instance 'ipfoo :slot1 1 :sc sc1)
@@ -197,10 +199,10 @@
 			 (fm3 (get-instances-by-value 'ipfoo 'slot1 20))
 			 (all (get-instances-by-class 'ipfoo)))
 ;;		     (format t "Clear & return~%")
-		     (let ((insts (get-instances-by-class 'ipfoo)))
-		       (with-transaction (:store-controller sc2)
+;;		     (let ((insts (get-instances-by-class 'ipfoo)))
+;;		       (with-transaction (:store-controller sc2)
 ;;			 (format t "Dropping instances~%")
-			 (drop-instances insts :sc sc2)))
+;;			 (drop-instances insts :sc sc2)))
 		     (values 
 			  (length all)
 			  (length fm1)