[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