[cells-cvs] CVS cells/cells-test

[ktilton]

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 #\*))