/[cl-cli-parser]/cl-cli-parser/unit-test.lisp
ViewVC logotype

Diff of /cl-cli-parser/unit-test.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by dbueno, Sat Mar 19 22:17:32 2005 UTC revision 1.3 by dbueno, Sat Mar 19 23:08:37 2005 UTC
# Line 34  Line 34 
34    
35  (defun report-result (result form)  (defun report-result (result form)
36    "Report the results of a single test case. Called by `check'."    "Report the results of a single test case. Called by `check'."
37    (format t "~:[FAIL~;pass~] ... ~a: ~a~%" result *test-name* form)    (format t "~:[FAIL~;pass~] ... ~a: ~w~%" result *test-name* form)
38    result)    result)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5