projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r1656: More field type coding
[clsql.git]
/
test-clsql.cl
diff --git
a/test-clsql.cl
b/test-clsql.cl
index 9cc29299dd21c7dfc8e79154157b1917c39230b6..cbc5e928ef49e5e6225e2723226e649f86de4e42 100644
(file)
--- a/
test-clsql.cl
+++ b/
test-clsql.cl
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
-;;;; $Id: test-clsql.cl,v 1.
3 2002/03/24 18:31:05
kevin Exp $
+;;;; $Id: test-clsql.cl,v 1.
5 2002/03/25 06:07:06
kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-44,8
+44,12
@@
(dolist (elem config)
(let ((type (car elem))
(spec (cadr elem)))
(dolist (elem config)
(let ((type (car elem))
(spec (cadr elem)))
- (clsql-test-table spec type))))
-
+ #-allegro
+ (unless (eq type :aodbc)
+ (clsql-test-table spec type))
+ #+allegro
+ (clsql-test-table spec type)))
+ )
@@
-65,7
+69,9
@@
(format nil "INSERT INTO test_clsql VALUES (~d,~d,'~a')"
i (sqrt i) (format nil "~d" (sqrt i)))
:database db))
(format nil "INSERT INTO test_clsql VALUES (~d,~d,'~a')"
i (sqrt i) (format nil "~d" (sqrt i)))
:database db))
- (pprint (clsql:map-query 'vector #'list "select * from test_clsql" :database db))
+ (pprint (clsql:map-query 'vector #'list "select * from test_clsql"
+ :database db
+ :field-types '(:int :double t)))
(clsql:execute-command "DROP TABLE test_clsql"))
(clsql:disconnect :database db)))
)
(clsql:execute-command "DROP TABLE test_clsql"))
(clsql:disconnect :database db)))
)