Update of /project/cells/cvsroot/cells/cells-test In directory clnet:/tmp/cvs-serv27387/cells-test

Modified Files: cells-test.lpr person.lisp test.lisp Log Message:

--- /project/cells/cvsroot/cells/cells-test/cells-test.lpr 2007/11/30 16:51:19 1.7 +++ /project/cells/cvsroot/cells/cells-test/cells-test.lpr 2007/11/30 22:29:06 1.8 @@ -1,4 +1,4 @@ -;; -*- lisp-version: "8.1 [Windows] (Sep 29, 2007 20:23)"; cg: "1.103.2.10"; -*- +;; -*- lisp-version: "8.1 [Windows] (Oct 30, 2007 12:37)"; cg: "1.103.2.10"; -*-

(in-package :cg-user)

--- /project/cells/cvsroot/cells/cells-test/person.lisp 2006/03/16 05:22:08 1.3 +++ /project/cells/cvsroot/cells/cells-test/person.lisp 2007/11/30 22:29:06 1.4 @@ -167,8 +167,8 @@ ;; - all cells accessed are constant. ;; (ct-assert (null (md-slot-cell p 'speech))) - (ct-assert (md-slot-cell-flushed p 'speech)) - (ct-assert (c-optimized-away-p (md-slot-cell-flushed p 'speech))) + (ct-assert (assoc 'speech (cells-flushed p))) + (ct-assert (c-optimized-away-p (cdr (assoc 'speech (cells-flushed p)))))

(ct-assert (not (c-optimized-away-p (md-slot-cell p 'thought)))) ;; pulse is variable, so cannot opti (ct-assert (eql 1 (length (cd-useds (md-slot-cell p 'thought))))) ;; but speech is opti, so only 1 used @@ -205,7 +205,7 @@ (length (names self))))) nil) (t (error) - (trc "error" error) + (describe error) (setf *stop* nil) t))) ) --- /project/cells/cvsroot/cells/cells-test/test.lisp 2007/11/30 16:51:19 1.10 +++ /project/cells/cvsroot/cells/cells-test/test.lisp 2007/11/30 22:29:06 1.11 @@ -71,7 +71,7 @@

(defun test-cells () (loop for test in (reverse *cell-tests*) - when (eq 'm-syn-bool test) + when t ; (eq 'cv-test-person-5 test) do (cell-test-init test) (funcall test)) (print (make-string 40 :initial-element #*))