X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-basic.lisp;h=9dad688c99954b7c4da456c12c2677e23a5f9fc7;hb=4305925e87f70d6d7f5fe21d7875b1934c7f65a4;hp=98e986119fae8c6495caadc55d73ba3b00b4e87b;hpb=f8a3685cf1911b090510f22eaa0734fb16d3fdb2;p=clsql.git

diff --git a/tests/test-basic.lisp b/tests/test-basic.lisp
index 98e9861..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)))
 
@@ -227,7 +220,6 @@
 			"mismatch on a. inserted: ~a returned: ~a" len (length a)))
 	      )))
       nil)
-
     ))