-
-(defmethod print-results ((ob textui-test-runner) result seconds)
- (format (ostream ob) "~&Time: ~D~%~%" (coerce seconds 'float))
- (print-header ob result)
- (print-errors ob result)
- (print-failures ob result)
- t)
-
-(defmethod print-header ((ob textui-test-runner) result)
- (let ((failures (failures result))
- (errors (errors result))
- (run-tests (run-tests result)))
- (cond ((and (null failures) (null errors))
- (format (ostream ob) "~%OK (~a tests)~%" run-tests))
- (t
- (format (ostream ob) "~%~%FAILURES!!!~%")
- (format (ostream ob) "Run: ~a Failures: ~a Errors: ~a~%"
- run-tests (length failures) (length errors))))))
-
-(defmethod print-errors ((ob textui-test-runner) result)
- (let ((errors (errors result)))
- (when errors
- (if (eql (length errors) 1)
- (format (ostream ob) "~%There was 1 error:~%")
- (format (ostream ob) "~%There were ~a errors:~%" (length errors)))
- (let ((i 1))
- (mapc #'(lambda (single-error)
- (format (ostream ob) "~a) ~a: ~a~%" i
- (name (car single-error)) (cdr single-error))
- (incf i))
- errors)))))