paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:59:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpcunit consolerunner: no . if test failed, because a E or F will be output for that test

Browse Source 
git-svn-id: trunk@10092 -
This commit is contained in:
vincents 2006-10-19 17:01:05 +00:00
parent 4d71ca81f2
commit 03bdadb1f0
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/fpcunit/console/consoletestrunner.pas
View File

@ -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