[clhp-cvs] CVS update: clhp/tests/cgi-test.lisp

[Anthony Ventimiglia]

Update of /project/clhp/cvsroot/clhp/tests
In directory common-lisp.net:/tmp/cvs-serv29753/tests

Modified Files:
	cgi-test.lisp 
Log Message:
(cond-bind): Addedd COND-BIND, basically
it's a COND wrapped up inside a LET. Imported into clhp, and used
there as well.
(IF-BIND): This is similar to COND-BIND, the whole aim here is to
reduce parentheses and make it all a little more readable

Date: Wed Oct  8 11:43:32 2003
Author: aventimiglia

Index: clhp/tests/cgi-test.lisp
diff -u clhp/tests/cgi-test.lisp:1.5 clhp/tests/cgi-test.lisp:1.6
--- clhp/tests/cgi-test.lisp:1.5	Fri Oct  3 01:14:23 2003
+++ clhp/tests/cgi-test.lisp	Wed Oct  8 11:43:32 2003
@@ -96,12 +96,6 @@
   (:documentation "A subclass of function-test-data used to test
 functions which have side effects of setting global variables."))
 
-
-(defmethod run-test ((data test-data) &optional stream)
-  "Since TEST-DATA is an abstract test class, we cannot actually use it."
-  (declare (ignore stream))
-  (test-result :error))
-
 ;; It's important that the RUN-TEST methods below all use DATA as the
 ;; TEST-DATA object name, because some of the macros defined at the
 ;; top of the file are hard coded to use the common names.
@@ -271,3 +265,6 @@
 ;                  :result-form '(values)
 ;                  :var-list '((cgi:*server-env* t)))))
 ;
+
+(defun run ()
+  (mapcar #'run-test *cgi-tests*))
\ No newline at end of file