;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; ID: $Id: textui.lisp,v 1.1 2003/08/04 16:13:58 kevin Exp $
+;;;; ID: $Id: textui.lisp,v 1.2 2003/08/04 17:04:50 kevin Exp $
;;;; Purpose: Text UI for Test Runner
;;;;
;;;; *************************************************************************
(result (make-instance 'test-results))
(start-time (get-internal-real-time)))
(add-listener result test-runner)
- (run-on-test-result ob result)
+ (run-on-test-results ob result)
(print-results test-runner result
(/ (- (get-internal-real-time) start-time)
internal-time-units-per-second))))