;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; ID: $Id: suite.lisp,v 1.4 2003/08/04 16:42:27 kevin Exp $
+;;;; ID: $Id: suite.lisp,v 1.5 2003/08/04 17:04:49 kevin Exp $
;;;; Purpose: Suite functions for XLUnit
;;;;
;;;; *************************************************************************
t)
(defmethod run-on-test ((suite test-suite)
- &key (result (make-instance 'test-result))
+ &key (result (make-instance 'test-results))
(handle-errors t))
(setup-testsuite-named (slot-value suite 'name))
(dolist (test (tests suite))