X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-basic.lisp;h=85874a4d4ed3015ed25b2b035117b5666d0de9cd;hb=1dda729b250779079efbdc1d3f6bbb3ae4a20ba4;hp=c551b0d16049efca5407ebbfff4166787323985a;hpb=34df0812531e506e1d1ed1a811e9c3ff73de988d;p=clsql.git diff --git a/tests/test-basic.lisp b/tests/test-basic.lisp index c551b0d..85874a4 100644 --- a/tests/test-basic.lisp +++ b/tests/test-basic.lisp @@ -45,7 +45,11 @@ (destructuring-bind (int float bigint str) row (push (list (integerp int) (typep float 'double-float) - (integerp bigint) + (if (and (eq :odbc *test-database-type*) + (eq :postgresql *test-database-underlying-type*)) + ;; ODBC/Postgresql returns bigints as strings + (stringp bigint) + (integerp bigint)) (stringp str)) results)))) ((t t t t) (t t t t) (t t t t) (t t t t) (t t t t) (t t t t) (t t t t) (t t t t) (t t t t) (t t t t) (t t t t)))