paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-21 18:19:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug ID #31710: var,const,type sections can be empty in a class.

Browse Source 
git-svn-id: trunk@35948 -
This commit is contained in:
michael 2017-04-25 12:25:13 +00:00
parent 874d6b0a09
commit 60de96894a
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/fcl-passrc/tests/tcclasstype.pas
View File

@ -84,6 +84,7 @@ type
Procedure TestTwoFieldsB;
Procedure TestTwoVarFieldsB;
procedure TestNoVarFields;
procedure TestVarClassFunction;
Procedure TestTwoFieldsVisibility;
Procedure TestConstProtectedEnd;
Procedure TestTypeProtectedEnd;
@ -703,6 +704,19 @@ begin
AssertVisibility(visPublic,Members[0]);
end;
procedure TTestClassType.TestVarClassFunction;
begin
StartVisibility(visPublic);
FDecl.Add('var');
AddMember('class Function b : integer');
ParseClass;
AssertEquals('member count',1,TheClass.members.Count);
AssertNotNull('Have function',Members[0]);
AssertMemberName('b',Members[0]);
AssertMemberType(TPasFunction,Members[0]);
AssertVisibility(visPublic,Members[0]);
end;
procedure TTestClassType.TestTwoFieldsVisibility;
begin
StartVisibility(visPublic);