X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-basic.lisp;h=ba55fba6e008991044db75a168967a4c3b81efcb;hp=aff45cb6ffab18cabf7fd5b8c50185aea3446312;hb=fd11963eb2f46ffac6da2b18fab3d7ff2a4390cf;hpb=7e20a5285824bbbd2aa6fae61da73465ed2e8557

diff --git a/tests/test-basic.lisp b/tests/test-basic.lisp
index aff45cb..ba55fba 100644
--- a/tests/test-basic.lisp
+++ b/tests/test-basic.lisp
@@ -140,10 +140,27 @@
 	       (parse-double (second (nth i rows)))))
 	     results)))
       ((t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t)))
+    
+    (deftest :BASIC/MAP/3
+	    (let ((results '())
+	      (rows (map-query 'list #'list "select * from TYPE_TABLE" 
+			       :result-types :auto)))
+	      (dotimes (i (length rows) results)
+		(push
+		 (list
+		  (listp (nth i rows))
+		  (length (nth i rows))
+		  (eql (- i 5)
+		       (first (nth i rows)))
+		  (double-float-equal
+		   (transform-float-1 (first (nth i rows)))
+		   (second (nth i rows))))
+		 results)))
+      ((t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t)))
 
     (deftest :BASIC/DO/1
 	(let ((results '()))
-	  (do-query ((int float bigint str) "select * from TYPE_TABLE")
+	  (do-query ((int float bigint str) "select * from TYPE_TABLE" :result-types nil)
 	    (push (list (double-float-equal 
 			 (transform-float-1 (parse-integer int))
 			 (parse-double float))
@@ -153,6 +170,19 @@
 		  results))
 	  results)
       ((t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t)))
+    
+    (deftest :BASIC/DO/2
+	(let ((results '()))
+	  (do-query ((int float bigint str) "select * from TYPE_TABLE" :result-types :auto)
+	    (push (list (double-float-equal 
+			 (transform-float-1 int)
+			 float)
+			(double-float-equal
+			 (parse-double str)
+			 float))
+		  results))
+	  results)
+      ((t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t)))
     ))