;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; ID: $Id: result.lisp,v 1.6 2003/08/04 19:31:34 kevin Exp $
+;;;; ID: $Id: result.lisp,v 1.7 2003/08/05 22:56:25 kevin Exp $
;;;; Purpose: Result functions for XLUnit
;;;;
;;;; *************************************************************************
(defmethod is-failure ((failure test-failure))
"Returns T if a failure was a test-failure condition"
- (typep (thrown-condition failure) 'test-failure-condition))
+ (typep (thrown-condition failure) 'assertion-failed))
(defmethod print-object ((obj test-failure) stream)
(print-unreadable-object (obj stream :type t :identity nil)