projects
/
xlunit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5459: *** empty log message ***
[xlunit.git]
/
suite.lisp
diff --git
a/suite.lisp
b/suite.lisp
index f2394abecf65b106b677ce896e2776d0ba480dee..391258e26afb373f15de2b9f014b62dc7882c456 100644
(file)
--- a/
suite.lisp
+++ b/
suite.lisp
@@
-2,7
+2,7
@@
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; *************************************************************************
;;;; 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
;;;;
;;;; *************************************************************************
;;;; Purpose: Suite functions for XLUnit
;;;;
;;;; *************************************************************************
@@
-42,7
+42,7
@@
(setf (tests suite)
(delete-if #'(lambda (existing-tests-or-suite)
(cond ((typep existing-tests-or-suite 'test-suite)
(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)))))
((typep existing-tests-or-suite 'test-case)
(eql (name existing-tests-or-suite)
(name test)))))