(defvar *rt-ooddl*)
(defvar *rt-oodml*)
(defvar *rt-syntax*)
+(defvar *rt-time*)
(defvar *test-database-type* nil)
(defvar *test-database-user* nil)
(defparameter employee10 nil)
(defun test-initialise-database ()
- ;; Create the tables for our view classes
- (ignore-errors (clsql:drop-view-from-class 'employee))
- (ignore-errors (clsql:drop-view-from-class 'company))
+ ;; Remove the tables to support cases when destroy-database isn't supported, like odbc
+ (ignore-errors (clsql:drop-table "EMPLOYEE"))
+ (ignore-errors (clsql:drop-table "COMPANY"))
+ (ignore-errors (clsql:drop-table "FOO"))
(clsql:create-view-from-class 'employee)
(clsql:create-view-from-class 'company)
(ignore-errors (destroy-database spec :database-type db-type))
(ignore-errors (create-database spec :database-type db-type))
+
(dolist (test (append *rt-connection* *rt-fddl* *rt-fdml*
*rt-ooddl* *rt-oodml* *rt-syntax*))
(eval test))