X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-fdml.lisp;h=be35f5bb7f965e29da8c56d776ca25f6d8bd0261;hp=adbb8479c90b52820e92ace8d6d409b61f4e6b41;hb=3ac9e8d4881eebebe5cfbbf786d5268997046519;hpb=692ff4990d0cd04685531f524801b16d21cfbb49

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index adbb847..be35f5b 100644
--- a/tests/test-fdml.lisp
+++ b/tests/test-fdml.lisp
@@ -375,10 +375,11 @@
   "Yuri"))
 
 (deftest :fdml/select/25
- (clsql:select [first-name] :from "employee" :flatp t :distinct t
-                            :field-names nil 
-                            :result-types nil 
-                            :order-by [first-name])
+ (clsql:select [first-name] :from (clsql-sys:convert-to-db-default-case "employee" *default-database*)
+  :flatp t :distinct t
+  :field-names nil 
+  :result-types nil 
+  :order-by [first-name])
  ("Boris" "Josef" "Konstantin" "Leon" "Leonid" "Mikhail" "Nikita" "Vladamir"
   "Yuri"))
 
@@ -447,6 +448,15 @@
 ("Andropov" "Brezhnev" "Chernenko" "Gorbachev" "Kruschev" "Putin" "Stalin"
  "Trotsky" "Yeltsin"))
 
+(deftest :fdml/select/34
+  (loop for x from 1 below 5
+   collect
+   (car
+    (clsql:select [last-name] :from [employee] 
+		  :where [= [emplid] x]
+		  :flatp t :result-types nil :field-names nil)))
+  ("Lenin" "Stalin" "Trotsky" "Kruschev"))
+
 (deftest :fdml/do-query/1
     (let ((result '()))
     (clsql:do-query ((name) [select [last-name] :from [employee]
@@ -615,7 +625,7 @@
 				  :av-pairs
 				  '((emale "lenin-nospam@soviet.org"))
 				  :where [= [emplid] 1]))
-        (clsql:clsql-error ()
+        (clsql:sql-database-error ()
           (progn
             ;; check status 
             (push (clsql:in-transaction-p) results)