-(defun test-basic (spec type)
- (let ((db (clsql:connect spec :database-type type :if-exists :new)))
- (unwind-protect
- (if (eq type :sqlite)
- (%test-basic-untyped db type)
- (%test-basic db type))
- (disconnect :database db))))
-
-(defun %test-basic (db type)
- (create-test-table db)
- (dolist (row (query "select * from test_clsql" :database db :result-types :auto))
- (test-table-row row :auto type))
- (dolist (row (query "select * from test_clsql" :database db :result-types nil))
- (test-table-row row nil type))
- (loop for row across (map-query 'vector #'list "select * from test_clsql"
- :database db :result-types :auto)
- do (test-table-row row :auto type))
- (loop for row across (map-query 'vector #'list "select * from test_clsql"
- :database db :result-types nil)
- do (test-table-row row nil type))
- (loop for row in (map-query 'list #'list "select * from test_clsql"
- :database db :result-types nil)
- do (test-table-row row nil type))
- (loop for row in (map-query 'list #'list "select * from test_clsql"
- :database db :result-types :auto)
- do (test-table-row row :auto type))
- (test (map-query nil #'list "select * from test_clsql"
- :database db :result-types :auto)
- nil
- :fail-info "Expected NIL result from map-query nil")
- (do-query ((int float bigint str) "select * from test_clsql")
- (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))
- (drop-test-table db))
-
-
-(defun %test-basic-untyped (db type)
- (create-test-table db)
- (dolist (row (query "select * from test_clsql" :database db :result-types nil))
- (test-table-row row nil type))
- (loop for row across (map-query 'vector #'list "select * from test_clsql"
- :database db :result-types nil)
- do (test-table-row row nil type))
- (loop for row in (map-query 'list #'list "select * from test_clsql"
- :database db :result-types nil)
- do (test-table-row row nil type))
-
- (do-query ((int float bigint str) "select * from test_clsql")
- (test-table-row (list int float bigint str) nil type))
- (drop-test-table db))