Commit 2c2e544f authored by ryszard.szopa's avatar ryszard.szopa
Browse files

error in test save-dao-transaction corrected.

parent 03d1094f
......@@ -210,9 +210,14 @@ metaclass set to HTML and the right connection-spec."
(let* ((rabe (make-and-save 'rabe :rabe 777))
(tike (make-and-save 'tike :rabe rabe :tike 113)))
(setf ()))
(setf (rabe (rabe tike)) 666)
(let ((method (defmethod save-dao :after ((tike tike))
(error "This had to happen."))))
(signals error (save-dao tike))
(remove-method #'save-dao method))
(is (= 777 (rabe (rabe (make-instance 'tike :id (get-id tike))))))))
;;; Copyright (C) 2007
;;; Ryszard Szopa <> &
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