paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 22:40:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpcunit: clean up

Browse Source 
git-svn-id: trunk@39745 -
This commit is contained in:
mattias 2013-01-03 12:23:59 +00:00
parent 7a805339f7
commit bdb5e05390
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -86,12 +86,12 @@ type
destructor Destroy; override; destructor Destroy; override;
{ ITestListener interface requirements } { ITestListener interface requirements }
procedure AddFailure(ATest: TTest; AFailure: TTestFailure); procedure AddFailure({%H-}ATest: TTest; {%H-}AFailure: TTestFailure);
procedure AddError(ATest: TTest; AError: TTestFailure); procedure AddError({%H-}ATest: TTest; {%H-}AError: TTestFailure);
procedure StartTest(ATest: TTest); procedure StartTest({%H-}ATest: TTest);
procedure EndTest(ATest: TTest); procedure EndTest({%H-}ATest: TTest);
procedure StartTestSuite(ATestSuite: TTestSuite); procedure StartTestSuite({%H-}ATestSuite: TTestSuite);
procedure EndTestSuite(ATestSuite: TTestSuite); procedure EndTestSuite({%H-}ATestSuite: TTestSuite);
end; end;
procedure TProgressWriter.WriteChar(c: char); procedure TProgressWriter.WriteChar(c: char);