X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-basic.lisp;h=6a27fdd7de0d5f1f7883bfbf2d2044235dd184d0;hp=b0f40a5acb24e253e4941bf9daeac9c18ac702f4;hb=8a8ee2d7d791b7a3efaed06420802a925d16fca3;hpb=1addba34cafd6a863eeaa0b37e1eb81f2b5bf17a

diff --git a/tests/test-basic.lisp b/tests/test-basic.lisp
index b0f40a5..6a27fdd 100644
--- a/tests/test-basic.lisp
+++ b/tests/test-basic.lisp
@@ -3,7 +3,7 @@
 ;;;; FILE IDENTIFICATION
 ;;;;
 ;;;; Name:    test-basic.lisp
-;;;; Purpose: Tests for clsql-base and result types
+;;;; Purpose: Tests for clsql string-based queries and result types
 ;;;; Author:  Kevin M. Rosenberg
 ;;;; Created: Mar 2002
 ;;;;
@@ -29,9 +29,9 @@
       (clsql:execute-command
        (format nil "INSERT INTO TYPE_TABLE VALUES (~a,~a,~a,'~a')"
 	       test-int
-	       (clsql-base:number-to-sql-string test-flt)
+	       (clsql-sys:number-to-sql-string test-flt)
 	       (transform-bigint-1 test-int)
-	       (clsql-base:number-to-sql-string test-flt)
+	       (clsql-sys:number-to-sql-string test-flt)
 	       )))))
 
 (defun test-basic-forms ()
@@ -47,8 +47,9 @@
 			  (typep float 'double-float)
 			  (if (and (eq :odbc *test-database-type*)
 				   (eq :postgresql *test-database-underlying-type*))
-			      ;; ODBC/Postgresql returns bigints as strings
-			      (stringp bigint)
+			      ;; ODBC/Postgresql may return returns bigints as strings or integer
+			      ;; depending upon the platform
+			      t
 			    (integerp bigint))
 			  (stringp str))
 		    results))))