(test-table-row (list int float bigint str) nil type))
(do-query ((int float bigint str) "select * from test_clsql" :result-types :auto)
(test-table-row (list int float bigint str) :auto type))
- #+ignore (drop-test-table db))
+ (drop-test-table db))
(defun %test-basic-untyped (db type)
(clsql:execute-command
"DROP TABLE test_clsql" :database db))
(clsql:execute-command
- "CREATE TABLE test_clsql (t_int integer, t_float double, t_bigint BIGINT, t_str CHAR(30))"
+ "CREATE TABLE test_clsql (t_int integer, t_float double precision, t_bigint BIGINT, t_str CHAR(30))"
:database db)
(dotimes (i 11)
(let* ((test-int (- i 5))