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

[Kenny Tilton]

Update of /project/cells/cvsroot/cell-cultures/cells/cells-test
In directory common-lisp.net:/tmp/cvs-serv27567/cells/cells-test

Modified Files:
	cells-test.asd test.lisp 
Log Message:
Re-port to Lispworks/win32
Date: Thu Oct 28 02:09:11 2004
Author: ktilton

Index: cell-cultures/cells/cells-test/cells-test.asd
diff -u cell-cultures/cells/cells-test/cells-test.asd:1.3 cell-cultures/cells/cells-test/cells-test.asd:1.4
--- cell-cultures/cells/cells-test/cells-test.asd:1.3	Sun Jul  4 20:59:42 2004
+++ cell-cultures/cells/cells-test/cells-test.asd	Thu Oct 28 02:09:10 2004
@@ -1,8 +1,5 @@
 ;;;; -*- 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
@@ -14,7 +11,19 @@
   :description "Cells Regression Test/Documentation"
   :long-description "Informatively-commented regression tests for Cells"
   :serial t
-  :components ((lpr-project-file "cells-test")))
+  :depends-on (:utils-kt :cells)
+  :components ((:file "test")
+                 (:file "hello-world")
+                 (:file "internal-combustion")
+                 (:file "boiler-examples")
+                 (:file "person")
+                 (:file "df-interference")
+                 (:file "test-family")
+                 (:file "test-kid-slotting")
+                 (:file "lazy-propagation")
+                 (:file "output-setf")
+                 (:file "test-lazy")
+                 (:file "synapse-testing")))
 
 (defmethod perform :after ((op load-op) (system (eql (find-system :cells-test))))
   (cells::cv-test))


Index: cell-cultures/cells/cells-test/test.lisp
diff -u cell-cultures/cells/cells-test/test.lisp:1.2 cell-cultures/cells/cells-test/test.lisp:1.3
--- cell-cultures/cells/cells-test/test.lisp:1.2	Thu Jul  1 05:48:54 2004
+++ cell-cultures/cells/cells-test/test.lisp	Thu Oct 28 02:09:11 2004
@@ -95,7 +95,7 @@
 (defun dft ()
   (let ();(*c-debug* t))
     (cell-reset)
-    (df-test t)
+    (df-test)
     ))
 
 (defun output-clear (slot-name)