r9404: update for new condition name

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index 56787a21d012bd3bebde380936f8bf31a2842b80..812894dff3f134a02558524574ccd3176235d489 100644 (file)
--- a/tests/test-fdml.lisp
+++ b/tests/test-fdml.lisp
@@ -624,7 +624,7 @@
                                  :av-pairs
                                  '((emale "lenin-nospam@soviet.org"))
                                  :where [= [emplid] 1]))
                                  :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)
           (progn
             ;; check status 
             (push (clsql:in-transaction-p) results)