X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-fdml.lisp;h=a91cf9c62d6da49995799a309710cedaea27b08c;hb=49db0a8a6a6cde1581d5de0dd3c6822fd505472b;hp=f3b9d13f718ff921f9bbafc966978d320a9fb0e2;hpb=4d1a3100285889c84e63f8f4500dbd4b6c1f8ddc;p=clsql.git

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index f3b9d13..a91cf9c 100644
--- a/tests/test-fdml.lisp
+++ b/tests/test-fdml.lisp
@@ -172,85 +172,137 @@
     (let ((max (clsql:select [function "floor"
 			     [/ [* [max [height]] 100] 2.54]]
 			     :from [employee]
+			     :result-types nil 
 			     :flatp t))
 	  (min (clsql:select [function "floor"
 			     [/ [* [min [height]] 100] 2.54]]
 			     :from [employee]
+			     :result-types nil 
 			     :flatp t))
 	  (avg (clsql:select [function "floor"
 			     [avg [/ [* [height] 100] 2.54]]]
 			     :from [employee]
+			     :result-types nil 
 			     :flatp t)))
       (apply #'< (mapcar #'(lambda (s) (parse-integer s :junk-allowed t))
-			 (append min avg max))))
-  t)
+      			 (append min avg max))))
+ t)
 
 (deftest :fdml/select/2
-    (clsql:select [first-name] :from [employee] :flatp t :distinct t
-                 :order-by [first-name])
-  ("Boris" "Josef" "Konstantin" "Leon" "Leonid" "Mikhail" "Nikita" "Vladamir"
-           "Yuri"))
+ (clsql:select [first-name] :from [employee] :flatp t :distinct t
+                            :field-names nil 
+                            :result-types nil 
+                            :order-by [first-name])
+ ("Boris" "Josef" "Konstantin" "Leon" "Leonid" "Mikhail" "Nikita" "Vladamir"
+  "Yuri"))
 
 (deftest :fdml/select/3
     (clsql:select [first-name] [count [*]] :from [employee]
-                 :group-by [first-name]
-                 :order-by [first-name])
-  (("Boris" "1") ("Josef" "1") ("Konstantin" "1") ("Leon" "1") ("Leonid" "1")
-   ("Mikhail" "1") ("Nikita" "1") ("Vladamir" "2") ("Yuri" "1")))
+			  :result-types nil 
+			  :group-by [first-name]
+			  :order-by [first-name]
+			  :field-names nil)
+ (("Boris" "1") ("Josef" "1") ("Konstantin" "1") ("Leon" "1") ("Leonid" "1")
+  ("Mikhail" "1") ("Nikita" "1") ("Vladamir" "2") ("Yuri" "1")))
 
 (deftest :fdml/select/4
-    (clsql:select [last-name] :from [employee] :where [like [email] "%org"]
-                 :order-by [last-name]
-                 :flatp t)
-  ("Andropov" "Brezhnev" "Chernenko" "Gorbachev" "Kruschev" "Lenin" "Putin"
-              "Stalin" "Trotsky" "Yeltsin"))
+    (clsql:select [last-name] :from [employee] 
+			  :where [like [email] "%org"]
+			  :order-by [last-name]
+			  :field-names nil 
+			  :result-types nil 
+			  :flatp t)
+ ("Andropov" "Brezhnev" "Chernenko" "Gorbachev" "Kruschev" "Lenin" "Putin"
+  "Stalin" "Trotsky" "Yeltsin"))
 
 (deftest :fdml/select/5
-    (clsql:select [email] :from [employee] :flatp t 
-                 :where [in [employee emplid]
-                            [select [managerid] :from [employee]]])
+    (clsql:select [email] :from [employee] :flatp t :result-types nil 
+			  :where [in [employee emplid]
+			  [select [managerid] :from [employee]]]
+			  :field-names nil)
   ("lenin@soviet.org"))
 
 (deftest :fdml/select/6
     (if (db-type-has-fancy-math? *test-database-underlying-type*)
         (mapcar #'(lambda (s) (parse-integer s :junk-allowed t))
-	 (clsql:select [function "trunc" [height]] :from [employee]
-		       :flatp t))
-      (mapcar #'(lambda (s) (truncate (parse-integer s :junk-allowed t)))
-       (clsql:select [height] :from [employee] :flatp t)))
-  (1 1 1 1 1 1 1 1 1 1))
+		(clsql:select [function "trunc" [height]] :from [employee]
+			      :result-types nil 
+			      :field-names nil
+			      :flatp t))
+	(mapcar #'(lambda (s) (truncate (parse-integer s :junk-allowed t)))
+		(clsql:select [height] :from [employee] :flatp t 
+			      :field-names nil :result-types nil)))
+ (1 1 1 1 1 1 1 1 1 1))
 
 (deftest :fdml/select/7
-    (clsql:select [max [emplid]] :from [employee] :flatp t)
+    (clsql:select [max [emplid]] :from [employee] :flatp t 
+		  :field-names nil :result-types nil)
   ("10"))
 
 (deftest :fdml/select/8
-    (clsql:select [min [emplid]] :from [employee] :flatp t)
+    (clsql:select [min [emplid]] :from [employee] :flatp t 
+		  :field-names nil :result-types nil)
   ("1"))
 
 (deftest :fdml/select/9
-    (subseq (car (clsql:select [avg [emplid]] :from [employee] :flatp t)) 0 3)
+    (subseq 
+     (car 
+      (clsql:select [avg [emplid]] :from [employee] :flatp t 
+		    :field-names nil :result-types nil)) 
+     0 3)
   "5.5")
 
 (deftest :fdml/select/10
     (clsql:select [last-name] :from [employee]
-                :where [not [in [emplid]
-                                [select [managerid] :from [company]]]]
-                :flatp t
-                :order-by [last-name])
-  ("Andropov" "Brezhnev" "Chernenko" "Gorbachev" "Kruschev" "Putin" "Stalin"
-              "Trotsky" "Yeltsin"))
+		  :where [not [in [emplid]
+		  [select [managerid] :from [company]]]]
+		  :result-types nil 
+		  :field-names nil 
+		  :flatp t
+		  :order-by [last-name])
+ ("Andropov" "Brezhnev" "Chernenko" "Gorbachev" "Kruschev" "Putin" "Stalin"
+  "Trotsky" "Yeltsin"))
 
 (deftest :fdml/select/11
     (clsql:select [last-name] :from [employee] :where [married] :flatp t
-                 :order-by [emplid])
+		  :field-names nil :order-by [emplid] :result-types nil)
   ("Lenin" "Stalin" "Trotsky"))
 
 (deftest :fdml/select/12
     (let ((v 1))
-      (clsql:select [last-name] :from [employee] :where [= [emplid] v]))
+      (clsql:select [last-name] :from [employee] :where [= [emplid] v]
+		    :field-names nil :result-types nil))
   (("Lenin")))
 
