;;;; ======================================================================
;;;;
;;;; Description ==========================================================
;;;; ======================================================================
;;;;
;;;; ======================================================================
;;;;
;;;; Description ==========================================================
;;;; ======================================================================
;;;;
:values `(11 1 "Yuri" "Gagarin" "gagarin@soviet.org"
1 1 1.85 t ,(clsql-base:get-time)))
(values
:values `(11 1 "Yuri" "Gagarin" "gagarin@soviet.org"
1 1 1.85 t ,(clsql-base:get-time)))
(values
- (progn (usql:delete-records :from [employee] :where [= [emplid] 11])
- (usql:select [*] :from [employee] :where [= [emplid] 11]))))
+ (progn (clsql:delete-records :from [employee] :where [= [emplid] 11])
+ (clsql:select [*] :from [employee] :where [= [emplid] 11]))))
(("Yuri" "Gagarin" "gagarin@soviet.org")) nil)
;; inserts a record using attributes and values and then deletes it
(deftest :fdml/insert/2
(progn
(("Yuri" "Gagarin" "gagarin@soviet.org")) nil)
;; inserts a record using attributes and values and then deletes it
(deftest :fdml/insert/2
(progn
:attributes '(emplid groupid first_name last_name
email companyid managerid)
:values '(11 1 "Yuri" "Gagarin" "gagarin@soviet.org"
1 1))
(values
:attributes '(emplid groupid first_name last_name
email companyid managerid)
:values '(11 1 "Yuri" "Gagarin" "gagarin@soviet.org"
1 1))
(values
- (progn (usql:delete-records :from [employee] :where [= [emplid] 11])
- (usql:select [*] :from [employee] :where [= [emplid] 11]))))
+ (progn (clsql:delete-records :from [employee] :where [= [emplid] 11])
+ (clsql:select [*] :from [employee] :where [= [emplid] 11]))))
(("Yuri" "Gagarin" "gagarin@soviet.org")) nil)
;; inserts a record using av-pairs and then deletes it
(deftest :fdml/insert/3
(progn
(("Yuri" "Gagarin" "gagarin@soviet.org")) nil)
;; inserts a record using av-pairs and then deletes it
(deftest :fdml/insert/3
(progn
:av-pairs'((emplid 11) (groupid 1)
(first_name "Yuri")
(last_name "Gagarin")
(email "gagarin@soviet.org")
(companyid 1) (managerid 1)))
(values
:av-pairs'((emplid 11) (groupid 1)
(first_name "Yuri")
(last_name "Gagarin")
(email "gagarin@soviet.org")
(companyid 1) (managerid 1)))
(values
- (progn (usql:delete-records :from [employee] :where [= [emplid] 11])
- (usql:select [first-name] [last-name] [email] :from [employee]
+ (progn (clsql:delete-records :from [employee] :where [= [emplid] 11])
+ (clsql:select [first-name] [last-name] [email] :from [employee]
:where [= [emplid] 11]))))
(("Yuri" "Gagarin" "gagarin@soviet.org")) nil)
;; inserts a records using a query from another table
(deftest :fdml/insert/4
(progn
:where [= [emplid] 11]))))
(("Yuri" "Gagarin" "gagarin@soviet.org")) nil)
;; inserts a records using a query from another table
(deftest :fdml/insert/4
(progn
:where [= [emplid] 1]))))
(("Yuri" "Gagarin" "gagarin@soviet.org"))
(("Vladamir" "Lenin" "lenin@soviet.org")))
:where [= [emplid] 1]))))
(("Yuri" "Gagarin" "gagarin@soviet.org"))
(("Vladamir" "Lenin" "lenin@soviet.org")))
:from [employee] :where [= [emplid] 1]))))
(("Yuri" "Gagarin" "gagarin@soviet.org"))
(("Vladamir" "Lenin" "lenin@soviet.org")))
(deftest :fdml/query/1
:from [employee] :where [= [emplid] 1]))))
(("Yuri" "Gagarin" "gagarin@soviet.org"))
(("Vladamir" "Lenin" "lenin@soviet.org")))
(deftest :fdml/query/1
"SELECT FIRST_NAME,LAST_NAME FROM EMPLOYEE WHERE (EMPLID <= 5) ORDER BY LAST_NAME")
(("Leonid" "Brezhnev") ("Nikita" "Kruschev") ("Vladamir" "Lenin")
("Josef" "Stalin") ("Leon" "Trotsky")))
"SELECT FIRST_NAME,LAST_NAME FROM EMPLOYEE WHERE (EMPLID <= 5) ORDER BY LAST_NAME")
(("Leonid" "Brezhnev") ("Nikita" "Kruschev") ("Vladamir" "Lenin")
("Josef" "Stalin") ("Leon" "Trotsky")))
- (usql:execute-command "create table foo (bar integer)")
- (usql:table-exists-p [foo] :owner *test-database-user*))
+ (clsql:execute-command "create table foo (bar integer)")
+ (clsql:table-exists-p [foo] :owner *test-database-user*))
- (usql:execute-command "drop table foo")
- (usql:table-exists-p [foo] :owner *test-database-user*)))
+ (clsql:execute-command "drop table foo")
+ (clsql:table-exists-p [foo] :owner *test-database-user*)))
;; these guys!) -- only works with pgsql
(deftest :fdml/select/1
(if (member *test-database-type* '(:postgresql-socket :postgresql))
;; these guys!) -- only works with pgsql
(deftest :fdml/select/1
(if (member *test-database-type* '(:postgresql-socket :postgresql))
:group-by [first-name]
:order-by [first-name])
(("Boris" "1") ("Josef" "1") ("Konstantin" "1") ("Leon" "1") ("Leonid" "1")
("Mikhail" "1") ("Nikita" "1") ("Vladamir" "2") ("Yuri" "1")))
(deftest :fdml/select/4
:group-by [first-name]
:order-by [first-name])
(("Boris" "1") ("Josef" "1") ("Konstantin" "1") ("Leon" "1") ("Leonid" "1")
("Mikhail" "1") ("Nikita" "1") ("Vladamir" "2") ("Yuri" "1")))
(deftest :fdml/select/4
:order-by [last-name]
:flatp t)
("Andropov" "Brezhnev" "Chernenko" "Gorbachev" "Kruschev" "Lenin" "Putin"
"Stalin" "Trotsky" "Yeltsin"))
(deftest :fdml/select/5
:order-by [last-name]
:flatp t)
("Andropov" "Brezhnev" "Chernenko" "Gorbachev" "Kruschev" "Lenin" "Putin"
"Stalin" "Trotsky" "Yeltsin"))
(deftest :fdml/select/5
[select [last-name] :from [employee] :flatp t
:order-by [last-name]])
("Andropov" "Brezhnev" "Chernenko" "Gorbachev" "Kruschev" "Lenin" "Putin"
"Stalin" "Trotsky" "Yeltsin"))
(deftest :fdml/map-query/2
[select [last-name] :from [employee] :flatp t
:order-by [last-name]])
("Andropov" "Brezhnev" "Chernenko" "Gorbachev" "Kruschev" "Lenin" "Putin"
"Stalin" "Trotsky" "Yeltsin"))
(deftest :fdml/map-query/2
[select [last-name] :from [employee] :flatp t
:order-by [last-name]])
#("Andropov" "Brezhnev" "Chernenko" "Gorbachev" "Kruschev" "Lenin" "Putin"
[select [last-name] :from [employee] :flatp t
:order-by [last-name]])
#("Andropov" "Brezhnev" "Chernenko" "Gorbachev" "Kruschev" "Lenin" "Putin"
:where [= [last-name] "Putin"]
:flatp t)
results)
;;Oh no, he's still there
:where [= [last-name] "Putin"]
:flatp t)
results)
;;Oh no, he's still there