Postgres odbc returns bigint's correctly now

[clsql.git] / tests / test-basic.lisp

diff --git a/tests/test-basic.lisp b/tests/test-basic.lisp
index 2c13d803f6f6d9a628cc6946805352da8c458240..9dad688c99954b7c4da456c12c2677e23a5f9fc7 100644 (file)
--- 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,16 +220,6 @@
                        "mismatch on a. inserted: ~a returned: ~a" len (length a)))
              )))
       nil)
-
-    (deftest :basic/i18n/1
-       (first (query "SELECT 'Iñtërnâtiônàlizætiøn'"
-                     :flatp t :field-names nil))
-      "Iñtërnâtiônàlizætiøn")
-
-    (deftest :basic/i18n/2
-       (first (query "SELECT 'Iñtërnâtiônàližætiøn'"
-                     :flatp t :field-names nil))
-      "Iñtërnâtiônàližætiøn")
     ))