+(deftest :fdml/select/13
+     (multiple-value-bind (results field-names) 
+	 (clsql:select [emplid] [last-name] :from [employee] 
+		       :where [= [emplid] 1])
+       (values results (mapcar #'string-downcase field-names)))
+ ((1 "Lenin"))
+ ("emplid" "last_name"))
+
+(deftest :fdml/select/14
+     (floatp (car (clsql:select [height] :from [employee] :where [= [emplid] 1] 
+				:flatp t)))
+  t)
+
+(deftest :fdml/select/15
+    (multiple-value-bind (rows field-names)
+	(clsql:select [emplid] [street-number] [street-name] [city_field] [zip] 
+	 :from [address]
+	 :where [= 1 [emplid]])
+      (values
+       rows
+       (mapcar #'string-downcase field-names)))
+  ((1 10 "Park Place" "Leningrad" 123))
+  ("emplid" "street_number" "street_name" "city_field" "zip"))
+
+(deftest :fdml/select/16
+    (clsql:select [emplid] :from [employee] :where [= 1 [emplid]]
+     :field-names nil)
+  ((1)))
+
 ;(deftest :fdml/select/11
 ;    (clsql:select [emplid] :from [employee]
 ;                :where [= [emplid] [any [select [companyid] :from [company]]]]
@@ -287,7 +339,21 @@
       collect (concatenate 'string forename " " surname))
   ("Yuri Andropov" "Leonid Brezhnev" "Konstantin Chernenko" "Mikhail Gorbachev"
                    "Nikita Kruschev" "Vladamir Lenin" "Vladamir Putin"
-                   "Josef Stalin" "Leon Trotsky" "Boris Yeltsin"))
+   "Josef Stalin" "Leon Trotsky" "Boris Yeltsin"))
+
+(deftest :fdml/loop/2
+    (loop for (emplid)
+      being each tuple in
+      [select [emplid] :from [address] :order-by [emplid]]
+     collect emplid)
+  (1 2))
+
+(deftest :fdml/loop/3
+    (loop for emplid
+      being each tuple in
+      [select [emplid] :from [address] :order-by [emplid]]
+      collect emplid)
+  (1 2))
 
 ;; starts a transaction deletes a record and then rolls back the deletion 
 (deftest :fdml/transaction/1