From 659ff9b55dd5886a71511aab8d0cccc73eec5411 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Mon, 4 Aug 2003 19:42:18 +0000
Subject: [PATCH] r5456: *** empty log message ***

---
 tests.lisp | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/tests.lisp b/tests.lisp
index 3b848a4..0cba6c3 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -2,7 +2,7 @@
 ;;;; *************************************************************************
 ;;;; 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
 ;;;;
 ;;;; *************************************************************************
@@ -63,12 +63,13 @@
 
 (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))))))
   
-- 
2.34.1