+;; test list-table-indexes
+(deftest :fddl/index/3
+ (progn
+ (clsql:create-table [i3test] '(([a] (string 10))
+ ([b] integer)))
+ (clsql:create-index [foo] :on [i3test] :attributes
+ '([b]) :unique nil)
+ (clsql:create-index [bar] :on [i3test] :attributes
+ '([a]) :unique t)
+ (values
+ (clsql:table-exists-p [i3test])
+ (clsql:index-exists-p [foo])
+ (clsql:index-exists-p [bar])
+ (sort
+ (mapcar
+ #'string-downcase
+ (clsql:list-table-indexes [i3test] :owner *test-database-user*))
+ #'string-lessp)
+ (sort (clsql:list-table-indexes [company] :owner *test-database-user*)
+ #'string-lessp)
+ (progn
+ (clsql:drop-index [bar] :on [i3test])
+ (clsql:drop-index [foo] :on [i3test])
+ (clsql:drop-table [i3test])
+ t)))
+ t t t ("bar" "foo") nil t)
+