Update of /project/elephant/cvsroot/elephant/tests In directory common-lisp.net:/tmp/cvs-serv26111/tests

Modified Files: elephant-tests.lisp Log Message: updates

Date: Thu Sep 16 06:25:19 2004 Author: blee

Index: elephant/tests/elephant-tests.lisp diff -u elephant/tests/elephant-tests.lisp:1.2 elephant/tests/elephant-tests.lisp:1.3 --- elephant/tests/elephant-tests.lisp:1.2 Sat Sep 4 11:16:11 2004 +++ elephant/tests/elephant-tests.lisp Thu Sep 16 06:25:19 2004 @@ -44,40 +44,50 @@ (:nicknames ele-tests :ele-tests) (:use common-lisp elephant rt) (:import-from :ele - *out-buf* + with-buffer-streams serialize - deserialize - buffer-stream-buffer) + deserialize) #+cmu (:import-from :pcl finalize-inheritance slot-definition-name + slot-makunbound-using-class class-slots) #+sbcl (:import-from :sb-mop finalize-inheritance slot-definition-name + slot-makunbound-using-class class-slots) #+allegro (:import-from :clos finalize-inheritance slot-definition-name + slot-makunbound-using-class class-slots) #+openmcl (:import-from :ccl finalize-inheritance slot-definition-name + slot-makunbound-using-class class-slots) #+lispworks (:import-from :clos finalize-inheritance slot-definition-name + slot-makunbound-using-class class-slots) )

(in-package :ele-tests)

-(defvar *testdb-path* "/usr/local/share/common-lisp/elephant-0.1/tests/testdb") + +(defvar *testdb-path* "/usr/local/share/common-lisp/elephant-0.2/tests/testdb") + +(defun do-all-tests() + (with-open-store (*testdb-path*) + (let ((*auto-commit* nil)) + (do-tests))))

(defun find-slot-def (class-name slot-name) (find-if #'(lambda (slot-def) @@ -103,3 +113,11 @@ (progn ,@body) (error () t) (:no-error (&rest rest) (declare (ignore rest)) nil))) + +(defmacro is-not-null (&body body) + `(not (null (progn ,@body)))) + +(defmacro are-not-null (&rest forms) + `(values + ,@(loop for form in forms + collect `(is-not-null ,form)))) \ No newline at end of file