+;; test list-table-indexes
+(deftest :fddl/index/3
+ (progn
+ (clsql:create-index [bar] :on [employee] :attributes
+ '([last-name]) :unique nil)
+ (clsql:create-index [foo] :on [employee] :attributes
+ '([first-name]) :unique nil)
+ (values
+
+ (sort
+ (mapcar
+ #'string-downcase
+ (clsql:list-table-indexes [employee] :owner *test-database-user*))
+ #'string-lessp)
+ (sort (clsql:list-table-indexes [company] :owner *test-database-user*)
+ #'string-lessp)
+ (progn
+ (clsql:drop-index [bar] :on [employee])
+ (clsql:drop-index [foo] :on [employee])
+ t)))
+
+ ("bar" "foo") nil t)
+