[cells-cvs] CVS update: cell-cultures/cells/cells-test/cells-test.asd cell-cultures/cells/cells-test/cells-test.lpr cell-cultures/cells/cells-test/person.lisp

[Kenny Tilton]

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 at nyc.rr.com>"
+  :version "05-Nov-2003"
+  :maintainer "Kenny Tilton <ktilton at 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)))
   )