From: Nathan Bird <nathan@acceleration.net>
Date: Sat, 23 Jan 2010 19:02:11 +0000 (-0500)
Subject: Bind *test-database-user* correctly for odbc.
X-Git-Tag: v4.3.3~17
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=eb72a5a31260db5acacae85b4e9adbf4c959718d

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 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