;;;; ======================================================================
;;;;
;;;; Description ==========================================================
;;;; ======================================================================
;;;;
;;;; ======================================================================
;;;;
;;;; Description ==========================================================
;;;; ======================================================================
;;;;
("Andropov" "Brezhnev" "Chernenko" "Gorbachev" "Kruschev" "Lenin" "Putin"
"Stalin" "Trotsky" "Yeltsin"))
(deftest :oodml/select/2
(mapcar #'(lambda (e) (slot-value e 'name))
("Andropov" "Brezhnev" "Chernenko" "Gorbachev" "Kruschev" "Lenin" "Putin"
"Stalin" "Trotsky" "Yeltsin"))
(deftest :oodml/select/2
(mapcar #'(lambda (e) (slot-value e 'name))
:where [and [= [slot-value 'employee 'companyid]
[slot-value 'company 'companyid]]
[= [slot-value 'company 'name]
:where [and [= [slot-value 'employee 'companyid]
[slot-value 'company 'companyid]]
[= [slot-value 'company 'name]
(setf (slot-value employee1 'first-name) "Dimitriy"
(slot-value employee1 'last-name) "Ivanovich"
(slot-value employee1 'email) "ivanovich@soviet.org")
(setf (slot-value employee1 'first-name) "Dimitriy"
(slot-value employee1 'last-name) "Ivanovich"
(slot-value employee1 'email) "ivanovich@soviet.org")
(setf (slot-value employee1 'first-name) "Vladamir"
(slot-value employee1 'last-name) "Lenin"
(slot-value employee1 'email) "lenin@soviet.org")
(setf (slot-value employee1 'first-name) "Vladamir"
(slot-value employee1 'last-name) "Lenin"
(slot-value employee1 'email) "lenin@soviet.org")
:where [= [slot-value 'employee 'emplid] 1])))
(progn
(setf (slot-value employee1 'email) "lenin-nospam@soviet.org")
:where [= [slot-value 'employee 'emplid] 1])))
(progn
(setf (slot-value employee1 'email) "lenin-nospam@soviet.org")
:where [= [slot-value 'employee 'emplid] 1]))))
(progn
(setf (slot-value employee1 'email) "lenin@soviet.org")
:where [= [slot-value 'employee 'emplid] 1]))))
(progn
(setf (slot-value employee1 'email) "lenin@soviet.org")
:where [= [slot-value 'employee 'emplid] 1])))))
"lenin@soviet.org" "lenin-nospam@soviet.org" "lenin@soviet.org")
;; tests update-record-from-slots
(deftest :oodml/update-records/3
(values
:where [= [slot-value 'employee 'emplid] 1])))))
"lenin@soviet.org" "lenin-nospam@soviet.org" "lenin@soviet.org")
;; tests update-record-from-slots
(deftest :oodml/update-records/3
(values
(setf (slot-value employee1 'first-name) "Dimitriy"
(slot-value employee1 'last-name) "Ivanovich"
(slot-value employee1 'email) "ivanovich@soviet.org")
(setf (slot-value employee1 'first-name) "Dimitriy"
(slot-value employee1 'last-name) "Ivanovich"
(slot-value employee1 'email) "ivanovich@soviet.org")
- (usql:update-record-from-slots employee1 '(first-name last-name email))
- (let ((lenin (car (usql:select 'employee
+ (clsql:update-record-from-slots employee1 '(first-name last-name email))
+ (let ((lenin (car (clsql:select 'employee
(setf (slot-value employee1 'first-name) "Vladamir"
(slot-value employee1 'last-name) "Lenin"
(slot-value employee1 'email) "lenin@soviet.org")
(setf (slot-value employee1 'first-name) "Vladamir"
(slot-value employee1 'last-name) "Lenin"
(slot-value employee1 'email) "lenin@soviet.org")
- (usql:update-record-from-slots employee1 '(first-name last-name email))
- (let ((lenin (car (usql:select 'employee
+ (clsql:update-record-from-slots employee1 '(first-name last-name email))
+ (let ((lenin (car (clsql:select 'employee
(slot-value employee1 'email)))
"lenin@soviet.org" "lenin-nospam@soviet.org" "lenin@soviet.org")
;(deftest :oodml/iteration/1
(slot-value employee1 'email)))
"lenin@soviet.org" "lenin-nospam@soviet.org" "lenin@soviet.org")
;(deftest :oodml/iteration/1
; :order-by [emplid]])
; (slot-value e last-name))
; ("Lenin" "Stalin" "Trotsky"))
;(deftest :oodml/iteration/2
; :order-by [emplid]])
; (slot-value e last-name))
; ("Lenin" "Stalin" "Trotsky"))
;(deftest :oodml/iteration/2