;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; ID: $Id: suite.lisp,v 1.6 2003/08/04 19:31:34 kevin Exp $
+;;;; ID: $Id: suite.lisp,v 1.8 2003/08/06 11:37:23 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)))))
(nreverse res)))
-;----------------------------------------------------------------------
-; macro def-test-method
-;
-; Creates the representation of a test method (included within a
-; test-case object) and add it to the corresponding suite class.
-; => clos version of the pluggable selector pattern
-;
-; use: (def-test-method test-assert-false (clos-unit-test)
-; (assert-true (eql (+ 1 2) 4) "comment"))
-;
-; new: it calls the textui-test-run function during eval, so to
-; allow the usual lisp-like incremental developing and test.
-;----------------------------------------------------------------------
-
-(defmacro def-test-method ((method-name instance-name class-name
- &key (run t))
+(defmacro def-test-method (method-name ((instance-name class-name)
+ &key (run t))
&body method-body)
`(let ((,instance-name
(make-instance ',class-name
(add-test (suite ,instance-name) ,instance-name)
(when ,run
(textui-test-run ,instance-name))))
-