;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; Id: $Id: tests.lisp,v 1.9 2003/08/04 19:31:34 kevin Exp $
+;;;; Id: $Id: tests.lisp,v 1.10 2003/08/04 19:42:18 kevin Exp $
;;;; Purpose: Test suite for XLUnit
;;;;
;;;; *************************************************************************
(def-test-method (test-failed-result self test-case-test :run nil)
(assert-equal "1 run, 0 erred, 1 failed"
- (summary (run-test
- (named-test 'test-broken-method (get-suite was-run))))))
+ (summary (run
+ (named-test 'test-broken-method
+ (get-suite was-run))))))
(def-test-method (test-error-result self test-case-test :run nil)
(assert-equal "1 run, 1 erred, 0 failed"
- (summary (run-test
+ (summary (run
(named-test 'test-error-method
(get-suite was-run))))))