X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-fdml.lisp;h=6387add49165652c626756569f5ede511a80c775;hb=fdc5009ecaea821214a3606017c982bdbaa624ab;hp=541b4d4e28e16bd40b2d91f687b24669250aa59c;hpb=73cf858d596ad1d51c745b478292433617cf9d72;p=clsql.git

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index 541b4d4..6387add 100644
--- a/tests/test-fdml.lisp
+++ b/tests/test-fdml.lisp
@@ -203,19 +203,19 @@
   (1 1 1 1 1 1 1 1 1 1))
 
 (deftest :fdml/select/7
-    (sql:select [max [emplid]] :from [employee] :flatp t)
+    (clsql:select [max [emplid]] :from [employee] :flatp t)
   ("10"))
 
 (deftest :fdml/select/8
-    (sql:select [min [emplid]] :from [employee] :flatp t)
+    (clsql:select [min [emplid]] :from [employee] :flatp t)
   ("1"))
 
 (deftest :fdml/select/9
-    (subseq (car (sql:select [avg [emplid]] :from [employee] :flatp t)) 0 3)
+    (subseq (car (clsql:select [avg [emplid]] :from [employee] :flatp t)) 0 3)
   "5.5")
 
 (deftest :fdml/select/10
-    (sql:select [last-name] :from [employee]
+    (clsql:select [last-name] :from [employee]
                 :where [not [in [emplid]
                                 [select [managerid] :from  [company]]]]
                 :flatp t
@@ -234,7 +234,7 @@
   (("Lenin")))
 
 ;(deftest :fdml/select/11
-;    (sql:select [emplid] :from [employee]
+;    (clsql:select [emplid] :from [employee]
 ;                :where [= [emplid] [any [select [companyid] :from [company]]]]
 ;                :flatp t)
 ;  ("1"))