;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; ID: $Id: printer.lisp,v 1.3 2003/08/04 16:13:58 kevin Exp $
+;;;; ID: $Id: printer.lisp,v 1.4 2003/08/04 17:04:49 kevin Exp $
;;;; Purpose: Printer functions for XLUnit
;;;;
;;;; *************************************************************************
(incf i))
failures)))))
-#|
-(defun result-printer (result seconds stream)
- (format stream "~&Time: ~D~%~%" (coerce seconds 'float))
- (print-defects (errors result) "error" stream)
- (print-defects (failures result) "failure" stream)
- (if (was-successful result)
- (format stream "OK (~D tests)~%" (run-count result))
- (progn
- (format stream "~%FAILURES!!!~%")
- (format stream "Tests run: ~D, Failures: ~D, Errors: ~D~%"
- (run-count result) (failure-count result)
- (error-count result)))))
-
-(defun print-defects (defects type stream)
- (when defects
- (let ((count (length defects)))
- (if (= count 1)
- (format stream "~&There was ~D ~A:~%" count type)
- (format stream "~&There were ~D ~As:~%" count type))
- (dotimes (i count)
- (let ((defect (nth i defects)))
- (format stream "~&~D) ~A " i (class-name
- (class-of (failed-test defect))))
- (apply #'format stream (simple-condition-format-control
- (thrown-condition defect))
- (simple-condition-format-arguments
- (thrown-condition defect)))
- (fresh-line stream))))))
-
-|#
-
(defgeneric summary (result))
-(defmethod summary ((result test-result))
+(defmethod summary ((result test-results))
(format nil "~D run, ~D erred, ~D failed"
- (run-count result) (error-count result) (failure-count result)))
+ (run-tests result) (error-count result) (failure-count result)))