[clouchdb-cvs] CVS clouchdb/src

[peddy]

Update of /project/clouchdb/cvsroot/clouchdb/src
In directory clnet:/tmp/cvs-serv24442/src

Modified Files:
	tests.lisp package.lisp 
Log Message:
- export compact-db
- add compact-db tests


--- /project/clouchdb/cvsroot/clouchdb/src/tests.lisp	2008/06/17 23:12:26	1.14
+++ /project/clouchdb/cvsroot/clouchdb/src/tests.lisp	2008/06/29 15:17:52	1.15
@@ -314,6 +314,18 @@
     (delete-db :if-missing :ignore :db-name (create-temp-db-name)))))
 
 (addtest (clouchdb-db-admin-tests)
+  (:documentation "Test compact-db")
+  db-compact-db-1
+  (ensure (setf *db-name* (create-temp-db)))
+  (ensure (document-property :|ok| (compact-db))))
+
+(addtest (clouchdb-db-admin-tests)
+  (:documentation "Test named compact-db")
+  db-compact-db-named
+  (ensure (setf *db-name* (create-temp-db)))
+  (ensure (document-property :|ok| (compact-db :db-name *db-name*))))
+
+(addtest (clouchdb-db-admin-tests)
   (:documentation "Creating a db that already exists is an error")
   db-create-existant-db
   (ensure (setf *db-name* (create-temp-db)))
--- /project/clouchdb/cvsroot/clouchdb/src/package.lisp	2008/06/15 18:00:39	1.9
+++ /project/clouchdb/cvsroot/clouchdb/src/package.lisp	2008/06/29 15:17:52	1.10
@@ -40,6 +40,7 @@
 	   :doc-error
 	   :id-or-revision-conflict
 	   :id-missing
+           :compact-db
 	   :document-missing
 	   :document-to-json
            :json-to-document