(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)