+;; test list-table-indexes
+(deftest :fddl/index/3
+ (progn
+ (clsql:execute-command "CREATE TABLE I3TEST (a char(10), b integer)")
+ (clsql:create-index [bar] :on [i3test] :attributes
+ '([a]) :unique t)
+ (clsql:create-index [foo] :on [i3test] :attributes
+ '([b]) :unique nil)
+ (values
+
+ (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])
+ t)))
+ ("bar" "foo") nil t)
+