From: Kevin M. Rosenberg Date: Thu, 27 May 2004 20:05:28 +0000 (+0000) Subject: r9490: fix for odbc/postgresql bigint strings X-Git-Tag: v3.8.6~365 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=8e7d3ca04beea7c047f3634b05dba813ee903919 r9490: fix for odbc/postgresql bigint strings --- diff --git a/tests/test-fddl.lisp b/tests/test-fddl.lisp index b75f2cf..3c69653 100644 --- a/tests/test-fddl.lisp +++ b/tests/test-fddl.lisp @@ -276,10 +276,15 @@ (max (expt 2 60)) (rest rows (cdr rest))) ((= i (length rows)) t) - (let ((row (car rest)) - (index (1+ i))) - (unless (and (eql (first row) index) - (eql (second row) (truncate max index))) + (let ((index (1+ i)) + (int (first (car rest))) + (bigint (second (car rest)))) + (when (and (eq *test-database-type* :odbc) + (eq *test-database-underlying-type* :postgresql) + (stringp bigint)) + (setf bigint (parse-integer bigint))) + (unless (and (eql int index) + (eql bigint (truncate max index))) (return nil)))))) 555 t)