[cells-cvs] CVS cells/cells-test

ktilton ktilton at common-lisp.net
Tue May 30 02:47:45 UTC 2006


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)))




More information about the Cells-cvs mailing list