From efcfb26c347150ecbfc77916b05da5e2796e24f0 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 27 Mar 2002 12:27:47 +0000 Subject: [PATCH] r1685: *** empty log message *** --- test-suite/xptest-clsql.cl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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) -- 2.34.1