;;;; Purpose: Text UI for Test Runner
;;;;
;;;; *************************************************************************
;;;; Purpose: Text UI for Test Runner
;;;;
;;;; *************************************************************************
(result (make-instance 'test-results))
(start-time (get-internal-real-time)))
(add-listener result test-runner)
(result (make-instance 'test-results))
(start-time (get-internal-real-time)))
(add-listener result test-runner)
(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))))