[elephant-cvs] CVS elephant/tests

[ieslick]

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 ()