Bind *test-database-user* correctly for odbc.

per documentation :odbc and :aodbc have their user in the second slot of the connection spec.
This causes a number more tests to fail that used to pass because this variable wasn't right.

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index 8e1cc48569e3401bd5798acf4cc088015ee2d081..1a8ab66aa2e61608d56b3608aa583f8e8646b461 100644 (file)
--- 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