;;;; ======================================================================
;;;;
;;;; Description ==========================================================
;;;; ======================================================================
;;;;
;;;; ======================================================================
;;;;
;;;; Description ==========================================================
;;;; ======================================================================
;;;;
- (usql:drop-table [foo] :if-does-not-exist :ignore)
- (usql:table-exists-p [foo] :owner *test-database-user*))))
+ (clsql:drop-table [foo] :if-does-not-exist :ignore)
+ (clsql:table-exists-p [foo] :owner *test-database-user*))))
"comments" "height" "id" "name")
(deftest :fddl/attributes/1
(apply #'values
(sort
(mapcar #'string-downcase
"comments" "height" "id" "name")
(deftest :fddl/attributes/1
(apply #'values
(sort
(mapcar #'string-downcase
:owner *test-database-user*))
#'string<))
"birthday" "companyid" "email" "emplid" "first_name" "groupid" "height"
:owner *test-database-user*))
#'string<))
"birthday" "companyid" "email" "emplid" "first_name" "groupid" "height"
:owner *test-database-user*))
#'string<))
"birthday" "companyid" "email" "emplid" "first_name" "groupid" "height"
:owner *test-database-user*))
#'string<))
"birthday" "companyid" "email" "emplid" "first_name" "groupid" "height"
;;not in sqlite
;;:column-list '([forename] [surname] [email])
:as [select [first-name] [last-name] [email]
:from [employee]
:where [= [managerid] 1]])
(values
;;not in sqlite
;;:column-list '([forename] [surname] [email])
:as [select [first-name] [last-name] [email]
:from [employee]
:where [= [managerid] 1]])
(values
- (usql:drop-view [lenins-group] :if-does-not-exist :ignore)
- (usql:view-exists-p [lenins-group] :owner *test-database-user*))))
+ (clsql:drop-view [lenins-group] :if-does-not-exist :ignore)
+ (clsql:view-exists-p [lenins-group] :owner *test-database-user*))))
("email" "first_name" "last_name"))
;; create a view, select stuff from it and drop it
(deftest :fddl/view/3
("email" "first_name" "last_name"))
;; create a view, select stuff from it and drop it
(deftest :fddl/view/3
(apply #'values result))))
nil ("Josef" "Stalin" "stalin@soviet.org"))
;; create an index, test for existence, drop it and test again
(deftest :fddl/index/1
(apply #'values result))))
nil ("Josef" "Stalin" "stalin@soviet.org"))
;; create an index, test for existence, drop it and test again
(deftest :fddl/index/1
- (usql:drop-index [bar]:if-does-not-exist :ignore)))
- (usql:view-exists-p [bar] :owner *test-database-user*))))
+ (clsql:drop-index [bar]:if-does-not-exist :ignore)))
+ (clsql:view-exists-p [bar] :owner *test-database-user*))))
- (usql:create-index name :on [employee] :attributes '([emplid]))
- (push (usql:index-exists-p name :owner *test-database-user*) result)
+ (clsql:create-index name :on [employee] :attributes '([emplid]))
+ (push (clsql:index-exists-p name :owner *test-database-user*) result)
- (usql:drop-index name :on [employee] :if-does-not-exist :ignore))
- (t (usql:drop-index name :if-does-not-exist :ignore))))
+ (clsql:drop-index name :on [employee] :if-does-not-exist :ignore))
+ (t (clsql:drop-index name :if-does-not-exist :ignore))))
(apply #'values result))
t t t)
;; create an sequence, test for existence, drop it and test again
(deftest :fddl/sequence/1
(apply #'values result))
t t t)
;; create an sequence, test for existence, drop it and test again
(deftest :fddl/sequence/1
- (usql:drop-sequence [foo] :if-does-not-exist :ignore)
- (usql:sequence-exists-p [foo] :owner *test-database-user*))))
+ (clsql:drop-sequence [foo] :if-does-not-exist :ignore)
+ (clsql:sequence-exists-p [foo] :owner *test-database-user*))))