;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; ID: $Id: textui.lisp,v 1.2 2003/08/04 17:04:50 kevin Exp $
+;;;; ID: $Id$
;;;; Purpose: Text UI for Test Runner
;;;;
;;;; *************************************************************************
(defclass textui-test-runner (test-listener)
((ostream :initform nil :accessor ostream :initarg :ostream))
(:default-initargs :ostream *standard-output*))
-
+
(defmethod add-error ((ob textui-test-runner) test-case condition)
(declare (ignore test-case condition))
(format (ostream ob) "E"))
-
+
(defmethod add-failure ((ob textui-test-runner) test-case condition)
(declare (ignore test-case condition))
(format (ostream ob) "F"))
-
+
(defmethod start-test ((ob textui-test-runner) test-case)
(declare (ignore test-case))
(format (ostream ob) "."))
-
+
(defmethod textui-test-run ((ob test))
(let ((test-runner (make-instance 'textui-test-runner))
(result (make-instance 'test-results))
- (start-time (get-internal-real-time)))
+ (start-time (get-internal-real-time)))
(add-listener result test-runner)
(run-on-test-results ob result)
- (print-results test-runner result
- (/ (- (get-internal-real-time) start-time)
- internal-time-units-per-second))))
-
+ (print-results test-runner result
+ (/ (- (get-internal-real-time) start-time)
+ internal-time-units-per-second))
+ result))