X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=tests%2Ftest-init.lisp;h=1a8ab66aa2e61608d56b3608aa583f8e8646b461;hb=eb72a5a31260db5acacae85b4e9adbf4c959718d;hp=8e1cc48569e3401bd5798acf4cc088015ee2d081;hpb=704367c500a9fac40e97663f794fa4042df1512a;p=clsql.git

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index 8e1cc48..1a8ab66 100644
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -44,7 +44,7 @@
   (setf *test-database-type* db-type)
   (setf *test-database-user*
     (cond
-     ((eq :oracle db-type) (second spec))
+     ((member db-type '(:oracle :odbc :aodbc)) (second spec))
      ((>= (length spec) 3) (third spec))))
 
   ;; Connect to the database