paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 05:19:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Test for po_arrayrangeexpr

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-11-14 12:15:08 +01:00
parent 5651680930
commit 65a570b772
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-passrc/tests/tctypeparser.pas
View File

@ -114,6 +114,7 @@ type
procedure TestPointerSimpleDeprecated;
procedure TestPointerSimplePlatform;
Procedure TestStaticArray;
procedure TestStaticArrayAsRange;
Procedure TestStaticArrayComment;
procedure TestStaticArrayDeprecated;
procedure TestStaticArrayPlatform;
@ -3384,6 +3385,15 @@ begin
AssertEquals('Packed',True,TPasArrayType(TheType).IsPacked);
end;
procedure TTestTypeParser.TestStaticArrayAsRange;
begin
Parser.Options:=Parser.Options+[po_arrayrangeexpr];
DoParseArray('packed array [0..2] of integer','',Nil);
AssertEquals('Array has ranges',1,Length(TPasArrayType(TheType).Ranges));
end;
procedure TTestTypeParser.TestStaticArrayTypedIndex;
begin
DoParseArray('array [Boolean] of integer','',Nil);