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

Modified Files: testmigration.lisp Log Message: Fixed migrate-mult-pclass test bug

--- /project/elephant/cvsroot/elephant/tests/testmigration.lisp 2007/03/16 14:44:46 1.18 +++ /project/elephant/cvsroot/elephant/tests/testmigration.lisp 2007/03/18 20:47:28 1.19 @@ -162,6 +162,11 @@ (defstruct simple-struct s1 s2)

(deftest migrate-mult-pclass + (if (or (not (boundp '*test-spec-secondary*) ) + (null *test-spec-secondary*)) + (progn + (format t "~%Single store mode: ignoring") + (values t t t t t t)) (progn (let* ((sc1 (open-store *test-spec-primary* :recover t :deadlock-detect t)) (sc2 (open-store *test-spec-secondary* :recover t :deadlock-detect t)) @@ -214,7 +219,7 @@ (eq (slot1 (simple-struct-s1 newstruct)) 5))))))) (close-store sc1) (close-store sc2) - (elephant::clear-migrate-duplicate-detection)))) + (elephant::clear-migrate-duplicate-detection))))) t t t t t t)

(defpclass ipfoo ()