paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 09:09:17 +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 } { TProgressWriter }
type type
TProgressWriter= class(TNoRefCountObject, ITestListener) TProgressWriter= class(TNoRefCountObject, ITestListener)
private
FSuccess: boolean;
public public
destructor Destroy; override; destructor Destroy; override;
@ -81,22 +83,25 @@ end;
procedure TProgressWriter.AddFailure(ATest: TTest; AFailure: TTestFailure); procedure TProgressWriter.AddFailure(ATest: TTest; AFailure: TTestFailure);
begin begin
FSuccess := false;
write('F'); write('F');
end; end;
procedure TProgressWriter.AddError(ATest: TTest; AError: TTestFailure); procedure TProgressWriter.AddError(ATest: TTest; AError: TTestFailure);
begin begin
FSuccess := false;
write('E'); write('E');
end; end;
procedure TProgressWriter.StartTest(ATest: TTest); procedure TProgressWriter.StartTest(ATest: TTest);
begin begin
// nothing to do FSuccess := true; // assume success, until proven otherwise
end; end;
procedure TProgressWriter.EndTest(ATest: TTest); procedure TProgressWriter.EndTest(ATest: TTest);
begin begin
write('.'); if FSuccess then
write('.');
end; end;
var var