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