[elephant-cvs] CVS elephant/tests

ieslick ieslick at common-lisp.net
Sun Mar 11 05:59:03 UTC 2007


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

Modified Files:
	elephant-tests.lisp testmigration.lisp 
Log Message:
Migrate no longer has any dependency on memory size; improved migrate tests; cleaned up duplicate detection

--- /project/elephant/cvsroot/elephant/tests/elephant-tests.lisp	2007/03/11 05:45:17	1.28
+++ /project/elephant/cvsroot/elephant/tests/elephant-tests.lisp	2007/03/11 05:59:03	1.29
@@ -130,10 +130,9 @@
    test another backend"
   (when (and (consp spec) (symbolp (car spec)))
     (with-open-store (spec)
-      (cond ((eq (car spec) :bdb)
-	     (asdf:operate 'asdf:load-op :elephant-tests-bdb)))
-      (let ((*auto-commit* nil))
-	(do-tests)))))
+      (when (eq (car spec) :bdb)
+	(asdf:operate 'asdf:load-op :elephant-tests-bdb))
+      (do-tests))))
   
 (defun do-test-spec (testname &optional (spec *default-spec*))
   "For easy interactive running of single tests while debugging"
--- /project/elephant/cvsroot/elephant/tests/testmigration.lisp	2007/03/11 05:45:17	1.16
+++ /project/elephant/cvsroot/elephant/tests/testmigration.lisp	2007/03/11 05:59:03	1.17
@@ -35,16 +35,18 @@
 	  (format t "~%Single store mode: ignoring")
 	  t)
     (let* ((*store-controller*)
-	   (sc1 (open-store *test-spec-primary* :recover t))
-	   (sc2 (open-store *test-spec-secondary* :recover t)))
+	   (sc1 (open-store *test-spec-primary* :recover t :deadlock-detect t))
+	   (sc2 (open-store *test-spec-secondary* :recover t :deadlock-detect t)))
       (unwind-protect 
 	   (progn
-	     (elephant::initialize-migrate-duplicate-detection)
+	     (mapcar (lambda (x) 
+		       (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)
 	     (migrate sc2 sc1)
 	     (equal (get-from-root "x" :store-controller sc1)
 		    (get-from-root "x" :store-controller sc2)))
-	(elephant::clear-migrate-duplicate-detection)
 	(close-store sc1)
 	(close-store sc2))))
   t)




More information about the Elephant-cvs mailing list