r5455: *** empty log message ***

[xlunit.git] / result.lisp

diff --git a/result.lisp b/result.lisp
index 1b7fd35984c9e60905f59664a427a5265ab8b7ff..eb49d0fc3773fb557c84e2cc581d918ff5066317 100644 (file)
--- a/result.lisp
+++ b/result.lisp
@@ -2,7 +2,7 @@
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
-;;;; ID:      $Id: result.lisp,v 1.5 2003/08/04 16:42:27 kevin Exp $
+;;;; ID:      $Id: result.lisp,v 1.6 2003/08/04 19:31:34 kevin Exp $
 ;;;; Purpose:  Result functions for XLUnit
 ;;;;
 ;;;; *************************************************************************
@@ -35,7 +35,6 @@
   res)
 
 (defmethod end-test ((tcase test) (res test-results))
-  (incf (run-tests res))
   (mapc (lambda (listener) (end-test listener tcase)) (listeners res))
   res)