;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; ID: $Id: suite.lisp,v 1.6 2003/08/04 19:31:34 kevin Exp $
+;;;; ID: $Id: suite.lisp,v 1.7 2003/08/05 22:56:25 kevin Exp $
;;;; Purpose: Suite functions for XLUnit
;;;;
;;;; *************************************************************************
(setf (tests suite)
(delete-if #'(lambda (existing-tests-or-suite)
(cond ((typep existing-tests-or-suite 'test-suite)
- (eq existing-tests-or-suite new-test))
+ (eq existing-tests-or-suite test))
((typep existing-tests-or-suite 'test-case)
(eql (name existing-tests-or-suite)
(name test)))))