From 8e7d3ca04beea7c047f3634b05dba813ee903919 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Thu, 27 May 2004 20:05:28 +0000 Subject: [PATCH] r9490: fix for odbc/postgresql bigint strings --- tests/test-fddl.lisp | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) 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) -- 2.34.1