X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-basic.lisp;h=2a63c77846fafea1eee972e04650c3088377d84f;hp=a13c76efabad754aec378c875a4ab18318880f79;hb=23b76563b25a517ad20f29d6dc5a65c8b958a042;hpb=afc88420d03b627b214473078c3adc201de2de80

diff --git a/tests/test-basic.lisp b/tests/test-basic.lisp
index a13c76e..2a63c77 100644
--- a/tests/test-basic.lisp
+++ b/tests/test-basic.lisp
@@ -84,7 +84,7 @@
     (clsql:execute-command 
      "DROP TABLE test_clsql" :database db))
   (clsql:execute-command 
-   "CREATE TABLE test_clsql (t_int integer, t_float double precision, t_bigint BIGINT, t_str CHAR(30))" 
+   "CREATE TABLE test_clsql (t_int integer, t_float double precision, t_bigint BIGINT, t_str VARCHAR(30))" 
    :database db)
   (dotimes (i 11)
     (let* ((test-int (- i 5))
@@ -113,7 +113,7 @@
       ((eq types :auto)
        (test (and (integerp int)
 		  (typep float 'double-float)
-		  (or (eq db-type :aodbc)  ;; aodbc considers bigints as strings
+		  (or (member db-type '(:odbc :aodbc))  ;; aodbc considers bigints as strings
 		      (integerp bigint)) 
 		  (stringp str))
 	     t