projects
/
xlunit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5457: *** empty log message ***
[xlunit.git]
/
printer.lisp
diff --git
a/printer.lisp
b/printer.lisp
index c89bfff0b722706124850b213fa5959d121e68c1..3637ff454f4b1c49e069a21f676e55d19040fa82 100644
(file)
--- a/
printer.lisp
+++ b/
printer.lisp
@@
-2,7
+2,7
@@
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; ID: $Id: printer.lisp,v 1.
4 2003/08/04 17:04:49
kevin Exp $
+;;;; ID: $Id: printer.lisp,v 1.
5 2003/08/04 19:31:34
kevin Exp $
;;;; Purpose: Printer functions for XLUnit
;;;;
;;;; *************************************************************************
;;;; Purpose: Printer functions for XLUnit
;;;;
;;;; *************************************************************************
@@
-41,7
+41,8
@@
(let ((i 1))
(mapc #'(lambda (single-error)
(format (ostream ob) "~a) ~a: ~a~%" i
(let ((i 1))
(mapc #'(lambda (single-error)
(format (ostream ob) "~a) ~a: ~a~%" i
- (name (car single-error)) (cdr single-error))
+ (name (failed-test single-error))
+ (thrown-condition single-error))
(incf i))
errors)))))
(incf i))
errors)))))
@@
-53,8
+54,9
@@
(format (ostream ob) "~%There were ~a failures:~%" (length failures)))
(let ((i 1))
(mapc #'(lambda (single-failure)
(format (ostream ob) "~%There were ~a failures:~%" (length failures)))
(let ((i 1))
(mapc #'(lambda (single-failure)
- (format (ostream ob) "~a) ~a: ~a~%" i (name (car single-failure))
- (or (message (cdr single-failure)) ""))
+ (format (ostream ob) "~a) ~a: ~a~%" i
+ (name (failed-test single-failure))
+ (or (message (thrown-condition single-failure)) ""))
(incf i))
failures)))))
(incf i))
failures)))))