-;;example old test
-(deftest :oodml/select/1
- (mapcar #'(lambda (e) (slot-value e 'last-name))
- (clsql:select 'employee :order-by [last-name] :flatp t :caching nil))
- ("Andropov" "Brezhnev" "Chernenko" "Gorbachev" "Kruschev" "Lenin" "Putin"
- "Stalin" "Trotsky" "Yeltsin"))
-
-;;just wrap in the with-dataset
-(deftest :oodml/select/1
- (with-dataset (*employees*)
- (mapcar #'(lambda (e) (slot-value e 'last-name))
- (clsql:select 'employee :order-by [last-name]
- :flatp t :caching nil)))
- ("Andropov" "Brezhnev" "Chernenko" "Gorbachev" "Kruschev" "Lenin" "Putin"
- "Stalin" "Trotsky" "Yeltsin"))
-
-
-;;old
-(deftest :oodml/update-records/4
- (flet ((print-fresh-node ()
- (let ((base (car (clsql:select 'node
- :where [= 1 [slot-value 'node 'node-id]]
- :flatp t :caching nil))))
- (format nil "~a ~a"
- (slot-value base 'node-id)
- (slot-value base 'title)))))
- (values
- (print-fresh-node) ;ensure that data is correct when we start
- (let ((base (car (clsql:select 'node
- :where [= 1 [slot-value 'node 'node-id]]
- :flatp t :caching nil))))
- (setf (slot-value base 'title) "Altered title")
- ;;modify and check
- (clsql:update-records-from-instance base)
- (print-fresh-node))
- (let ((base (car (clsql:select 'node
- :where [= 1 [slot-value 'node 'node-id]]
- :flatp t :caching nil))))
- (setf (slot-value base 'title) "Bare node")
- ;;modify back to the original and check
- (clsql:update-records-from-instance base)
- (print-fresh-node))))
- "1 Bare node"
- "1 Altered title"
- "1 Bare node")
+;;incomplete example taken from test-init
+;; (def-dataset *employees*
+;; (:setup "CREATE TABLE employee
+;; (
+;; emplid integer NOT NULL,
+;; groupid integer NOT NULL,
+;; first_name character varying(30),
+;; last_name character varying(30),
+;; email character varying(100),
+;; ecompanyid integer,
+;; managerid integer,
+;; height double,
+;; married boolean,
+;; birthday timestamp without time zone,
+;; bd_utime bigint,
+;; CONSTRAINT employeepk PRIMARY KEY (emplid, groupid),
+;; CONSTRAINT employee_emplid_key UNIQUE (emplid)
+;; )
+;; ")
+;; ;;alternatively setup can still be done as
+;; ;;(:setup #'(lambda () (create-view-from-class ...)))
+;; (:sqldata "employees" "emplid,groupid,married,height,first_name,last_name"
+;; "1,1,false,1.5,'Napolean', 'Bonaparte'"
+;; (format nil "1,1,true,~a,'Vladimir','Lenin'" (1+ (random 1.00))))
+;; (:cleanup "DROP TABLE EMPLOYEES"))