From 03bdadb1f0fdbef87f29cbb00f1a0391bf5d004a Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Thu, 19 Oct 2006 17:01:05 +0000
Subject: [PATCH] fpcunit consolerunner: no . if test failed, because a E or F
 will be output for that test

git-svn-id: trunk@10092 -
---
 components/fpcunit/console/consoletestrunner.pas | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/components/fpcunit/console/consoletestrunner.pas b/components/fpcunit/console/consoletestrunner.pas
index be670deab2..52aa4a5581 100644
--- a/components/fpcunit/console/consoletestrunner.pas
+++ b/components/fpcunit/console/consoletestrunner.pas
@@ -62,6 +62,8 @@ const
   { TProgressWriter }
 type
   TProgressWriter= class(TNoRefCountObject, ITestListener)
+  private
+    FSuccess: boolean;
   public
     destructor Destroy; override;
 
@@ -81,22 +83,25 @@ end;
 
 procedure TProgressWriter.AddFailure(ATest: TTest; AFailure: TTestFailure);
 begin
+  FSuccess := false;
   write('F');
 end;
 
 procedure TProgressWriter.AddError(ATest: TTest; AError: TTestFailure);
 begin
+  FSuccess := false;
   write('E');
 end;
 
 procedure TProgressWriter.StartTest(ATest: TTest);
 begin
-  // nothing to do
+  FSuccess := true; // assume success, until proven otherwise
 end;
 
 procedure TProgressWriter.EndTest(ATest: TTest);
 begin
-  write('.');
+  if FSuccess then
+    write('.');
 end;
 
 var