Update of /project/cells/cvsroot/cell-cultures/cells/cells-test In directory common-lisp.net:/tmp/cvs-serv5472/cells/cells-test
Modified Files: person.lisp Added Files: cells-test.asd cells-test.lpr Log Message:
Date: Sun Jul 4 11:59:42 2004 Author: ktilton
Index: cell-cultures/cells/cells-test/cells-test.asd diff -u /dev/null cell-cultures/cells/cells-test/cells-test.asd:1.3 --- /dev/null Sun Jul 4 11:59:43 2004 +++ cell-cultures/cells/cells-test/cells-test.asd Sun Jul 4 11:59:42 2004 @@ -0,0 +1,20 @@ +;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- + +(operate 'load-op :asdf-aclproj) +(use-package :asdf-aclproj) + +#+(or allegro lispworks cmu mcl clisp cormanlispx sbcl scl) + +(asdf:defsystem :cells-test + :name "cells-test" + :author "Kenny Tilton ktilton@nyc.rr.com" + :version "05-Nov-2003" + :maintainer "Kenny Tilton ktilton@nyc.rr.com" + :licence "MIT Style" + :description "Cells Regression Test/Documentation" + :long-description "Informatively-commented regression tests for Cells" + :serial t + :components ((lpr-project-file "cells-test"))) + +(defmethod perform :after ((op load-op) (system (eql (find-system :cells-test)))) + (cells::cv-test)) \ No newline at end of file
Index: cell-cultures/cells/cells-test/person.lisp diff -u cell-cultures/cells/cells-test/person.lisp:1.2 cell-cultures/cells/cells-test/person.lisp:1.3 --- cell-cultures/cells/cells-test/person.lisp:1.2 Wed Jun 30 20:48:54 2004 +++ cell-cultures/cells/cells-test/person.lisp Sun Jul 4 11:59:42 2004 @@ -287,20 +287,20 @@ (trc "start guarded cyclic")
#+not (cv-assert-error - (let ((tk (make-be 'talker))) - (setf (idea tk) "yes") - (cv-assert (string-equal "yes" (words tk))) - (setf (words tk) "no") - (cv-assert (string-equal "no" (idea tk))))) + (let ((tk (make-be 'talker))) + (setf (idea tk) "yes") + (cv-assert (string-equal "yes" (words tk))) + (setf (words tk) "no") + (cv-assert (string-equal "no" (idea tk))))) ;; ;; make sure cells declared to be cyclic are allowed ;; and halt (because after the first cyclic setf the cell in question ;; is being given the same value it already has, and propagation stops. ;; (make-be 'talker8) - #+not (let ((tk (make-be 'talker8))) - (setf (idea8 tk) "yes") - (string-equal "yes" (words8 tk)) - (setf (words8 tk) "no") - (string-equal "no" (idea8 tk))) + #+not (let ((tk (make-be 'talker8))) + (setf (idea8 tk) "yes") + (string-equal "yes" (words8 tk)) + (setf (words8 tk) "no") + (string-equal "no" (idea8 tk))) )