Common Lisp Package: CL-WHO-TEST

README:

FUNCTION

Public

RUN-ALL-TESTS (&KEY VERBOSE)

Runs all tests for CL-WHO and returns a true value iff all tests succeeded. VERBOSE is interpreted by the individual test suites.

Private

SIMPLE-TESTS (&KEY (FILE-NAME (MAKE-PATHNAME NAME simple TYPE NIL VERSION NIL DEFAULTS *THIS-FILE*)) (EXTERNAL-FORMAT '(LATIN-1 EOL-STYLE LF)) VERBOSE)

Loops through all the forms in the file FILE-NAME and executes each of them using EVAL. It is assumed that each FORM specifies a test which returns a true value iff it succeeds. Prints each test form to *STANDARD-OUTPUT* if VERBOSE is true and shows a simple progress indicator otherwise. EXTERNAL-FORMAT is the FLEXI-STREAMS external format which is used to read the file. Returns a true value iff all tests succeeded.

MACRO

Private

DO-TESTS ((NAME &OPTIONAL SHOW-PROGRESS-P) &BODY BODY)

Helper macro which repeatedly executes BODY until the code in body calls the function DONE. It is assumed that each invocation of BODY will be the execution of one test which returns NIL in case of success and list of string describing errors otherwise. The macro prints a simple progress indicator (one dots for ten tests) to *STANDARD-OUTPUT* unless SHOW-PROGRESS-P is NIL and returns a true value iff all tests succeeded. Errors in BODY are caught and reported (and counted as failures).

VARIABLE

Private

*THIS-FILE*

The location of this source file.

Undocumented

*INITIAL-SETTINGS*