[elephant-cvs] CVS update: elephant/tests/elephant-tests.lisp

[blee at common-lisp.net]

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 , at body)
     (error () t)
     (:no-error (&rest rest) (declare (ignore rest)) nil)))
+
+(defmacro is-not-null (&body body)
+  `(not (null (progn , at body))))
+
+(defmacro are-not-null (&rest forms)
+  `(values
+    ,@(loop for form in forms
+	    collect `(is-not-null ,form))))
\ No newline at end of file