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

fpcunit: fixed compile under fpc 3.0.0

Browse Source 
git-svn-id: trunk@57982 -
This commit is contained in:
mattias 2018-05-21 07:15:14 +00:00
parent 1f81cd02d5
commit 7696ca4753
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpcunit/guitestrunner.pas
View File

@ -679,7 +679,7 @@ var
i: integer;
begin
rootNode.StateIndex := Ord(tsChecked);
for i := 0 to ASuite.ChildTestCount - 1 do
for i := 0 to ASuite.{$IF FPC_FULLVERSION<30300}CountTestCases{$ELSE}ChildTestCount{$ENDIF} - 1 do
begin
node := TestTree.Items.AddChildObject(rootNode, ASuite.Test[i].TestName, ASuite.Test[i]);
if ASuite.Test[i] is TTestSuite then