Commit f51460ad authored by ryszard.szopa's avatar ryszard.szopa
Browse files

save-dao-transaction test.

parent 1b3df3ce
......@@ -200,6 +200,20 @@ metaclass set to HTML and the right connection-spec."
(save-dao tike)
(is (= (rabe rabe) (rabe (rabe (make-instance 'tike :id (get-id tike))))))))
(db-test (save-dao-transaction :depends-on save-dao-recursively)
(defdao-example rabe ()
((rabe :accessor rabe :initarg :rabe :type integer)))
(defdao-example tike ()
((rabe :accessor rabe :initarg :rabe :type rabe :foreign t)
(tike :accessor tike :initarg :tike :type integer)))
(let* ((rabe (make-and-save 'rabe :rabe 777))
(tike (make-and-save 'tike :rabe rabe :tike 113)))
(setf ()))
;;; Copyright (C) 2007
;;; Ryszard Szopa <> &
;;; Streamtech
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment