[elephant-cvs] CVS elephant/tests

[ieslick]

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

Modified Files:
	elephant-tests.lisp testserializer.lisp 
Log Message:
Minor modifications to improve compilation on Mac OS X and test completion under Allegro

--- /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/29 01:08:32	1.8
@@ -114,17 +114,17 @@
 )
 
 (defvar *test-path-primary*
-  *testpg-path*
+  *testdb-path*  
 )
 (defvar *test-path-secondary*
-  *testdb-path*  
+  *testdb-path2*
 )
 
 
 (defun do-all-tests()
   (progn
     (do-all-tests-spec *testdb-path*)
-    (do-all-tests-spec *testpg-path*)
+    (do-all-tests-spec *testsqlite3-path*)
     ))
 
 (defun do-crazy-pg-tests()
@@ -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/29 01:08:32	1.8
@@ -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)