'(:postgresql :postgresql-socket))
:ignore
:warn)))
- (clsql:create-table [foo]
- '(([bar] integer :not-null :unique :primary-key)
- ([baz] string :not-null :unique))))
+ (case *test-database-underlying-type*
+ (:mssql (clsql:create-table [foo]
+ '(([bar] integer :not-null :primary-key)
+ ([baz] string :not-null :unique))))
+ (t (clsql:create-table [foo]
+ '(([bar] integer :not-null :unique :primary-key)
+ ([baz] string :not-null :unique))))))
(clsql:table-exists-p [foo]))
(progn
(clsql:drop-table [foo])
(let ((names '("foo" foo [foo]))
(result '()))
(dolist (name names)
- (clsql:create-index name :on [employee] :attributes '([emplid]))
+ (clsql:create-index name :on [employee] :attributes '([last-name]))
(push (clsql:index-exists-p name :owner *test-database-user*) result)
(clsql:drop-index name :on [employee] :if-does-not-exist :ignore))
(apply #'values result))
(length (clsql:list-tables :owner nil))))
t)
-))
+(deftest :fddl/cache-table-queries/1
+ (list
+ (gethash "EMPLOYEE" (clsql-sys::attribute-cache clsql:*default-database*))
+ (progn
+ (clsql:cache-table-queries "EMPLOYEE" :action t)
+ (gethash "EMPLOYEE" (clsql-sys::attribute-cache clsql:*default-database*)))
+ (progn
+ (clsql:list-attribute-types "EMPLOYEE")
+ (not
+ (null
+ (cadr
+ (gethash "EMPLOYEE"
+ (clsql-sys::attribute-cache clsql:*default-database*))))))
+ (progn
+ (clsql:cache-table-queries "EMPLOYEE" :action :flush)
+ (gethash "EMPLOYEE" (clsql-sys::attribute-cache clsql:*default-database*))))
+ (nil (t nil) t (t nil)))
+
+ ))
#.(clsql:restore-sql-reader-syntax-state)