;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; ID: $Id: tcase.lisp,v 1.3 2003/08/04 19:58:24 kevin Exp $
+;;;; ID: $Id: tcase.lisp,v 1.4 2003/08/05 22:56:25 kevin Exp $
;;;; Purpose: Test fixtures for XLUnit
;;;;
;;;; *************************************************************************
(defmethod run ((ob test) &key (handle-errors t))
"Generalized to work on test-case and test-suites"
(let ((res (make-test-results)))
- (run-on-test-results ob res :handle-errors t)
+ (run-on-test-results ob res :handle-errors handle-errors)
res))
(defmethod run-on-test-results ((test test-case) result
(add-error res test condition)))
(run-base test))
res)
-
-
-
-