r9289: Added new operations for the sql syntax.

[clsql.git] / tests / test-fdml.lisp

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index a4b8bb18ed2c016dc8b7c7762fa82d99359f0dfe..93d3597d8cc959b65366e144f238ee4d6424ca1e 100644 (file)
--- a/tests/test-fdml.lisp
+++ b/tests/test-fdml.lisp
@@ -154,6 +154,31 @@
      'float)
   t)
   
+(deftest :fdml/query/5
+ (clsql:query (clsql:sql [select [first-name] [sum [emplid]] :from [employee]] 
+                       [group-by [first-name]] [order-by [sum [emplid]]])
+              :field-names nil :result-types nil)
+ (("Josef" "2") ("Leon" "3") ("Nikita" "4") ("Leonid" "5") ("Yuri" "6")
+  ("Konstantin" "7") ("Mikhail" "8") ("Boris" "9") ("Vladamir" "11")))
+
+(deftest :fdml/query/6
+ (clsql:query (clsql:sql [union [select [emplid] :from [employee]] 
+                        [select [groupid] :from [company]]])
+              :field-names nil :result-types nil :flatp t)
+ ("1" "2" "3" "4" "5" "6" "7" "8" "9" "10"))
+
+(deftest :fdml/query/7
+ (clsql:query (clsql:sql [intersect [select [emplid] :from [employee]] 
+                        [select [groupid] :from [company]]])
+              :field-names nil :result-types nil :flatp t)
+ ("1"))
+
+(deftest :fdml/query/8
+ (clsql:query (clsql:sql [except [select [emplid] :from [employee]] 
+                        [select [groupid] :from [company]]])
+              :field-names nil :result-types nil :flatp t)
+ ("2" "3" "4" "5" "6" "7" "8" "9" "10")) 
+
 (deftest :fdml/execute-command/1
     (values
      (clsql:table-exists-p [foo] :owner *test-database-user*)
@@ -313,6 +338,42 @@
      :field-names nil)
   (("1" "Lenin")))
 
+(deftest :fdml/select/19
+    (clsql:select [emplid] :from [employee] :order-by [emplid] 
+                           :where [between [* [emplid] 10] [* 5 10] [* 10 10]]
+                           :field-names nil :result-types nil :flatp t)
+ ("5" "6" "7" "8" "9" "10"))
+
+(deftest :fdml/select/20
+    (clsql:select [emplid] :from [employee] :order-by [emplid] 
+                           :where [not [between [* [emplid] 10] [* 5 10] [* 10 10]]]
+                           :field-names nil :result-types nil :flatp t)
+ ("1" "2" "3" "4"))
+
+(deftest :fdml/select/20 
+  (clsql:select [substr [first-name] 1 4] :from [employee] 
+                :flatp t :order-by [emplid] :field-names nil)
+ ("Vlad" "Jose" "Leon" "Niki" "Leon" "Yuri" "Kons" "Mikh" "Bori" "Vlad"))
+
+(deftest :fdml/select/21 
+  (clsql:select [\|\| [first-name] " " [last-name]] :from [employee]
+                :flatp t :order-by [emplid] :field-names nil)
+ ("Vladamir Lenin" "Josef Stalin" "Leon Trotsky" "Nikita Kruschev"
+ "Leonid Brezhnev" "Yuri Andropov" "Konstantin Chernenko" "Mikhail Gorbachev"
+ "Boris Yeltsin" "Vladamir Putin"))
+
+(deftest :fdml/select/22
+ (clsql:select [emplid] :from [employee] :where [in [emplid] '(1 2 3 4)]
+                        :flatp t :order-by [emplid] :field-names nil
+                        :result-types nil)
+ ("1" "2" "3" "4"))
+
+(deftest :fdml/select/23
+ (clsql:select [distinct [first-name]] :from [employee] :flatp t
+               :order-by [first-name] :field-names nil :result-types nil)
+ ("Boris" "Josef" "Konstantin" "Leon" "Leonid" "Mikhail" "Nikita" "Vladamir"
+  "Yuri"))
+
 ;(deftest :fdml/select/11
 ;    (clsql:select [emplid] :from [employee]
 ;                :where [= [emplid] [any [select [companyid] :from [company]]]]