Update of /project/cells/cvsroot/cells/cells-test In directory clnet:/tmp/cvs-serv19862/cells-test
Modified Files: df-interference.lisp test.lisp Log Message: Beginnings of tutorial/porting suite of demonstration/example/regression test code. Also, a fix to core Cells so rules can happen to return multiple values (say by using ROUND as the last form) without tripping over Synapse-handling.
--- /project/cells/cvsroot/cells/cells-test/df-interference.lisp 2006/05/12 08:27:39 1.3 +++ /project/cells/cvsroot/cells/cells-test/df-interference.lisp 2006/05/30 02:47:45 1.4 @@ -118,11 +118,3 @@ ))
-(defmodel skipper () - ((price :initform (c-in 0) :accessor price) - (max-price :accessor max-price - :initform (c? (if .cache - (max (^price) .cache) - (^price)))) - (half-max :accessor half-max - :initform (c? (floor (^half-max) \ No newline at end of file --- /project/cells/cvsroot/cells/cells-test/test.lisp 2006/03/16 05:22:08 1.4 +++ /project/cells/cvsroot/cells/cells-test/test.lisp 2006/05/30 02:47:45 1.5 @@ -98,17 +98,21 @@ () (:default-initargs :md-value (c? (bwhen (ks (^kids)) + ;(trc "chya" (mapcar 'md-value ks)) (apply '+ (mapcar 'md-value ks))))))
(def-cell-test many-useds - (with-integrity () - (let ((i (make-instance 'm-index))) - (loop for n below 100 - do (push (make-instance 'model - :fm-parent i - :md-value (c-in n)) - (kids i))) - (trc "index total" (md-value i))))) + (let ((i (make-instance 'm-index))) + (loop for n below 100 + do (push (make-instance 'model + :fm-parent i + :md-value (c-in n)) + (kids i))) + (trc "index total" (md-value i)) + (ct-assert (= 4950 (md-value i))))) + +#+test +(many-useds)
(defmodel m-null () ((aa :initform nil :cell nil :initarg :aa :accessor aa)))