;; 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-table [i3test] '(([a] (string 10))
+ ([b] integer)))
(clsql:create-index [foo] :on [i3test] :attributes
- '([b]) :unique nil)
+ '([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)
+ #'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:execute-command "DROP TABLE I3TEST")
+ (clsql:drop-table [i3test])
t)))
- ("bar" "foo") nil t)
+ t t t ("bar" "foo") nil t)
;; create an sequence, test for existence, drop it and test again
(deftest :fddl/sequence/1