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

codetools: test multidim[,].sub

Browse Source 
git-svn-id: trunk@61961 -
This commit is contained in:
mattias 2019-10-03 14:35:42 +00:00
parent d63ada2dc8
commit fc24b68aa6
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/codetools/tests/testfinddeclaration.pas
View File

@ -103,6 +103,7 @@ type
procedure TestFindDeclaration_BracketOpen; procedure TestFindDeclaration_BracketOpen;
procedure TestFindDeclaration_AnonymProc; procedure TestFindDeclaration_AnonymProc;
procedure TestFindDeclaration_AnonymProc_ExprDot; procedure TestFindDeclaration_AnonymProc_ExprDot;
procedure TestFindDeclaration_ArrayMultiDimDot;
// test all files in directories: // test all files in directories:
procedure TestFindDeclaration_FPCTests; procedure TestFindDeclaration_FPCTests;
procedure TestFindDeclaration_LazTests; procedure TestFindDeclaration_LazTests;
@ -1000,6 +1001,24 @@ begin
FindDeclarations(Code); FindDeclarations(Code);
end; end;
procedure TTestFindDeclaration.TestFindDeclaration_ArrayMultiDimDot;
begin
StartProgram;
Add([
'type',
' TmyClass = class',
' Field: integer;',
' end;',
' TArray1 = array of TmyClass;',
' TArray2 = array of TArray1;',
'var',
' tmp: TArray2;',
'begin',
' tmp[0,0].Field{declaration:tmyclass.field};',
'end.']);
FindDeclarations(Code);
end;
procedure TTestFindDeclaration.TestFindDeclaration_FPCTests; procedure TTestFindDeclaration.TestFindDeclaration_FPCTests;
begin begin
TestFiles('fpctests'); TestFiles('fpctests');