X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=test-suite%2Fxptest-clsql.cl;h=2134763f7c9445c9e45d856e1741ac29a3573153;hb=efcfb26c347150ecbfc77916b05da5e2796e24f0;hp=397577a75248910c46260f8d5f368d1241d88636;hpb=17c4d99ca97dbdec882028929d645e16164b4b0b;p=clsql.git

diff --git a/test-suite/xptest-clsql.cl b/test-suite/xptest-clsql.cl
index 397577a..2134763 100644
--- a/test-suite/xptest-clsql.cl
+++ b/test-suite/xptest-clsql.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Mar 2002
 ;;;;
-;;;; $Id: xptest-clsql.cl,v 1.7 2002/03/27 12:09:39 kevin Exp $
+;;;; $Id: xptest-clsql.cl,v 1.8 2002/03/27 12:27:47 kevin Exp $
 ;;;;
 ;;;; The XPTest package can be downloaded from
 ;;;; http://alpha.onshored.com/lisp-software/
@@ -166,7 +166,7 @@
     (clsql:execute-command 
      "DROP TABLE test_clsql" :database db))
   (clsql:execute-command 
-   "CREATE TABLE test_clsql (t_int integer, t_float float, t_bigint BIGINT, t_str CHAR(20))" 
+   "CREATE TABLE test_clsql (t_int integer, t_float float, t_bigint BIGINT, t_str CHAR(30))" 
    :database db)
   (dotimes (i 11)
     (let* ((test-int (- i 5))
@@ -182,7 +182,7 @@
 
 (defun parse-double (num-str)
   (let ((*read-default-float-format* 'double-float))
-    (read-from-string num-str)))
+    (coerce (read-from-string num-str) 'double-float)))
 
 (defun test-table-row (row types)
   (unless (and (listp row)