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)