;;;; Purpose: Text UI for Test Runner
;;;;
;;;; *************************************************************************
;;;; Purpose: Text UI for Test Runner
;;;;
;;;; *************************************************************************
(run-on-test-results ob result)
(print-results test-runner result
(/ (- (get-internal-real-time) start-time)
(run-on-test-results ob result)
(print-results test-runner result
(/ (- (get-internal-real-time) start-time)