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
 ;;;;
 ;;;; 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
 ;;;;
 ;;;; 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)
                     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)))
 
                      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)
                        "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")

     ))
 
 
     ))