X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-fdml.lisp;h=b2d4e3ed47f57ed2aaed2ebdb104bf789ffd1990;hb=bb2818fb8a6714a55b360dec0bb043c5edccb3f4;hp=56787a21d012bd3bebde380936f8bf31a2842b80;hpb=d9b32644383f3c4087d0ecac10c645f38d17648d;p=clsql.git

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index 56787a2..b2d4e3e 100644
--- a/tests/test-fdml.lisp
+++ b/tests/test-fdml.lisp
@@ -1,7 +1,7 @@
 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 ;;;; ======================================================================
 ;;;; File:    test-fdml.lisp
-;;;; Author:  Marcus Pearce <m.t.pearce@city.ac.uk>
+;;;; Author:  Marcus Pearce <m.t.pearce@city.ac.uk>, Kevin Rosenberg
 ;;;; Created: 30/03/2004
 ;;;; Updated: $Id$
 ;;;;
@@ -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"))
 
@@ -624,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)