[clouchdb-cvs] CVS clouchdb/src

[peddy]

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

Modified Files:
	tests.lisp 
Log Message:
Update ad-hoc-view tests


--- /project/clouchdb/cvsroot/clouchdb/src/tests.lisp	2009/07/22 20:31:31	1.28
+++ /project/clouchdb/cvsroot/clouchdb/src/tests.lisp	2009/11/22 18:09:55	1.29
@@ -962,11 +962,10 @@
 	       (document-property
 		:|total_rows|
 		(ad-hoc-view 
-		 (ps-view () 
-                   (defun map (doc)
-                     (with-slots (*NAME*) doc
-                       (if (= *NAME* "marc")
-                           (emit null *NAME*)))))))))
+		 (ps (lambda (doc)
+                       (with-slots (*NAME*) doc
+                         (if (= *NAME* "marc")
+                             (emit null *NAME*)))))))))
 
 (addtest (clouchdb-view-tests)
   (:documentation "Create an ad-hock view that should return no results")
@@ -974,10 +973,9 @@
   (ensure-same 0 (document-property
 		  :|total_rows|
 		  (ad-hoc-view 
-		   (ps-view () 
-                     (defun map (doc)
-                       (if (= doc.name "marie")
-                           (emit null doc.name))))))))
+		   (ps (lambda (doc)
+                         (if (= doc.name "marie")
+                             (emit null doc.name))))))))
 
 (addtest (clouchdb-view-tests)
   (:documentation "Ensure a view can be created")