X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-basic.lisp;h=9dad688c99954b7c4da456c12c2677e23a5f9fc7;hb=5fd51413d8e15acaec4a70e4dd7996defcd87073;hp=5bdc0a3efbfeccbd156d01351e5b197a5bd286e7;hpb=4a2e3a71a1ce79482ba704ec815013de2c986274;p=clsql.git

diff --git a/tests/test-basic.lisp b/tests/test-basic.lisp
index 5bdc0a3..9dad688 100644
--- a/tests/test-basic.lisp
+++ b/tests/test-basic.lisp
@@ -7,9 +7,7 @@
 ;;;; Author:  Kevin M. Rosenberg
 ;;;; Created: Mar 2002
 ;;;;
-;;;; $Id$
-;;;;
-;;;; This file, part of CLSQL, is Copyright (c) 2002-2004 by Kevin M. Rosenberg
+;;;; This file, part of CLSQL, is Copyright (c) 2002-2010 by Kevin M. Rosenberg
 ;;;;
 ;;;; CLSQL users are granted the rights to distribute and use this software
 ;;;; as governed by the terms of the Lisp Lesser GNU Public License
@@ -192,12 +190,7 @@
 		     results)
 	      (destructuring-bind (int bigint) row
 		(push (list (integerp int)
-			    (if (and (eq :odbc *test-database-type*)
-				     (eq :postgresql *test-database-underlying-type*))
-				;; ODBC/Postgresql may return returns bigints as strings or integer
-				;; depending upon the platform
-				t
-				(integerp bigint)))
+                            (integerp bigint))
 		      results)))))
       ((t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t)))