projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d211aed
)
r1685: *** empty log message ***
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Wed, 27 Mar 2002 12:27:47 +0000
(12:27 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Wed, 27 Mar 2002 12:27:47 +0000
(12:27 +0000)
test-suite/xptest-clsql.cl
patch
|
blob
|
history
diff --git
a/test-suite/xptest-clsql.cl
b/test-suite/xptest-clsql.cl
index 397577a75248910c46260f8d5f368d1241d88636..2134763f7c9445c9e45d856e1741ac29a3573153 100644
(file)
--- a/
test-suite/xptest-clsql.cl
+++ b/
test-suite/xptest-clsql.cl
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
;;;; 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/
;;;;
;;;; 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
(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(
2
0))"
+ "CREATE TABLE test_clsql (t_int integer, t_float float, t_bigint BIGINT, t_str CHAR(
3
0))"
:database db)
(dotimes (i 11)
(let* ((test-int (- i 5))
: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))
(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)
(defun test-table-row (row types)
(unless (and (listp row)