-(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)
+(defun test-basic-forms-untyped ()
+ nil)
+
+
+(defun %test-basic-forms ()
+ (dolist (row (query "select * from TYPE_TABLE" :result-types :auto))
+ (test-table-row row :auto))
+ (dolist (row (query "select * from TYPE_TABLE" :result-types nil))
+ (test-table-row row nil))
+ (loop for row across (map-query 'vector #'list "select * from TYPE_TABLE"
+ :result-types :auto)
+ do (test-table-row row :auto))
+ (loop for row across (map-query 'vector #'list "select * from TYPE_TABLE"
+ :result-types nil)
+ do (test-table-row row nil))
+ (loop for row in (map-query 'list #'list "select * from TYPE_TABLE"
+ :result-types nil)
+ do (test-table-row row nil))
+ (loop for row in (map-query 'list #'list "select * from TYPE_TABLE"
+ :result-types :auto)
+ do (test-table-row row :auto))
+ (test (map-query nil #'list "select * from TYPE_TABLE"
+ :result-types :auto)