projects
/
xlunit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8702: Automated commit for Debian build of xlunit upstream-version-0.6.2
[xlunit.git]
/
textui.lisp
diff --git
a/textui.lisp
b/textui.lisp
index 92dbfb3b14d76f8239ae337731d9bf61e7733629..5eab0f8ed509924823a5570745f1506a210e45b5 100644
(file)
--- a/
textui.lisp
+++ b/
textui.lisp
@@
-2,7
+2,7
@@
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; ID: $Id
: textui.lisp,v 1.1 2003/08/04 16:13:58 kevin Exp
$
+;;;; ID: $Id$
;;;; Purpose: Text UI for Test Runner
;;;;
;;;; *************************************************************************
;;;; Purpose: Text UI for Test Runner
;;;;
;;;; *************************************************************************
@@
-33,8
+33,8
@@
(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)
- (run-on-test-result ob result)
+ (run-on-test-result
s
ob result)
(print-results test-runner result
(/ (- (get-internal-real-time) start-time)
(print-results test-runner result
(/ (- (get-internal-real-time) start-time)
-
internal-time-units-per-second))
))
-
+
internal-time-units-per-second
))
+ result))