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)