(progn
(clsql:insert-records :into [employee]
:values `(11 1 "Yuri" "Gagarin" "gagarin@soviet.org"
- 1 1 1.85 t ,(clsql-base:get-time)))
+ 1 1 1.85 t ,(clsql:get-time)))
(values
(clsql:select [first-name] [last-name] [email]
:from [employee] :where [= [emplid] 11])
(progn
(clsql:insert-records :into [employee]
:attributes '(emplid groupid first_name last_name
- email companyid managerid)
+ email ecompanyid managerid)
:values '(11 1 "Yuri" "Gagarin" "gagarin@soviet.org"
1 1))
(values
(first_name "Yuri")
(last_name "Gagarin")
(email "gagarin@soviet.org")
- (companyid 1) (managerid 1)))
+ (ecompanyid 1) (managerid 1)))
(values
(clsql:select [first-name] [last-name] [email] :from [employee]
:where [= [emplid] 11])
'float)
t)
+(deftest :fdml/query/5
+ (clsql:query (clsql:sql [select [first-name] [sum [emplid]] :from [employee]]
+ [group-by [first-name]] [order-by [sum [emplid]]])
+ :field-names nil :result-types nil)
+ (("Josef" "2") ("Leon" "3") ("Nikita" "4") ("Leonid" "5") ("Yuri" "6")
+ ("Konstantin" "7") ("Mikhail" "8") ("Boris" "9") ("Vladamir" "11")))
+
+(deftest :fdml/query/6
+ (clsql:query (clsql:sql [union [select [emplid] :from [employee]]
+ [select [groupid] :from [company]]])
+ :field-names nil :result-types nil :flatp t)
+ ("1" "2" "3" "4" "5" "6" "7" "8" "9" "10"))
+
+(deftest :fdml/query/7
+ (clsql:query (clsql:sql [intersect [select [emplid] :from [employee]]
+ [select [groupid] :from [company]]])
+ :field-names nil :result-types nil :flatp t)
+ ("1"))
+
+(deftest :fdml/query/8
+ (clsql:query (clsql:sql [except [select [emplid] :from [employee]]
+ [select [groupid] :from [company]]])
+ :field-names nil :result-types nil :flatp t)
+ ("2" "3" "4" "5" "6" "7" "8" "9" "10"))
+
(deftest :fdml/execute-command/1
(values
(clsql:table-exists-p [foo] :owner *test-database-user*)
("lenin@soviet.org"))
(deftest :fdml/select/6
- (if (db-type-has-fancy-math? *test-database-underlying-type*)
+ (if (clsql-sys:db-type-has-fancy-math? *test-database-underlying-type*)
(mapcar #'(lambda (s) (parse-integer s :junk-allowed t))
(clsql:select [function "trunc" [height]] :from [employee]
:result-types nil
(deftest :fdml/select/13
(multiple-value-bind (results field-names)
- (clsql:select [emplid] [last-name] [married] :from [employee]
+ (clsql:select [emplid] [last-name] :from [employee]
:where [= [emplid] 1])
(values results (mapcar #'string-downcase field-names)))
- ((1 "Lenin" "t"))
- ("emplid" "last_name" "married"))
-
+ ((1 "Lenin"))
+ ("emplid" "last_name"))
+
(deftest :fdml/select/14
(floatp (car (clsql:select [height] :from [employee] :where [= [emplid] 1]
:flatp t)))
t)
+(deftest :fdml/select/15
+ (multiple-value-bind (rows field-names)
+ (clsql:select [addressid] [street-number] [street-name] [city_field] [zip]
+ :from [addr]
+ :where [= 1 [addressid]])
+ (values
+ rows
+ (mapcar #'string-downcase field-names)))
+ ((1 10 "Park Place" "Leningrad" 123))
+ ("addressid" "street_number" "street_name" "city_field" "zip"))
+
+(deftest :fdml/select/16
+ (clsql:select [emplid] :from [employee] :where [= 1 [emplid]]
+ :field-names nil)
+ ((1)))
+
+(deftest :fdml/select/17
+ (clsql:select [emplid] [last-name] :from [employee] :where [= 1 [emplid]]
+ :field-names nil)
+ ((1 "Lenin")))
+
+(deftest :fdml/select/18
+ (clsql:select [emplid :string] [last-name] :from [employee] :where [= 1 [emplid]]
+ :field-names nil)
+ (("1" "Lenin")))
+
+(deftest :fdml/select/19
+ (clsql:select [emplid] :from [employee] :order-by [emplid]
+ :where [between [* [emplid] 10] [* 5 10] [* 10 10]]
+ :field-names nil :result-types nil :flatp t)
+ ("5" "6" "7" "8" "9" "10"))
+
+(deftest :fdml/select/20
+ (clsql:select [emplid] :from [employee] :order-by [emplid]
+ :where [not [between [* [emplid] 10] [* 5 10] [* 10 10]]]
+ :field-names nil :result-types nil :flatp t)
+ ("1" "2" "3" "4"))
+
+(deftest :fdml/select/21
+ (clsql:select [substr [first-name] 1 4] :from [employee]
+ :flatp t :order-by [emplid] :field-names nil)
+ ("Vlad" "Jose" "Leon" "Niki" "Leon" "Yuri" "Kons" "Mikh" "Bori" "Vlad"))
+
+(deftest :fdml/select/22
+ (clsql:select [\|\| [first-name] " " [last-name]] :from [employee]
+ :flatp t :order-by [emplid] :field-names nil)
+ ("Vladamir Lenin" "Josef Stalin" "Leon Trotsky" "Nikita Kruschev"
+ "Leonid Brezhnev" "Yuri Andropov" "Konstantin Chernenko" "Mikhail Gorbachev"
+ "Boris Yeltsin" "Vladamir Putin"))
+
+(deftest :fdml/select/23
+ (clsql:select [emplid] :from [employee] :where [in [emplid] '(1 2 3 4)]
+ :flatp t :order-by [emplid] :field-names nil
+ :result-types nil)
+ ("1" "2" "3" "4"))
+
+(deftest :fdml/select/24
+ (clsql:select [distinct [first-name]] :from [employee] :flatp t
+ :order-by [first-name] :field-names nil :result-types nil)
+ ("Boris" "Josef" "Konstantin" "Leon" "Leonid" "Mikhail" "Nikita" "Vladamir"
+ "Yuri"))
+
;(deftest :fdml/select/11
; (clsql:select [emplid] :from [employee]
; :where [= [emplid] [any [select [companyid] :from [company]]]]
collect (concatenate 'string forename " " surname))
("Yuri Andropov" "Leonid Brezhnev" "Konstantin Chernenko" "Mikhail Gorbachev"
"Nikita Kruschev" "Vladamir Lenin" "Vladamir Putin"
- "Josef Stalin" "Leon Trotsky" "Boris Yeltsin"))
+ "Josef Stalin" "Leon Trotsky" "Boris Yeltsin"))
+
+(deftest :fdml/loop/2
+ (loop for (addressid)
+ being each tuple in
+ [select [addressid] :from [addr] :order-by [addressid]]
+ collect addressid)
+ (1 2))
+
+(deftest :fdml/loop/3
+ (loop for addressid
+ being each tuple in
+ [select [addressid] :from [addr] :order-by [addressid]]
+ collect addressid)
+ (1 2))
;; starts a transaction deletes a record and then rolls back the deletion
(deftest :fdml/transaction/1
projects / clsql.git / blobdiff