[clouchdb-cvs] CVS clouchdb/src

[peddy]

Update of /project/clouchdb/cvsroot/clouchdb/src
In directory cl-net:/tmp/cvs-serv20771

Modified Files:
	tests.lisp 
Log Message:
Added more tests, added content-type to view method


--- /project/clouchdb/cvsroot/clouchdb/src/tests.lisp	2009/07/06 22:24:45	1.18
+++ /project/clouchdb/cvsroot/clouchdb/src/tests.lisp	2009/07/07 01:28:20	1.19
@@ -594,7 +594,19 @@
                                              :name "something.else")))
   (let ((attachments (attachment-list "doc")))
     (ensure-same 2 (length attachments))
-    (ensure-same "something.lisp" (attachment-name (car attachments)))))
+    (ensure (find :|something.lisp| attachments :key #'car))
+    (ensure (find :|something.else| attachments :key #'car))))
+
+(addtest (clouchdb-doc-api-tests)
+  (:documentation "Test creating attachment with stream")
+  add-attachment-stream
+  (ensure (document-property :|ok|
+                             (add-attachment "doc" 
+                                             (pathname "tests.lisp"))))
+  (ensure (document-property 
+           :|ok| 
+           (with-attachment (stream "doc" "tests.lisp")
+             (add-attachment "doc2" stream :name "tests2.lisp")))))
 
 ;; 
 ;; Replication Tests.