From eb72a5a31260db5acacae85b4e9adbf4c959718d Mon Sep 17 00:00:00 2001 From: Nathan Bird Date: Sat, 23 Jan 2010 14:02:11 -0500 Subject: [PATCH] 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. --- tests/test-init.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.34.1