[elephant-cvs] CVS elephant/tests

[ieslick]

Update of /project/elephant/cvsroot/elephant/tests
In directory common-lisp:/tmp/cvs-serv16040/tests

Modified Files:
      Tag: ELEPHANT-0-4-1-rc1-IAN
	elephant-tests.lisp testserializer.lisp 
Log Message:


--- /project/elephant/cvsroot/elephant/tests/elephant-tests.lisp	2006/01/24 18:25:01	1.7
+++ /project/elephant/cvsroot/elephant/tests/elephant-tests.lisp	2006/01/27 00:03:49	1.7.2.1
@@ -114,10 +114,10 @@
 )
 
 (defvar *test-path-primary*
-  *testpg-path*
+  *testdb-path*  
 )
 (defvar *test-path-secondary*
-  *testdb-path*  
+  *testpg-path*
 )
 
 
@@ -151,9 +151,10 @@
     ))
 
 (defun do-all-tests-spec(spec)
-  (with-open-store (spec)
-    (let ((*auto-commit* nil))
-      (do-tests))))
+  (when spec
+    (with-open-store (spec)
+      (let ((*auto-commit* nil))
+	(do-tests)))))
 
 (defun find-slot-def (class-name slot-name)
   (find-if #'(lambda (slot-def)
--- /project/elephant/cvsroot/elephant/tests/testserializer.lisp	2005/11/23 17:51:59	1.7
+++ /project/elephant/cvsroot/elephant/tests/testserializer.lisp	2006/01/27 00:03:49	1.7.2.1
@@ -196,12 +196,14 @@
 	    (array-element-type 
 	     (in-out-value (make-array '(3 4 5) 
 				       :element-type 
-				       '(unsigned-byte 20)))))
+				       '(unsigned-byte 20)
+				       :initial-element 0))))
      (type= (upgraded-array-element-type 'fixnum)
 	    (array-element-type 
 	     (in-out-value (make-array '(3 4 5) 
 				       :element-type 
-				       'fixnum))))
+				       'fixnum
+				       :initial-element 0))))
      )
   t t t t)