paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-29 02:06:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

fpcunit: less hints

Browse Source 
git-svn-id: trunk@57944 -
This commit is contained in:
mattias 2018-05-16 13:17:01 +00:00
parent 0a40c1007c
commit 8a2bc3b07e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/fpcunit/guitestrunner.pas
View File

@ -135,8 +135,8 @@ type
procedure TestTreeChange(Sender: TObject; Node: TTreeNode);
procedure TestTreeCreateNodeClass(Sender: TCustomTreeView;
var NodeClass: TTreeNodeClass);
procedure TestTreeMouseDown(Sender: TOBject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure TestTreeMouseDown(Sender: TObject; {%H-}Button: TMouseButton;
{%H-}Shift: TShiftState; X, Y: Integer);
procedure TestTreeSelectionChanged(Sender: TObject);
procedure ActCopyErrorMsgExecute(Sender: TObject);
procedure ActCopyErrorMsgUpdate(Sender: TObject);
@ -179,7 +179,7 @@ type
procedure StartTest(ATest: TTest);
procedure EndTest(ATest: TTest);
procedure RunTest(ATest: TTest); virtual;
procedure StartTestSuite(ATestSuite: TTestSuite);
procedure StartTestSuite({%H-}ATestSuite: TTestSuite);
procedure EndTestSuite(ATestSuite: TTestSuite);
procedure NextError;
procedure PrevError;
@ -679,7 +679,7 @@ var
i: integer;
begin
rootNode.StateIndex := Ord(tsChecked);
for i := 0 to ASuite.Tests.Count - 1 do
for i := 0 to ASuite.ChildTestCount - 1 do
begin
node := TestTree.Items.AddChildObject(rootNode, ASuite.Test[i].TestName, ASuite.Test[i]);
if ASuite.Test[i] is TTestSuite then